program swastika;
var i,j,r,d,count,a:integer;
    f,g:text;
function factorial(a:integer):integer;
var h:integer;
 begin
  factorial:=1;
  for h:=1 to a do
   factorial:=factorial*h;
  if factorial=0 then factorial:=1;
 end;
 begin
  assign(f,'pascal.in'); reset(f);
  assign(g,'pascal.out'); rewrite(g);
  readln(f,r,d); i:=r; count:=0;
  for j:=1 to r div 2 do
   begin
    a:=factorial(i) div (factorial(i-j)*factorial(j));
    if a mod d =0 then count:=count+1;
   end;
  if r mod 2 =0 then count:=count+1 else count:=count*2;
  writeln(g,count); close(g);
 end.