OFFSET
1,2
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] ep[x_] := Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] supo[x_] := Apply[Plus, ba[x]^ep[x]] Table[supo[w], {w, 1, 25}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 31 2003
STATUS
approved