{Pascal-Infoarena.p2}
var a:array[1..10000,1..10000] of longint;
    d:integer;
    f:text;
    i,j,k,r,nr:longint;

procedure citire;
begin
assign(f,'pascal.in');reset(f);
readln(f,r,d);
close(f);
end;

procedure gen;
begin
k:=2;
r:=r+1;
a[1,1]:=1;
a[2,1]:=1;a[2,2]:=1;
while (k<=r) do begin
      a[k,1]:=1;
      for i:=2 to k do
          a[k,i]:=a[k-1,i-1]+a[k-1,i];
      k:=k+1;
      end;
nr:=0;
for i:=1 to r div 2 do
    if a[r,i] mod d = 0 then nr:=nr+1;
if odd(r) then begin
   nr:=nr*2;
   if a[r,(r div 2)+1] mod d=0 then nr:=nr+1;
   end
else nr:=nr*2;
end;

procedure afis;
begin
assign(f,'pascal.out');rewrite(f);
writeln(f,nr);
close(f);
end;

begin
citire;
gen;
afis;
end.