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