Module Module1
    Sub Main()
        Dim input As String() = Console.ReadLine.Split(" "c)

        Dim num1 As Integer = Convert.ToInt32(input(0))
        Dim num2 As Integer = Convert.ToInt32(input(1))

        Dim d1 As Integer
        Dim d2 As Integer
        Dim answer As Integer = 0

        For i As Integer = 10 To num2
            d1 = i.ToString.Substring(0, 1)
            d2 = i.ToString.Substring(1, 1)

            If d1 < 2 OrElse d2 < 2 Then
                Continue For
            End If

            If (d1 * d2) = 0 Then
                Continue For
            End If

            If num1 >= d1 * d2 Then
                answer = answer + 1
            End If

        Next

        Console.WriteLine(answer)

    End Sub
End Module