module Main where

import Control.Applicative
import Control.Monad
import Data.List

f n x | (q, 0) <- n `divMod` x
      , q == x    = True
      | otherwise = False

main :: IO ()
main = do
    n <- read . concat . words <$> getLine :: IO Int
    if any (f n) [1 .. floor (sqrt $ fromIntegral n)]
        then putStrLn "Yes"
        else putStrLn "No"