f :: Int->Bool
f 0 = True
f n | n < 0 = False
f n | n > 27 = f (n `mod` 28)
f n = f (n - 4) || f (n - 7)
main :: IO ()
main = do
    [a] <- words <$> getLine
    let n = read a :: Int

    putStrLn $ (if f n then "Yes" else "No") where
