main = do
  line <- getLine
  let
    n = read line :: Int
    func n 
      | n == 0 = True
      | n < 4 = False
      | otherwise = func (n-7) || func (n-4)
    in 
      if func n then putStrLn "Yes"
      else putStrLn "No"
