main :: IO ()
main = do
    n <- fmap read getLine :: IO Int
    putStrLn $ if solve n then "Yes" else "No"

solve :: Int -> Bool
solve n = not $ null [ i | i <- [0 .. n `div` 4], (n - i * 4) `mod` 7 == 0 ]
