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