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

Links

Table of n, a(n) for n=0..55.

Mathematica

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

Prog

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

Crossrefs

Cf. A007605.

Sequence in context: A326763 A067112 A101306 * A111925 A238804 A030723

Adjacent sequences: A051348 A051349 A051350 * A051352 A051353 A051354

Keyword

nonn,easy,base

Author

Armand Turpel (armandt(AT)unforgettable.com)

Extensions

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

Status

approved