program Project2;


uses
  SysUtils;

var n,k,i,d,l,r,x,t,f:integer;
begin
  assign(input,'ZEROS.DAT');
   reset(input);
  assign(output,'ZEROS.SOL');
  rewrite(output);
 readln(n,k);
l:=round(exp((n)*ln(k)))-round(exp((n-1)*ln(k)));
d:=round(exp((n-1)*ln(k)));
i:=0;r:=0;
while i<l do begin
i:=i+1;f:=0;
t:=d; x:=1;
while t>=k do begin
if (x=0)and(t mod k=0) then f:=1;
x:=t mod k;
t :=t div k
end;
if f=0 then r:=r+1;
d:=d+1;
end;


  writeln(r);
  close(input);
  close(output);

end.