login
A034965
Primes that are sum of five consecutive primes.
15
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
KEYWORD
nonn
AUTHOR
Patrick De Geest, Oct 15 1998
EXTENSIONS
Corrected example by Paul S. Coombes, Dec 29 2011
STATUS
approved