#include<bits/stdc++.h>
using namespace std;
long long n,ans=0;
int a[10000],maxx;
long long mod=1e9+7;
int main(){
	cin>>n;
	for(int i=1;i<=n;i++){
		int x;cin>>x;
		a[x]++;
	}
	for(int i=2;i<=5000;i++){
		if(a[i]>=2){
			long long cnt=0,x=(a[i])*(a[i]-1)/2;
			for(int k=1,j=i-k;j>=k;k++,j--){
				if(k!=j)cnt+=a[k]*a[j];
				else cnt+=(a[i])*(a[i]-1)/2;
				ans=(ans+cnt%mod/x)%mod;
			}
		}
	}
	cout<<ans<<endl;
    return 0;
}