#include <iostream>
#include <fstream>


using namespace std;
ifstream in("nrtri.in");
ofstream out("nrtri.out");
int frec[30010];
int v[8010];

int j=0,mem=0;

int caut(int poz,int val)
{
	if(v[poz]<val)return 0;
	return(poz-1,val)+1;
	
	
	
}






int main()
{

int n,x,i;
long long int sol=0;
in>>n;
for(i=0;i<n;i++)
	{in>>x;
	frec[x]++;
	}

for(i=1;i<=3000;i++)
	{for(j=0;j<frec[i];j++)
		{
			v[mem+j]=i;
		}
	mem+=j;	
	}
for(i=n-1;i>1;i--)
	{
		for(j=i-1;v[j]>(v[i]-1)/2;j--)
			sol+=(long long int)(j-caut(j-1,v[i]-v[j]));
		    
		
	}

out<<sol;


return 0;
        
  
  
  
  
  
}