Module Module1

    Sub Main()
        Dim readline As String
        Dim len As Integer = 0
        Dim hogehoge() As String

        hogehoge = Console.ReadLine.Split(" "c)

        Dim log As Double = Math.Log(CType(hogehoge(0), Double), CType(hogehoge(1), Double))
        Dim ans As Integer

        If Math.Ceiling(log) <= 0 Then
            ans = 1

        End If

        Console.WriteLine(Math.Floor(log + 1))


    End Sub


End Module
