A034965 Primes that are sum of five consecutive primes.

53, 67, 83, 101, 139, 181, 199, 263, 311, 331, 373, 421, 449, 587, 617, 647, 683, 733, 787, 811, 839, 863, 941, 991, 1123, 1151, 1193, 1361, 1381, 1579, 1609, 1801, 1831, 1861, 1949, 1979, 2081, 2113, 2143, 2221, 2273, 2297, 2357, 2423, 2459, 2689, 2731

Offset

1,1

Links

Harvey P. Dale and Syed Iddi Hasan, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harvey P. Dale)

Example

53 = 5 + 7 + 11 + 13 + 17.
373 = 67 + 71 + 73 + 79 + 83.

Maple

ts_prod_n:=proc(n) local i, ans; ans:=[ ]: for i from 1 to n do if isprime(ithprime(i)+ithprime(i+1)+ithprime(i+2)+ithprime(i+3)+ithprime(i+4))= 'true' then ans:=[op(ans), ithprime(i)+ithprime(i+1)+ithprime(i+2)+ithprime(i+3)+ithprime(i+4) ]: fi od: end: ts_prod_n(701); # Jani Melik, May 05 2006

Mathematica

Select[Table[Plus@@Prime[Range[n, n + 4]], {n, 200}], PrimeQ] (* Alonso del Arte, Dec 30 2011 *)
Select[Total/@Partition[Prime[Range[200]], 5, 1], PrimeQ] (* Harvey P. Dale, May 24 2012 *)

Crossrefs

Cf. A001043, A011974, A034707, A152468. Also Cf. A034964, of which this sequence is a subset.

Sequence in context: A369101 A115936 A182571 * A363188 A341662 A160029

Adjacent sequences: A034962 A034963 A034964 * A034966 A034967 A034968

Keyword

nonn

Author

Patrick De Geest, Oct 15 1998

Extensions

Corrected example by Paul S. Coombes, Dec 29 2011

Status

approved