var f,g:text;
    r,j,p,x,s,t,m:longint;
    d:byte;
    o:integer;
begin
  assign(f,'pascal.in');
  reset(f);
  assign(g,'pascal.out');
  rewrite(g);
  readln(f,r,d);
  close(f);
  o:=0;
  for j:=1 to r do
    begin
      s:=1;
      t:=1;
      if (r-j)>j then begin
      if (r-j)=0 then s:=s*1
                 else
      for p:=(r-j) to r do
         s:=s*p;
      for x:=1 to j do
         t:=t*x;
      end
      else
        for p:=j to r do
         s:=s*p;
      for x:=1 to (r-j) do
         t:=t*x;
      m:=s div t;
      if m mod d=0 then inc(o);
    end;
  writeln(g,o-1);
  close(g);
end.