main = do
  n <- readLn
  putStrLn $ if elem 0 $ scanl (\x y -> if x>=y then x-y else x)n 
    $ reverse $ takeWhile (<= n) $ scanl1 (+) $ map (2^) [0..] then "YES" else "NO"