#include<cstdio>
int a[7001],b[7001],n,max,c[9001],i,j,nr,v[9001];
void calc_comb()
{c[2]=1;
 for(i=3;i<n;i++)
	 c[i]=c[i-1]*i/(i-2);}
int main()
{freopen("medie.in","r",stdin);
 freopen("medie.out","w",stdout);
 scanf("%d",&n);
 calc_comb();
 for(i=1;i<=n;i++) {scanf("%d",&v[i]);b[v[i]]++;if(v[i]>max) max=v[i];}
 for(i=2;i<max;i++)
	 if(b[i])
	 for(j=1;i-j>0&&i+j<=max;j++)
		 a[i]+=b[i-j]*b[i+j];
 for(i=1;i<=7000;i++){
	 nr+=a[i]*b[i];
	 if(b[i]>=3) nr+=c[b[i]-1]*b[i];}
 printf("%d\n",nr);
 fclose(stdout);
 return 0;}