isKuku :: Int -> Bool
isKuku n = any id $ map isOneDigit $ map (div' n) [1..9]

div' :: Int -> Int -> Int
div' x y
    | x `mod` y == 0 = x `div` y
    | otherwise = 0 

isOneDigit :: Int -> Bool
isOneDigit n = (n >= 1) && (n <= 9)


main :: IO ()
main = do
    n <- read <$> getLine :: IO Int
    case isKuku n of
        True -> putStrLn "Yes"
        False -> putStrLn "No"