solve :: Int -> Bool
solve n
  | n `mod` 4 == 0 = True
  | n `mod` 7 == 0 = True
  | 4 <= n && nokori `mod` 3 == 0 = True
  | otherwise = False
  where nokori = n `mod` 4

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