import Control.Applicative
import Data.List

main :: IO ()
main = solve <$> f >>= print
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> Int
solve [m, d] = foldl' f 0 [22 .. d]
  where
    f c x = let (q, r) = x `divMod` 10
                y = q * r
            in if q >= 2 && r >= 2 && y <= m
               then c + 1
               else c
