Program cel;
var f,g:text;
    r,nr,c,d,f3,f1,f2:longint;
function putere(a:longint;b:longint):longint;
var fm:longint;
Begin
fm:=0;
a:=a div b;
While a>0 do
 Begin
  inc(fm,a);
  a:=a div b;
 end;
putere:=fm;
end;

Begin
Assign(f,'pascal.in');Reset(f);
Assign(g,'pascal.out');Rewrite(g);
Read(f,r,d);
f1:=putere(r,d);
nr:=0;
For c:=1 to (r+1) div 2 do
  If d in [2,3,4,5] then Begin
                          f2:=putere(r-c,d);
                          f3:=putere(c,d);
                          If d=4 then If f1-f2-f3>=2 then inc(nr,2);
                          If d in [2,3,5] then If f1-f2-f3>=1 then inc(nr,2);
                         end
                     else Begin
                           f1:=putere(r,2);
                           f2:=putere(r-c,2);
                           f3:=putere(c,2);
                           If f1-f2-f3>=1 then Begin
                                                f1:=putere(r,3);
                                                f2:=putere(r-c,3);
                                                f3:=putere(c,3);
                                                If f1-f2-f3>=1 then inc(nr,2);
                                               end;
                               end;
If (r+1) mod 2=1 then dec(nr);
Writeln(g,nr);
Close(f);
Close(g);
end.