Imports System
Class B
	Shared Function Main() As Integer
	Dim N,K As Integer
	Dim inputs() As String
	inputs = Console.ReadLine().Split()
	N = Integer.Parse(inputs(0))
	K = Integer.Parse(inputs(1))

	Dim ans As Integer = 0
	While N > 0
		ans += 1
		N \= K
	End While
	Console.WriteLine(ans)
	Return 0
	End Function
End Class
