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,1

Links

Table of n, a(n) for n=1..30.

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

Adjacent sequences: A112263 A112264 A112265 * A112267 A112268 A112269

Keyword

base,easy,nonn

Author

Jonathan Vos Post, Aug 30 2005

Extensions

Corrected and extended by Giovanni Resta, Jun 17 2016

Status

approved