OFFSET
1,1
MATHEMATICA
f[1] = 0; f[n_] := Plus @@ (#[[2]] First@ IntegerDigits[#[[1]]] & /@ FactorInteger[n]); Select[ Accumulate@ Array[f, 200], PrimeQ] (* Giovanni Resta, Jun 17 2016 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Aug 30 2005
EXTENSIONS
Corrected and extended by Giovanni Resta, Jun 17 2016
STATUS
approved