OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MATHEMATICA
h[x_] := x*DivisorSigma[0, h[x-1]]]+1 Table[h[w], {w, 1, 100}]
nxt[{n_, a_}]:={n+1, (n+1)DivisorSigma[0, a]+1}; NestList[nxt, {0, 1}, 70][[All, 2]] (* Harvey P. Dale, Feb 06 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Labos Elemer, May 14 2003
STATUS
approved