1,3

Álvar Ibeas, Table of n, a(n) for n = 1..10000

(PARI) lista() = {v = readvec("b025487.txt"); for (i=1, #v, f = factor(v[i]); print1(prod(k=1, #f~, f[k, 2]), ", "); ); } \\ Michel Marcus, Nov 02 2014

Cf. A005361, A025487.

Sequence in context: A195310 A051282 A274121 * A322886 A320642 A046823

Adjacent sequences: A052303 A052304 A052305 * A052307 A052308 A052309

nonn

Christian G. Bower, Nov 15 1999

Offset updated by Matthew Vandermast, Nov 08 2008

approved