module Main where

import           Data.Maybe                     ( fromJust )
import           Data.List
import           Control.Monad
import qualified Data.ByteString.Char8         as BS

bytestr2Int = fst . fromJust . BS.readInt
getInt = bytestr2Int <$> BS.getLine

main :: IO ()
main = do
    n <- getInt
    putStrLn $ check n

check n = if 82 < n
    then "No"
    else if or [ m * l == n | m <- [1 .. 9], let l = div n m, l < 10 ]
        then "Yes"
        else "No"
