exist :: Int -> Bool
exist n
 | n < 4  = False 
 | n `mod` 4 == 0 || n `mod` 7 == 0  = True
 | otherwise  = exist (n-4) || exist (n-7)

main = putStrLn =<< (\b -> if b then "Yes" else "No").exist.read <$> getLine