main :: IO ()
main = do
	n <- readLn :: IO Int
	
	putStrLn $ if n `mod` 8 == 0 || n `mod` 8 == 7 then "Yes" else "No"