import Control.Monad

main = do
    n <- read <$> getLine
    putStrLn $ if solve n then "Yes" else "No"

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