OFFSET
1,2
MATHEMATICA
a[1] = 1; a[n_] := a[n]=Module[{an = a[n-1] + 1}, While[DivisorSigma[0, Sum[a[i], {i, n - 1}] + an] != n, an++]; an]; a/@Range[17]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ivan N. Ianakiev, Mar 08 2017
EXTENSIONS
a(18)-a(30) from Giovanni Resta, Mar 09 2017
STATUS
approved