factorize :: Integer -> Integer -> [Integer]
factorize 1 _ = []
factorize n f =
	if n `mod` f == 0
		then f : (factorize (n`div`f) f)
		else factorize n (f+1)

main = do
	n <- readLn
	putStrLn $ if length (factorize n 2) >= 3 then "YES" else "NO"