|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
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:
p, q, r, s = np, np+48, np+96, np+144 # Chai Wah Wu, Jun 01 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|