#include<cstdio>
#include<vector>
#include<queue>
#include<cstring>
#include<iostream>
#include<algorithm>
#include<ctime>
#include<random>
#include<array>
#include<assert.h>
#define pb emplace_back
#define mp make_pair
#define fi first
#define se second
#define dbg(x) cerr<<"In Line "<< __LINE__<<" the "<<#x<<" = "<<x<<'\n'
#define dpi(x,y) cerr<<"In Line "<<__LINE__<<" the "<<#x<<" = "<<x<<" ; "<<"the "<<#y<<" = "<<y<<'\n'
#define DE(fmt,...) fprintf(stderr, "Line %d : " fmt "\n",__LINE__,##__VA_ARGS__)
using namespace std;
typedef long long ll;
typedef unsigned long long ull;
typedef pair<int,int>pii;
typedef pair<ll,int>pli;
typedef pair<ll,ll>pll;
typedef pair<int,ll>pil;
typedef vector<int>vi;
typedef vector<ll>vll;
typedef vector<pii>vpii;
typedef vector<pll>vpll;
template<typename T>T cmax(T &x, T y){return x=x>y?x:y;}
template<typename T>T cmin(T &x, T y){return x=x<y?x:y;}
template<typename T>
T &read(T &r){
	r=0;bool w=0;char ch=getchar();
	while(ch<'0'||ch>'9')w=ch=='-'?1:0,ch=getchar();
	while(ch>='0'&&ch<='9')r=r*10+(ch^48),ch=getchar();
	return r=w?-r:r;
}
template<typename T1,typename... T2>
void read(T1 &x,T2& ...y){read(x);read(y...);}
const int mod=1000000007;
inline void cadd(int &x,int y){x=(x+y>=mod)?(x+y-mod):(x+y);}
inline void cdel(int &x,int y){x=(x-y<0)?(x-y+mod):(x-y);}
inline int add(int x,int y){return (x+y>=mod)?(x+y-mod):(x+y);}
inline int del(int x,int y){return (x-y<0)?(x-y+mod):(x-y);}
int qpow(int x,int y){
	int s=1;
	while(y){
		if(y&1)s=1ll*s*x%mod;
		x=1ll*x*x%mod;
		y>>=1;
	}
	return s;
}
const int N=100010;
const int M=52;
const int inv2=(mod+1)/2;
int n;
int fac[N],inv[N];
int co[N];
int cnt[M],ok[M];
int f[M][N<<1];
int C(int x,int y){return 1ll*fac[x]*inv[y]%mod*inv[x-y]%mod;}
namespace MyPoly{
	struct Poly{
		vi a;
		Poly(){vi().swap(a);}
		int size(){return a.size();}
		void resize(int x){a.resize(x);}
		void clear(){vi().swap(a);}
		int &operator[](int i){return a[i];}
	};
	Poly operator*(Poly &f,Poly &g){
		int n=f.size(),m=g.size();
		Poly h;h.resize(n+m-1);
		for(int i=0;i<n;i++)
			for(int j=0;j<m;j++)
				cadd(h[i+j],1ll*f[i]*g[j]%mod);
		return h;
	}
}
using namespace MyPoly;
void print(int w){
	for(int x=0;x<=1000;x++)
		for(int y=0;y<=1000;y++)
			if(1ll*x*qpow(y,mod-2)%mod==w){
				fprintf(stderr,"%d: %d/%d\n",w,x,y);
				return ;
			}
}
signed main(){
//	#ifdef do_while_true
//		assert(freopen("ex_polygon2.in","r",stdin));
//		assert(freopen("polygon.out","w",stdout));
//	#endif
	read(n);
	fac[0]=1;for(int i=1;i<=n;i++)fac[i]=1ll*fac[i-1]*i%mod;
	inv[n]=qpow(fac[n],mod-2);for(int i=n-1;~i;--i)inv[i]=1ll*inv[i+1]*(i+1)%mod;
	for(int i=1;i<=n;i++){
		int x;read(x);
		ok[x]++;
		for(int j=0;j<x;j++)
			cnt[j]++;
	}
	Poly p,q;
	p.resize(n+1);q.resize(n+1);
	for(int i=0;i<=n;i++)p[i]=(i&1)?del(0,C(n,i)):C(n,i);
	for(int i=0;i<=n;i++)q[i]=1ll*inv[n]*qpow(i,n)%mod;
	p=p*q;
//	for(int k=1;k<=n;k++){
//		for(int i=0;i<=k;i++){
//			if(i&1)cdel(co[k],1ll*C(n,i)*qpow(k-i,n)%mod*inv[n]%mod);
//			else cadd(co[k],1ll*C(n,i)*qpow(k-i,n)%mod*inv[n]%mod);
//		}
//	}
	for(int i=0;i<n;i++)f[0][i]=del(p[i+1],p[i]);
	for(int i=0;i<=50;i++){
		p.resize(2*n+1);
		q.resize(cnt[i]+1);
		int iv=qpow(inv2,cnt[i]);
		for(int j=0;j<=2*n;j++)p[j]=f[i][j];
		for(int j=0;j<=cnt[i];j++)q[j]=1ll*iv*C(cnt[i],j)%mod;
		p=p*q;
		int len=p.a.size();
		for(int j=0;j<len;j++)
			if(p[j])
				cadd(f[i+1][j/2],p[j]);		
//		for(int j=0;j<=2*n;j++)
//			for(int c=0;c<=cnt[i];c++){
//				cadd(f[i+1][(j+c)/2],1ll*f[i][j]*C(cnt[i],c)%mod*qpow(inv2,cnt[i])%mod);
//			}
	}
	int ans=0;
	for(int i=0;i<=50;i++){
		int c=0;
		for(int j=i;j<=50;j++)c+=cnt[j];
		cadd(ans,1ll*ok[i]*qpow(inv2,c)%mod*f[i][0]%mod);
	}
	ans=del(1,ans);
	cout<<ans<<'\n';
    #ifdef do_while_true
//		cerr<<'\n'<<"Time:"<<1.0*clock()/CLOCKS_PER_SEC*1000<<" ms"<<'\n';
	#endif
	return 0;
}