n, k = gets.chomp.split(" ").map(&:to_i)
kin = 1
INF = Float::INFINITY
dp = Array.new(n+1,INF)
dp[1] = 0
1.upto(n) do |i|
    next if dp[i] == INF
    dp[i+3] = [dp[i]+1,dp[i+3]].min if i + 3 <= n
    dp[2*i] = [dp[i]+1,dp[2*i]].min if i * 2 <= n
    
end
if dp.pop <= k
    puts "YES"
else
    puts "NO"
end