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); count:=0;
  for i:=1 to r+1 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+1) and (v[j] mod d=0) then count:=count+1;
     end;
    for j:=1 to i do
     u[j]:=v[j];
   end;
   writeln(g,count); close(g); close(f);
  end.