var f,g:text;
a,b:array[-1..5000] of longint;
l,j,k,r,d,n,m,i:longint;
begin
assign(f,'pascal.in');
reset(f);
read(f,r,d);
close(f);
a[0]:=1;
b[0]:=1;
k:=1;
for j:=1 to r do
     begin
      k:=k+1;
      for i:=1 to k do
            b[i]:=a[i-1]+a[i];
      for i:=0 to k-1 do
         begin
         if j=r then
               if b[i]mod d=0 then l:=l+1;
         a[i]:=b[i];
         end;
    end;
assign(g,'pascal.out');
rewrite(g);
writeln(g,l);
close(g);
end.