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