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
KEYWORD
nonn
AUTHOR
Patrick De Geest, Oct 15 1998
EXTENSIONS
Corrected example by Paul S. Coombes, Dec 29 2011
STATUS
approved