ll n,v1,v2,z,a[2d5];
{
	rd(n,a(n));
	sortA(n,a);
	ll w=-2;
	rep[a](x,n){
		if(w==x-1){
			(v2,v1)=(v1,v2);
			z+=v2+=1;
		}else if(w==x-2){
			z+=v2;
			v1=0;
		}else{
			v1=v2=0;
		}
		w=x;
	}
	wt(z+n);
}