ll@n,@a[n],z=0;
sortA(n,a);
for(ll i=0,j=0,k=0;i<n;i=j){
	while(j<n&&a[j]==a[i]){
		++j;
	}
	while(k<n&&a[k]<a[i]*2){
		++k;
	}
	z+=(k-(j-i))*(j-i)*(j-i-1)/2;
}
wt(z);