OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..1000 (terms 1..102 from Zak Seidov)
MATHEMATICA
Transpose[Select[Partition[Prime[Range[10000000]], 4, 1], Union[Differences[#]]=={48}&]][[1]] (* Vincenzo Librandi, Jun 21 2015 *)
PROG
(Python)
from sympy import isprime, nextprime
A067388_list, p = [], 2
q, r, s = p+48, p+96, p+144
while s <= 10**10:
np = nextprime(p)
if np == q and isprime(r) and isprime(s) and nextprime(q) == r and nextprime(r) == s:
A067388_list.append(p)
p, q, r, s = np, np+48, np+96, np+144 # Chai Wah Wu, Jun 01 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 21 2002
EXTENSIONS
a(7)-a(21) from Donovan Johnson, Sep 05 2008
STATUS
approved