program pascal;
var f,g:text;
    c,r,d:longint;

procedure prog;
var s1,s2,s3,s,i,j:longint;
begin
c:=0;
s1:=1;
for j:=1 to r do s1:=s1*j;
for i:=2 to r+1 do
  begin
    s2:=1;
    s3:=1;
    for j:=1 to r-i do s2:=s2*j;
    for j:=1 to i do s3:=s3*j;
    s:=s1 div (s2*s3);
    if (s mod d=0) then c:=c+1;
  end;
end;

begin
assign(f,'pascal.in');reset(f);
assign(g,'pascal.out');rewrite(g);
read(f,r,d);
prog;
write(g,c);
close(f);
close(g);
end.