var f,g:text;   
a,b:array[-1..5000000] 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.