main = do
    x <- readLn
    putStrLn $ output $ solve x

solve :: Int -> Bool
solve i
    | i == 0 = True
    | i == 4 = True
    | i == 10 = True
    | otherwise = False

output :: Bool -> String
output b =
    if b
       then "Yes"
       else "No"