solve :: Int -> Bool
solve n
  | n `mod` 4 == 0 = True
  | n < 7 = False
  | solve (n - 7) = True
  | otherwise = False

main = do 
  n <- readLn
  if(solve n)
  then putStrLn "Yes"
  else putStrLn "No"