main :: IO ()
main = do 
    n <- readLn
    putStrLn $ solve n

solve :: Int -> String
solve n = if lst 
          then "Yes"
          else "No"
     where 
       lst = elem n [x * y | x <- [1..9], y <- [1..x]]