A051351 a(n) = a(n-1) + sum of digits of n-th prime.

0, 2, 5, 10, 17, 19, 23, 31, 41, 46, 57, 61, 71, 76, 83, 94, 102, 116, 123, 136, 144, 154, 170, 181, 198, 214, 216, 220, 228, 238, 243, 253, 258, 269, 282, 296, 303, 316, 326, 340, 351, 368, 378, 389, 402, 419, 438, 442, 449, 460, 473, 481, 495, 502, 510, 524

Offset: 0

Author

Armand Turpel (armandt(AT)unforgettable.com)

Keywords

• nonn
• easy
• base

Crossrefs

Cf. A007605.

Programs

Mathematica

Table[ Sum[ Apply[ Plus, RealDigits[ Prime[ j ]] [[1]] ], {j, 1, n} ], {n, 1, 100} ]

PARI

a(n) = vecsum(apply(sumdigits, primes(n))); \\ Michel Marcus, Aug 28 2023

Extensions

More terms from Robert G. Wilson v, Nov 18 2000