OFFSET
1,1
COMMENTS
Equivalently, primes that are the sum of 5 alternate primes. - Muniru A Asiru, Feb 12 2018
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000
EXAMPLE
71 is prime and equal to 3 + 7 + 13 + 19 + 29, so 71 is a term.
MAPLE
p:=ithprime: select(isprime, [seq(sum(p(2*i-1+k), i=1..5), k=0..180)]); # Muniru A Asiru, Feb 12 2018
MATHEMATICA
Select[Total /@ Table[Prime[n + m], {n, 200}, {m, 0, 8, 2}], PrimeQ] (* Harvey P. Dale, May 02 2011 *)
PROG
(GAP) P:=Filtered([1..5000], IsPrime);; Filtered(List([0..200], k-> Sum([1..5], i -> P[2*i-1+k])), IsPrime); # Muniru A Asiru, Feb 12 2018
(Magma) [p: k in [1..200] | IsPrime(p) where p is &+[NthPrime(k+2*i): i in [0..4]]]; // Bruno Berselli, Feb 13 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Benoit Cloitre, Feb 28 2002
STATUS
approved