A112266 Primes in A112265.

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

Author

Jonathan Vos Post, Aug 30 2005

Keywords

• base
• easy
• nonn

Programs

Mathematica

f[1] = 0; f[n_] := Plus @@ (#[[2]] First@ IntegerDigits[#[[1]]] & /@  FactorInteger[n]); Select[ Accumulate@ Array[f, 200], PrimeQ] (* Giovanni Resta, Jun 17 2016 *)

Extensions

Corrected and extended by Giovanni Resta, Jun 17 2016