import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> readLn >>= putStrLn

solve :: Int -> String
solve n | l > 2 = "YES"
        | otherwise = "NO"
  where l = length . facts $ n

facts :: Int -> [Int]
facts = f [] 2
  where f ls d x | d * d > x = (x:ls)
                 | x `mod` d == 0 = f (d:ls) d (x `div` d)
                 | otherwise = f ls (d+1) x