var f,g:text;
    r,j,p,x,s,t,m:longint;
    d:byte;
    o:longint;
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;
      for p:=(r-j)+1 to r do
         s:=s*p;
      for x:=1 to j do
         t:=t*x;
      m:=s div t;
      if t<> 0 then
      if m mod d=0 then inc(o);
    end;
  writeln(g,o);
  close(g);
end.