hs={}
n,k=gets.split(" ").map{|e| e.to_i}
xs=gets.split(" ").map{|e| e.to_i}
xs.each{|x|
	hs[x]=0 if hs.member?(x)==false
	hs[x]+=1
}
vs=hs.values.sort.reverse
s=0
ans=0
vs.each{|v|
	s+=v
	ans+=1
	break if k<=s
}
puts ans