<>;
for(<>){
	($n,$k)=glob;
	print $k==1 ? $n-1 : int(log($n*($k-1)+1)/log($k)),$/;
}