main = do
    n <- readLn
    putStrLn $ solve n

lp = [x*y|x<-[1..9],y<-[x..9]]

solve :: Int -> String
solve n = search n lp
    where search n [] = "No"
          search n (x:xs)
            | n == x = "Yes"
            | otherwise = search n xs