judge :: Bool -> (String,String) -> String
judge f (ts,fs) = case f of
  True -> ts
  False -> fs

func :: Int -> Bool
func n = case ret of
  [] -> False
  otherwise -> True
  where
  ret =
    filter (== n) 
    $ concatMap (\y -> map (+ y) 
    $ takeWhile (\z -> y + z <= n) [0,7..]) 
    $ takeWhile (\x -> x <= n) [0,4..]

main = do
  line <- getLine
  let
    n = read line :: Int
    ret = func n
  putStrLn $ judge ret ("Yes", "No")
