OFFSET
1,1
COMMENTS
If v is prime such that v-26, v-24, 6*v-1 and 6*v+1 are prime, then 6*v-1 is in the sequence. Dickson's conjecture implies there are infinitely many terms of this form.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
P:= select(isprime, [seq(i, i=3..2000, 2)]):
Res:= NULL:
for i from 1 to nops(P)-1 do
m:= (P[i]+P[i+1])/2;
L:= ifactors(m)[2];
M:= convert(map(convert, L, `*`), `+`);
if isprime(P[i] mod M) and isprime(P[i+1] mod M) then
Res:= Res, P[i]
fi
od:
Res;
PROG
(Magma) [p:p in PrimesUpTo(1700)|IsPrime(p mod s) and IsPrime(NextPrime(p) mod s) where s is &+[j[1]*j[2]: j in Factorization((p+NextPrime(p)) div 2)] ]; // Marius A. Burtea, Nov 13 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Nov 13 2019
STATUS
approved