%I #13 Jan 31 2019 03:27:29
%S 2,10,28,58,100,160,238,328,440,568,712,874,1060,1264,1480,1720,1988,
%T 2276,2584,2914,3266,3638,4028,4438,4888,5350,5830,6338,6870,7418,
%U 7982,8582,9206,9854,10538,11240,11966,12718,13490,14288,15116,15968,16840
%N Sum of the first 2n+1 primes.
%C Bisection of A007504.
%H Ray Chandler, <a href="/A109723/b109723.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A007504(2n+1).
%t f[n_] := Sum[Prime[k], {k, n}]; Table[f[2n + 1], {n, 0, 42}]
%t Take[Accumulate[Prime[Range[160]]], {1,160,2}] (* _Harvey P. Dale_, Jan 11 2011 *)
%o (PARI) a(n) = sum(k=1, 2*n+1, prime(k)); \\ _Michel Marcus_, Jan 31 2019
%Y Cf. A007504, A109722, A109724, A109725, A109726.
%K easy,nonn
%O 0,1
%A _Giovanni Teofilatto_, Aug 10 2005
%E Edited and extended by _Ray Chandler_, Aug 11 2005
|