|
|
A022011
|
|
Initial members of prime octuplets (p, p+2, p+6, p+8, p+12, p+18, p+20, p+26).
|
|
41
|
|
|
11, 15760091, 25658441, 93625991, 182403491, 226449521, 661972301, 910935911, 1042090781, 1071322781, 1170221861, 1394025161, 1459270271, 1712750771, 1742638811, 1935587651, 2048038451, 2397437501, 2799645461
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
REFERENCES
|
Martin Gardner, The Last Recreations (Springer-Verlag 1997) at 197.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[2 10^9]], Union[PrimeQ[# + {2, 6, 8, 12, 18, 20, 26}]] == {True} &] (* Vincenzo Librandi, Oct 01 2015 *)
|
|
PROG
|
(Perl) use ntheory ":all"; say for sieve_prime_cluster(1, 1e10, 2, 6, 8, 12, 18, 20, 26); # Dana Jacobsen, Sep 30 2015
(Magma) [p: p in PrimesUpTo(4*10^8) | forall{p+r: r in [2, 6, 8, 12, 18, 20, 26] | IsPrime(p+r)}]; // Vincenzo Librandi, Oct 01 2015
(PARI) forprime(p=2, 10^30, if (isprime(p+2) && isprime(p+6) && isprime(p+8) && isprime(p+12) && isprime(p+18) && isprime(p+20) && isprime(p+26), print1(p", "))) \\ Altug Alkan, Oct 01 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|