OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 13 is a term because 13 is prime, the next prime is 17, (13+17)/6 = 5 is prime, and 6*13 = 78 = 37 + 41 is the sum of consecutive primes.
MAPLE
filter:= proc(p) local q;
if not isprime(p) then return false fi;
q:= prevprime(3*p);
if q + nextprime(q) <> 6*p then return false fi;
q:= (p+nextprime(p))/6;
q::integer and isprime(q)
end proc:
select(filter, [seq(i, i=3..10^5, 2)]);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Dec 16 2020
STATUS
approved