local n, k = io.read("*n", "*n")
local len = {0}
for i = 2, n do
  len[i] = -1
end
local tasks = {1}
local done = 0
while done < #tasks do
  done = done + 1
  local src = tasks[done]
  if src + 3 <= n and len[src + 3] < 0 then
    len[src + 3] = len[src] + 3
    table.insert(tasks, src + 3)
  end
  if src * 2 <= n and len[src * 2] < 0 then
    len[src * 2] = len[src] + 1
    table.insert(tasks, src * 2)
  end
end
if len[n] < 0 or k < len[n] then
  print("NO")
else
  print("YES")
end