{-# LANGUAGE BangPatterns #-}

import Control.Monad
import Data.List
import Data.Bits
import Debug.Trace
import Data.Maybe
import qualified Data.ByteString.Char8 as C
import Control.Monad.Trans.Except
import Data.Either

main :: IO ()
main = do
  [n] <- readInts
  putStrLn $ solve n

solve n = if isLeft $ runExcept $ foldM (\a x -> when (x == n) $ throwE ()) () [x * y | x <- [1 .. 9], y <- [1 .. 9]]
  then "Yes"
  else "No"

-- 以下ライブラリ

readInts :: IO [Int]
readInts = map (fst . fromJust . C.readInt) . C.words <$> C.getLine

readNInts :: Int -> IO [[Int]]
readNInts = flip replicateM readInts

readIntegers :: IO [Integer]
readIntegers = map (fst . fromJust . C.readInteger) . C.words <$> C.getLine

readNIntegers :: Int -> IO [[Integer]]
readNIntegers = flip replicateM readIntegers

getNLns :: Int -> IO [String]
getNLns = flip replicateM getLine