local n, k = io.read("*n", "*n")
local cnt = 0
for a = 2, n do
  local lim = math.ceil(math.sqrt(a))
  local ta = a
  local denom = 2
  local c = 0
  while(denom <= lim) do
    if(ta % denom == 0) then
      c = c + 1
      if(k <= c) then break end
      while(ta % denom == 0) do
        ta = ta / denom
      end
    end
    denom = denom + (denom == 2 and 1 or 2)
  end
  if(ta ~= 1) then c = c + 1 end
  if(k <= c) then cnt = cnt + 1 end
end
print(cnt)