local n, k = io.read("*n", "*n")
local t = {}
for i = 1, n do
  t[i] = 0
end
for i = 1, n do
  local a = io.read("*n")
  t[a] = t[a] + 1
end
table.sort(t)
local c = 0
for i = n, 1, -1 do
  c = c + t[i]
  if k <= c then print(n + 1 - i) os.exit() end
end