program main

  implicit none
  integer :: n, k ,i
  real :: rn
  
  read(*,*) n, k
  
  i = 1 
  rn = real( n )
  do   
    if ( rn < real( k )  ) exit
    rn = rn / real( k )
    i = i + 1 
  end do
  print*, i
 
end program main
