module B
  sub Main(byval args() as string)
    dim arr() as string = split(console.readline())
    dim n,k,i as integer
  	n=arr(0):k=arr(1)
    i=1
    while n>=k
      n=math.floor(n/k)
      i+=1
    end while
    console.writeline(i)
  end sub
end module