main :: IO ()
main = (readLn :: IO Int) >>= putStrLn . solve

solve :: Int -> String
solve n = if y >= 2 then "YES" else "NO"
    where
        x = sqrt $ (fromIntegral n) :: Double
        y = length $ filter (\a -> n `mod` a == 0) $ takeWhile (<= ceiling x) [1..]