require 'prime'

N, K = gets.split.map(&:to_i)
A = Array.new(N + 1, 0)

Prime.each(N) do |pn|
  n = pn
  while n <= N do
    A[n] += 1
    n += pn
  end
end

puts A.select{|c| c >= K}.size