var s,st:int64;
    d:byte;
    r,i,v:longint;

begin
  assign(input,'pascal.in'); reset(input);
  readln(r,d);
  for i:=1 to r do
    begin
      v:=r-i+1;
      while  (v mod d)=0 do
        begin
          inc(s);
          v:=v div d;
        end;
      v:=i;
      while (v mod d)=0 do
        begin
          dec(s);
          v:=v div d;
        end;
      if s>0 then st:=st+1;
    end;
  assign(output,'pascal.out'); rewrite(output);
  writeln(st);
  close(output);
end.