%I #16 Oct 14 2015 12:01:04
%S 1,2,4,6,8,8,8,8,12,12,12,12,18,18,18,18,18,18,24,24,24,24,24,24,32,
%T 30,32,30,32,30,32,36,36,36,36,36,45,42,40,40,48,50,48,50,48,50,48,50,
%U 54,56,56,56,56,56,56,56,64,63,60,60,72,72,72
%N a(1)=1. a(n) = smallest multiple of {number of divisors of a(n-1)} that is >= n.
%H Vincenzo Librandi, <a href="/A161661/b161661.txt">Table of n, a(n) for n = 1..1000</a>
%t t = {1}; Do[d = DivisorSigma[0, t[[-1]]]; AppendTo[t, d*Ceiling[n/d]], {n, 2, 100}]; t (* _T. D. Noe_, Mar 23 2011 *)
%t nxt[{n_,a_}]:=Module[{d=DivisorSigma[0,a]},{n+1,d*Ceiling[(n+1)/d]}]; Transpose[ NestList[nxt,{1,1},70]][[2]] (* _Harvey P. Dale_, Oct 14 2015 *)
%Y Cf. A161660.
%K nonn
%O 1,2
%A _Leroy Quet_, Jun 15 2009
%E More terms from _Sean A. Irvine_, Mar 23 2011