#include "bits/stdc++.h" using namespace std; #define FOR(i,j,k) for(int (i)=(j);(i)<(int)(k);++(i)) #define rep(i,j) FOR(i,0,j) #define each(x,y) for(auto &(x):(y)) #define mp make_pair #define all(x) (x).begin(),(x).end() #define debug(x) cout<<#x<<": "<<(x)< pii; typedef vector vi; typedef vector vll; template class ModInt{ public: ModInt():value(0){} ModInt(long long val):value((int)(val<0?MOD+val%MOD:val%MOD)){ } ModInt& operator+=(ModInt that){ value = value+that.value; if(value>=MOD)value-=MOD; return *this; } ModInt& operator-=(ModInt that){ value -= that.value; if(value<0)value+=MOD; return *this; } ModInt& operator*=(ModInt that){ value = (int)((long long)value * that.value % MOD); return *this; } ModInt &operator/=(ModInt that){ return *this *= that.inverse(); } ModInt operator+(ModInt that) const{ return ModInt(*this)+=that; } ModInt operator-(ModInt that) const{ return ModInt(*this)-=that; } ModInt operator*(ModInt that) const{ return ModInt(*this)*=that; } ModInt operator/(ModInt that) const { return ModInt(*this) /= that; } ModInt pow(long long k) const{ if(value == 0)return 0; ModInt n = *this, res = 1; while(k){ if(k & 1)res *= n; n *= n; k >>= 1; } return res; } ModInt inverse() const { long long a = value, b = MOD, u = 1, v = 0; while(b) { long long t = a / b; a -= t * b; swap(a, b); u -= t * v; swap(u, v); } return ModInt(u); } int toi() const{ return value; } private: int value; }; typedef ModInt<1000000007> mint; ostream& operator<<(ostream& os, const mint& x){ os << x.toi(); return os; } vector> divisorsAll(int n){ vector> res(n + 1); for(int i = 1; i <= n; ++i){ for(int j = i; j <= n; j+=i){ res[j].push_back(i); } } return res; } int K; int main(){ cin >> K; vi C(K), D(K); rep(i, K)scanf("%d", &C[i]); int N = accumulate(all(C), 0); vector dp(N + 1), F(N + 1); F[0] = 1; rep(i, N)F[i + 1] = F[i] * (i+1); auto divs = divisorsAll(N); each(i, divs[N]){ int a = N / i; bool ok = true; rep(j, K){ if(C[j] % a){ ok = false; break; } D[j] = C[j] / a; } if(!ok)continue; dp[i] = F[i]; each(d, D)dp[i] /= F[d]; each(j, divs[i]){ if(j == i)break; dp[i] -= dp[j]; } } mint ans = 0; FOR(i, 1, N + 1)ans += dp[i] / i; cout << ans << endl; }