login
A067388
Initial prime in set of 4 consecutive primes with common gap 48.
14
55410683, 102291263, 141430363, 226383163, 280064453, 457433213, 531290533, 542418463, 555695713, 582949903, 629444003, 664652203, 665813153, 777809113, 802919653, 852404053, 887653633, 894328243, 898734673, 979048313, 993517643
OFFSET
1,1
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
Analogous sequences (with differences in square brackets): A033451[6], A033447[12], A033448[18], A052242[24], A052243[30], A058252[36], A058323[42], this sequence[48].
Sequence in context: A345719 A346360 A234794 * A251380 A269476 A234759
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 21 2002
EXTENSIONS
a(7)-a(21) from Donovan Johnson, Sep 05 2008
STATUS
approved