ll@n,@k,b[n+1]{},z=0;
rep(n){
	ll@a;
	++b[a];
}
rsortA(n+1,b);
while(k>0){
	k-=b[z++];
}
wt(z);