solve :: Int -> String
solve n =
    let xs = filter (\x -> x `elem` [1..9]) . map (\x -> n `div` x) . filter (\x -> n `mod` x == 0) $ [1..9]
    in if null xs then "No" else "Yes"

main :: IO ()
main = readLn >>= putStrLn . solve