OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
nn = 120; c[_] := False;
Array[Set[{a[#], c[#]}, {#, True}] &, 2]; s = a[1] + a[2];
{1}~Join~Reap[Do[k = SelectFirst[Divisors[s], ! c[#] &];
c[k] = True; Sow[DivisorSigma[0, s]];
s += k, {n, 3, nn}] ][[-1, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Apr 26 2024
STATUS
approved