#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 sol=0;
int caut(int poz,int val)
{   
	if(v[poz]<val)return 0;
	sol++;
	if(poz==0)return 0;
	caut (poz-1,val);
	
	
	
}






int main()
{

int n,x,i;

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>0;j--)
			caut(j-1,v[i]-v[j]);
		    
		
	}

out<<sol;


return 0;
        
  
  
  
  
  
}