OFFSET
1,3
COMMENTS
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
Module[{n=1}, NestList[Max[DivisorSigma[0, n++], DivisorSigma[0, #]]&, 1, 100]] (* Paolo Xausa, Dec 10 2023 *)
PROG
(PARI) lista(nn) = {my(va = vector(nn)); va[1] = 1; for (n=2, nn, va[n] = max(numdiv(n-1), numdiv(va[n-1])); ); va; } \\ Michel Marcus, Nov 29 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Ctibor O. Zizka, Nov 25 2020
STATUS
approved