#include using namespace std; #include using namespace atcoder; using ll = long long; using vll = vector; using vvll = vector; using vvvll = vector; using vb = vector; using vvb = vector; using vvvb = vector; #define all(A) A.begin(),A.end() #define rep(i, n) for (ll i = 0; i < (ll) (n); i++) template bool chmax(T& p, T q, bool C = 1) { if (C == 0 && p == q) { return 1; } if (p < q) { p = q; return 1; } else { return 0; } } template bool chmin(T& p, T q, bool C = 1) { if (C == 0 && p == q) { return 1; } if (p > q) { p = q; return 1; } else { return 0; } } ll modPow(long long a, long long n, long long p) { if (n == 0) return 1; // 0乗にも対応する場合 if (n == 1) return a % p; if (n % 2 == 1) return (a * modPow(a, n - 1, p)) % p; long long t = modPow(a, n / 2, p); return (t * t) % p; } ll gcd(ll(a), ll(b)) { if (a == 0)return b; if (b == 0)return a; ll c = a; while (a % b != 0) { c = a % b; a = b; b = c; } return b; } ll sqrtz(ll N) { ll L = 0; ll R = sqrt(N) + 10000; while (abs(R - L) > 1) { ll mid = (R + L) / 2; if (mid * mid <= N)L = mid; else R = mid; } return L; } using mint = modint1000000007; using vm = vector; using vvm = vector; using vvvm = vector; vector fact, factinv, inv; const ll mod = 1e9+7; void prenCkModp(ll n) { fact.resize(n + 5); factinv.resize(n + 5); inv.resize(n + 5); fact[0] = fact[1] = 1; factinv[0] = factinv[1] = 1; inv[1] = 1; for (ll i = 2; i < n + 5; i++) { fact[i] = (fact[i - 1] * i); inv[i] = (mod - ((inv[mod % i] * (mod / i)))); factinv[i] = (factinv[i - 1] * inv[i]); } } mint nCk(ll n, ll k) { if (n < k || k < 0) return 0; return (fact[n] * ((factinv[k] * factinv[n - k]))); } ll INVA(ll n) { return modPow(n, mod - 2, mod); } vector INC; vll Enumerate_Quotients(ll N) { vll res; ll x = N; while (x >= 1) { ll k = N / x; res.push_back(k); x = N / (k + 1); } return res; } //const ll mod=998244353; int main() { cin.tie(nullptr); ios::sync_with_stdio(false); ll N,K; cin>>N>>K; vll A(N); rep(i,N){ cin>>A[i]; A[i]=gcd(A[i],K); } map M; for(ll k=1;k*k<=K;k++)if(K%k==0)M[k]=M[K/k]=1; ll k=0; for(auto m:M)M[m.first]=k,k++; vll D(k,0); vll KP(k); for(auto m:M)KP[m.second]=m.first; rep(i,N)D[M[A[i]]]++; vvm DP(k+1,vm(k,0)); prenCkModp(N+1); DP[0][0]=1; unordered_map MM; for(auto m:M)MM[m.first]=m.second; rep(i,k){ rep(j,k){ mint res=KP[j]; rep(d,D[i]+1){ mint multi=nCk(D[i],d); //cout<