OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 137 is a term because 137 and 139 are primes and 4*137 = 548 is the sum of consecutive primes 271 and 277.
MAPLE
P:= select(isprime, {seq(i, i=3..100000, 2)}):
T:= P intersect map(`-`, P, 2):
sort(convert(select(r -> prevprime(2*r)+nextprime(2*r)=4*r, T), list));
MATHEMATICA
Select[Plus @@@ Partition[Select[Range[10^5], PrimeQ], 2, 1]/4, And @@ PrimeQ[# + {0, 2}] &] (* Amiram Eldar, Jan 13 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jan 12 2022
STATUS
approved