OFFSET
1,2
COMMENTS
Primes in this sequence are A112266.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
f[1] = 0; f[n_] := Plus @@ (#[[2]] First@IntegerDigits[#[[1]]] & /@ FactorInteger[n]); Accumulate@ Array[f, 90] (* Giovanni Resta, Jun 17 2016 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Aug 30 2005
EXTENSIONS
Corrected and edited by Giovanni Resta, Jun 17 2016
STATUS
approved