import Control.Applicative

main = do
    n <- read <$> getLine :: IO Int
    putStrLn.show $ answer n (sum $ s n)

answer n v = if mod n v == 0 then  "Yes" else "No"

s 0 = []
s n = mod n 2 : s (div n 2)