{-# OPTIONS_GHC -Wall #-}

readInt :: String -> Int
readInt = read

solve :: Int -> Bool
solve n = let n' = fromIntegral n in ceiling (7*n'/28) <= floor (8*n'/28)

main :: IO ()
main = do
    n <- fmap readInt getLine

    let ans = solve n

    putStrLn $ if ans then "Yes" else "No"
