main = do
  line <- getLine
  let 
    n = read line :: Int
    ls = [0,4,7,8,11,12,14,15,16,18,19,21,22,25]
    contains x ls
      | ls == [] = False
      | (head ls) == x  = True
      | otherwise  = contains x (tail ls)
    in
      if contains (mod n 28) ls then putStrLn "Yes"
      else putStrLn "No"
