var j,r,d,p:longint;
    a,b,c,n:longint;
    f,g:text;

function fact(e:longint):longint;
begin
if e=0 then fact:=1
       else fact:=e*fact(e-1);
end;


begin
assign(f,'pascal.in');
assign(g,'pascal.out');
reset(f);
rewrite(g);
readln(f,r,d);
c:=fact(r);
for j:=0 to r do
    begin
    a:=fact(j);
    b:=fact(r-j);
    n:=c div (a*b);
    if n mod d=0 then
       p:=p+1;
    end;
writeln(g,p);
close(f);
close(g);
end.