var f,g:text;
    i,b,n,nr,j,x,k:longint;
begin
     assign(f,'zero2.in'); reset(f);
     assign(g,'zero2.out'); rewrite(g);
     for i:=1 to 10 do
     begin
          readln(f,n,b);
          x:=1;  nr:=0;
          for j:=1 to n do
              for k:=1 to j do
              begin
                   x:=x*k;
                   if x mod b = 0 then
                   begin
                        inc(nr);
                        x:=x div b;
                   end;
              end;
          writeln(g,nr);
     end;
     close(g);
end.