A034963 Sums of four consecutive primes.
17, 26, 36, 48, 60, 72, 88, 102, 120, 138, 152, 168, 184, 202, 220, 240, 258, 272, 290, 306, 324, 348, 370, 390, 408, 420, 432, 456, 480, 508, 534, 556, 576, 596, 620, 638, 660, 682, 700, 724, 744, 762, 780, 800, 830, 860, 890, 912, 928, 942, 964, 988, 1012
Offset: 1
Examples
a(7) = 17 + 19 + 23 + 29 = 88.
Links
- Zak Seidov, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[&+[ NthPrime(n+k): k in [0..3] ]: n in [1..90] ]; /* Vincenzo Librandi, Apr 03 2011 */
-
Maple
A034963 := proc(n) add(ithprime(i), i=n..n+3) ; end proc: # R. J. Mathar, Jun 06 2013
-
Mathematica
Plus@@@Partition[Prime[Range[6! ]],4,1] (* Vladimir Joseph Stephan Orlovsky, Feb 18 2010 *)
-
PARI
a(n)=my(p=prime(n));p+sum(i=1,3,p=nextprime(p+1)) \\ Charles R Greathouse IV, Jul 01 2013
Formula
a(n) = Sum_{k=0..3} A000040(n+k). - Omar E. Pol, Mar 02 2020