|
|
A022012
|
|
Initial members of prime octuplets (p, p+2, p+6, p+12, p+14, p+20, p+24, p+26).
|
|
44
|
|
|
17, 1277, 113147, 2580647, 20737877, 58208387, 73373537, 76170527, 100658627, 134764997, 137943347, 165531257, 171958667, 224008217, 252277007, 294536147, 309740987, 311725847, 364154027, 408936947, 515447747, 521481197, 528272177, 619010297, 626927447, 682809977
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[2 10^9]], Union[PrimeQ[# + {2, 6, 12, 14, 20, 24, 26}]] == {True} &] (* Vincenzo Librandi, Oct 01 2015 *)
|
|
PROG
|
(Perl) use ntheory ":all"; say for sieve_prime_cluster(1, 1e10, 2, 6, 12, 14, 20, 24, 26); # Dana Jacobsen, Sep 30 2015
(Magma) [p: p in PrimesUpTo(4*10^8) | forall{p+r: r in [2, 6, 12, 14, 20, 24, 26] | IsPrime(p+r)}]; // Vincenzo Librandi, Oct 01 2015
(PARI) forprime(p=2, 10^30, if (isprime(p+2) && isprime(p+6) && isprime(p+12) && isprime(p+14) && isprime(p+20) && isprime(p+24) && isprime(p+26), print1(p", "))) \\ Altug Alkan, Oct 01 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|