A062132 Digit sums of the primes resulting from A061248.

2, 3, 5, 7, 8, 10, 11, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 35, 37, 38, 40, 41, 43, 44, 46, 47, 49, 50, 52, 53, 55, 56, 58, 59, 61, 62, 64, 65, 67, 68, 71, 73, 74, 76, 77, 79, 80, 82, 83, 85, 86, 88, 89, 91, 92, 95, 97, 98, 100, 101, 103, 104

Offset: 1

Author

Patrick De Geest, Jun 05 2001

Keywords

• nonn
• base

Links

• Eric M. Schmidt, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A061248.

Programs

Mathematica

t = {s = 2}; Do[If[(y = Total[IntegerDigits[x = Prime[n]]]) > s, AppendTo[t, s = y]], {n, 2, 5*10^6}]; t (* Jayanta Basu, Aug 09 2013 *)

Extensions

More terms from Eric M. Schmidt, Oct 08 2013