#include<iostream>
#include<vector>
#include<map>
#include<cassert>
using namespace std;
map<int,int>L[2000],R[2000];
int N,A[2000];
int main()
{
	ios::sync_with_stdio(false);
	cin.tie(nullptr);
	cin>>N;
	for(int i=0;i<N;i++)cin>>A[i];
	for(int i=1;i<N;i++)
	{
		L[i]=L[i-1];
		L[i][A[i-1]]++;
	}
	for(int i=N-2;i>=0;i--)
	{
		R[i]=R[i+1];
		R[i][A[i+1]]++;
	}
	long ans=0;
	for(int i=1;i<N;i++)for(int j=i+1;j+1<N;j++)
	{
		int k=A[i]-A[j];
		if(k<=0)continue;
		int l=0,r=0;
		if(L[i].find(A[i]-k-10)!=L[i].end())l=L[i][A[i]-k-10];
		if(R[j].find(A[j]+k+1)!=R[j].end())r=R[j][A[j]+k+1];
		ans+=l*r;
	}
	cout<<ans<<endl;
}