OFFSET
1,2
LINKS
John Tyler Rascoe, Table of n, a(n) for n = 1..10000
MATHEMATICA
Block[{n = 1, d}, NestList[(d = DivisorSigma[0, ++n]) * Ceiling[# / d] &, 1, 100]] (* Paolo Xausa, Mar 21 2024 *)
PROG
(PARI)
A164531_list(nmax)={my(A=vector(nmax)); A[1]=1;
for(k=2, nmax, my(i=1); while(numdiv(k)*i<A[k-1], i+=1); A[k]=numdiv(k)*i); A}
A164531_list(100) \\ John Tyler Rascoe, Mar 20 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Leroy Quet, Aug 15 2009
EXTENSIONS
Extended by Ray Chandler, Mar 15 2010
STATUS
approved