import Data.List
import Data.Array
import Data.Array.IO
import Data.Maybe
import Data.Bits
import Control.Monad
import Control.Applicative

modifyArray arr i f = readArray arr i >>= \x -> writeArray arr i (f x)

listToTuple2 (a:b:_) = (a,b)
listToTuple3 (a:b:c:_) = (a,b,c)
listToTuple4 (a:b:c:d:_) = (a,b,c,d)



main :: IO ()
main = do
  n <- readLn :: IO Int
  putStrLn $ if or $ map (\x -> n-x >= 0 && mod (n-x) 4 == 0) (takeWhile (<=100) $ [0,7..]) then "Yes" else "No"

  return ()
