import qualified Data.ByteString.Char8 as BS
import qualified Data.Maybe as Maybe

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

main = do
    a <- (fst . Maybe.fromJust . BS.readInt) <$> BS.getLine
    let ans = solve a
    putStrLn ans