f :: Int->Bool
f 0 = True
f n | n < 0 = False
f n = f (n - 4) || f (n - 7)
main :: IO ()
main = do
    [a] <- words <$> getLine
    let n = read a :: Int
        r = case n `mod` 28 of
            0 -> True
            4 -> True
            8 -> True
            12 -> True
            16 -> True
            20 -> True
            24 -> True
            7 -> True
            14 -> True
            21 -> True
            11 -> True
            15 -> True
            19 -> True
            23 -> True
            27 -> True
            18 -> True
            22 -> True
            25 -> True
            26 -> True
            _ -> False

    putStrLn $ (if r then "Yes" else "No") where
