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

%I #6 Aug 28 2023 14:34:22

%S 0,2,5,10,17,19,23,31,41,46,57,61,71,76,83,94,102,116,123,136,144,154,

%T 170,181,198,214,216,220,228,238,243,253,258,269,282,296,303,316,326,

%U 340,351,368,378,389,402,419,438,442,449,460,473,481,495,502,510,524

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

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

%o (PARI) a(n) = vecsum(apply(sumdigits, primes(n))); \\ _Michel Marcus_, Aug 28 2023

%Y Cf. A007605.

%K nonn,easy,base

%O 0,2

%A Armand Turpel (armandt(AT)unforgettable.com)

%E More terms from _Robert G. Wilson v_, Nov 18 2000