Program Pascal_arena;
var fi,fo : text;
    c : array[0..8000,0..8000] of longint;
    i,j : longint;
   suma, n,d: longint;

begin
      assign(fi,'pascal.in'); reset(fi); read(fi,n,d); close(fi);
      assign(fo,'pascal.out'); rewrite(fo);
      for i:=1 to 8000 do c[i,0]:=0;
      c[0,1]:=1;
      c[1,1]:=1;
      c[1,2]:=1;
      for i:=2 to n do
            for j:=1 to i+1 do c[i,j]:=c[i-1,j-1]+1;
      suma:=0;
      for i:=1 to n+1 do if c[n,i] mod d = 0 then suma:=suma+1;
      writeln(fo,suma);
      close(fo);
end.