%I #41 Sep 08 2022 08:44:52
%S 17,26,36,48,60,72,88,102,120,138,152,168,184,202,220,240,258,272,290,
%T 306,324,348,370,390,408,420,432,456,480,508,534,556,576,596,620,638,
%U 660,682,700,724,744,762,780,800,830,860,890,912,928,942,964,988,1012
%N Sums of four consecutive primes.
%H Zak Seidov, <a href="/A034963/b034963.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = Sum_{k=0..3} A000040(n+k). - _Omar E. Pol_, Mar 02 2020
%e a(7) = 17 + 19 + 23 + 29 = 88.
%p A034963 := proc(n)
%p add(ithprime(i), i=n..n+3) ;
%p end proc: # _R. J. Mathar_, Jun 06 2013
%t Plus@@@Partition[Prime[Range[6! ]],4,1] (* _Vladimir Joseph Stephan Orlovsky_, Feb 18 2010 *)
%o (Magma) [&+[ NthPrime(n+k): k in [0..3] ]: n in [1..90] ]; /* _Vincenzo Librandi_, Apr 03 2011 */
%o (PARI) a(n)=my(p=prime(n));p+sum(i=1,3,p=nextprime(p+1)) \\ _Charles R Greathouse IV_, Jul 01 2013
%Y Cf. A000040, A001043, A011974, A034707.
%K nonn,easy
%O 1,1
%A _Patrick De Geest_, Oct 15 1998