n,k=gets.split.map(&:to_i)
a=gets.split.map(&:to_i).tally.values.sort.reverse
z=a.size
z.times do |i|
  k-=a[i]
  if k<=0
    puts i+1
    exit
  end
end