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

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

primes :: Integral a => [a]
primes = map fromIntegral $ [2, 3] ++ primes'
    where
        primes' = [5] ++ f 1 7 primes'
        f m s (p:ps) = [n | n <- ns, gcd m n == 1] ++ f (m * p) (p * p) ps
            where
                ns = [x + y | x <- [s, s + 6 .. p * p - 2], y <- [0, 4]]