login
A112266
Primes in A112265.
3
2, 5, 19, 53, 71, 79, 89, 113, 157, 167, 199, 311, 359, 439, 521, 541, 587, 593, 613, 769, 947, 977, 1009, 1097, 1171, 1223, 1249, 1289, 1427, 1447
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
Sequence in context: A293457 A304782 A184435 * A287019 A215169 A072468
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Aug 30 2005
EXTENSIONS
Corrected and extended by Giovanni Resta, Jun 17 2016
STATUS
approved