var n,k,i,m:longint;
 begin
  readln(n,k);
  if k=1 then writeln(n-1)
  else begin
  n:=n-1; i:=0;m:=1;
  repeat
    if k>m then begin n:=n-m; m:=m shl 1;end
    else n:=n-k;
    inc(i);
  until n<1;
  writeln(i);end;
 end.