|
|
A051351
|
|
a(n) = a(n-1) + sum of digits of n-th prime.
|
|
17
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
Armand Turpel (armandt(AT)unforgettable.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|