OFFSET
1,2
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..2000
MATHEMATICA
a = {1, 2}; Do[AppendTo[a, Total@ Flatten@ Apply[Table[#1, {#2}] &, FactorInteger@ Total@ a, {1}]], {n, 3, 60}]; a (* Michael De Vlieger, Feb 19 2016 *)
PROG
(PARI) lista(nn) = {va = vector(nn); print1(va[1] = 1, ", "); print1(va[2] = 2, ", "); sp = vecsum(va); for (k=3, nn, f = factor(sp); va[k] = sum(j=1, #f~, f[j, 1]*f[j, 2]); print1(va[k], ", "); sp += va[k]; ); } \\ Michel Marcus, Feb 19 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore, Feb 17 2016
STATUS
approved