OFFSET
1,1
COMMENTS
Corresponds to two consecutive 12's in A001223. - - M. F. Hasler, Jan 02 2020
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
OEIS wiki, Consecutive primes in arithmetic progression: CPAP with given gap, updated Jan. 2020
EXAMPLE
a(1)=199, followed by 199+12=211, 199+12+12=223 consecutive primes.
MATHEMATICA
Transpose[Select[Partition[Prime[Range[3800]], 3, 1], Union[Differences[#]] =={12}&]][[1]] (* Harvey P. Dale, Apr 26 2011 *)
PROG
(PARI) lista(nn) = {forprime(p=1, nn, q = nextprime(p+1); r = nextprime(q+1); if ((r-q==12) && (q-p==12), print1(p, ", ")); ); } \\ Michel Marcus, Jun 27 2015
(Magma) [p:p in PrimesUpTo(36000)| NextPrime(p)-p eq 12 and NextPrime(p+12)-p eq 24]; // Marius A. Burtea, Jan 03 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 28 2000
EXTENSIONS
Name changed by Jon E. Schoenfield, May 30 2018
STATUS
approved