OFFSET
1,1
COMMENTS
All terms are == 0 (mod 5). - Robert G. Wilson v, Dec 12 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
6*290 + 1 = 1741, 6*290 + 7 = 1747, 6*290 + 13 = 1753, 6*290 + 19 = 1759 and 1741, 1747, 1753, 1759 are consecutive primes, so 290 is a term.
MATHEMATICA
Block[{nn = 50500, s}, s = Select[Prime@ Range@ PrimePi[6 (nn + 3) - 1], Divisible[(# + 1), 6] &]; Select[Range@ nn, And[AllTrue[#, PrimeQ], Count[s, q_ /; First[#] < q < Last@ #] == 0] &@ Map[6 # + 1 &, # + Range[0, 3]] &]] (* Michael De Vlieger, Dec 06 2017 *)
fQ[n_] := Block[{p = {6n +1, 6n +7, 6n +13, 6n +19}}, Union@ PrimeQ@ p == {True} && NextPrime[6n +1, 3] == 6n +19]; Select[5 Range@ 10100, fQ] (* Robert G. Wilson v, Dec 12 2017 *)
PROG
(PARI) isok(n) = my(p, q, r); isprime(p=6*n+1) && ((q=6*n+7) == nextprime(p+1)) && ((r=6*n+13) == nextprime(q+1)) && (6*n+19 == nextprime(r+1)); \\ Michel Marcus, Sep 20 2019
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Pierre CAMI, Dec 09 2003
EXTENSIONS
Missing term 5105 and more terms from Michel Marcus, Sep 20 2019
STATUS
approved