|
|
A109723
|
|
Sum of the first 2n+1 primes.
|
|
4
|
|
|
2, 10, 28, 58, 100, 160, 238, 328, 440, 568, 712, 874, 1060, 1264, 1480, 1720, 1988, 2276, 2584, 2914, 3266, 3638, 4028, 4438, 4888, 5350, 5830, 6338, 6870, 7418, 7982, 8582, 9206, 9854, 10538, 11240, 11966, 12718, 13490, 14288, 15116, 15968, 16840
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_] := Sum[Prime[k], {k, n}]; Table[f[2n + 1], {n, 0, 42}]
Take[Accumulate[Prime[Range[160]]], {1, 160, 2}] (* Harvey P. Dale, Jan 11 2011 *)
|
|
PROG
|
(PARI) a(n) = sum(k=1, 2*n+1, prime(k)); \\ Michel Marcus, Jan 31 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|