program swastika;
var f,g:text;
    i,j,r,d,count:integer;
    u,v:array[1..1000] of integer;
 begin
  assign(f,'pascal.in'); reset(f);
  assign(g,'pascal.out'); rewrite(g);
  read(f,r); read(f,d);
  u[1]:=1;
  r:=r+1; count:=0;
  for i:=2 to r do
   begin
    for j:=1 to i do
     begin
      if (j=1) or (j=i) then v[j]:=1 else v[j]:=u[j-1]+u[j];
      if (i=r) and (v[j] mod d=0) then count:=count+1;
     end;
    if i<>r then
    for j:=1 to i do
     u[j]:=v[j];
   end;
  writeln(g,count); close(g); close(f);
 end.