Imports System

Module Program
    Sub Main(args As String())
        Dim tmpA As String() = Split(Console.ReadLine(), " ")

        Dim N As Long = CLng(tmpA(0))
        Dim K As Long = CLng(tmpA(1))

        Dim count As Long = 0
        Do While N > 0
            N = N \ K
            count = count + 1
        Loop

        Console.WriteLine(count)
    End Sub
End Module
