var r,y,i:longint; d:byte; fis:text;
function f(x:longint):longint;
var r,i:longint;
begin
r:=1;
for i:=2 to x do r:=r*i;
f:=r;
end;
begin
assign(fis,'pascal.in');reset(fis);
read(fis,r,d);
close(fis);
for i:=0 to r do if (f(r) div (f(r-i)*f(i))) mod d=0 then y:=y+1;
assign(fis,'pascal.out');rewrite(fis);
writeln(fis,y);
close(fis)
end.