OFFSET
1,1
LINKS
OEIS Wiki, Consecutive primes in arithmetic progression, updated Jan. 2020.
MATHEMATICA
Select[Partition[Prime[Range[900000]], 3, 1], Differences[#]=={48, 48}&] [[All, 1]] (* Harvey P. Dale, Aug 23 2021 *)
PROG
(PARI) vecextract( A134123, select(t->t==48, A134123[^1]-A134123[^-1], 1)) \\ Terms of A134123 with indices corresponding to first differences of 48: gives a(1..56) from A134123(1..10^4).
(Magma) [p:p in PrimesUpTo(14000000)| NextPrime(p)-p eq 48 and NextPrime(p+48)-p eq 96]; // Marius A. Burtea, Jan 03 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 02 2020
STATUS
approved