int@n;
ll@k;
k*=k;
int@h[n],@(x,y)[],z=n,l=0;
sortA(n,h,x,y);
rep(i,n){
	for(;;++l){
		if(l==n){
			wt(z);
			exit(0);
		}
		if(h[l]!=h[i]){
			break;
		}
	}
	rep(j,l,n){
		ll dx=x[j]-x[i];
		ll dy=y[j]-y[i];
		if(dx*dx+dy*dy<=k){
			--z;
			break;
		}
	}
}
wt("hoge");