OFFSET
1,1
COMMENTS
All terms but the first == 17 or 29 (mod 30).
Thus the least possible difference between successive terms is 12.
The first terms p such that p+12 is also a term are 3518687, 5412257, 9447017, 10454177, 45093887, 58628777, 94327967.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(4)=227 is a member because 227, 4 * 227 + 3 = 911, 6 * 227 + 5 = 1367, and 8 * 227 + 7 = 1823 are all primes.
MAPLE
filter:= p -> isprime(p) and isprime(4*p+3) and isprime(6*p+5) and isprime(8*p+7):
select(filter, [2, seq(i, i=5..100000, 6)]);
MATHEMATICA
Select[Prime[Range[5000]], AllTrue[{4#+3, 6#+5, 8#+7}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 08 2021 *)
PROG
(Magma) [p:p in PrimesUpTo(50000)|forall{m: m in [-2*p-2, 0, 2*p+2]| IsPrime(6*p+5+m)}]; // Marius A. Burtea, Nov 17 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Nov 16 2019
STATUS
approved
