readInt :: String -> Int
readInt = read

main = do
    a <- readInt <$> getLine
    putStrLn $ solve a

solve a =if elem a list then "Yes" else "No"

list = [4*a + 7*b | a <- [1..25], b <- [1..14], (4*a + 7*b) <= 100]