|
|
A022545
|
|
Initial members of prime nonuplets (p, p+2, p+6, p+8, p+12, p+18, p+20, p+26, p+30).
|
|
34
|
|
|
11, 182403491, 226449521, 910935911, 1042090781, 1459270271, 2843348351, 6394117181, 6765896981, 8247812381, 8750853101, 11076719651, 12850665671, 17140322651, 22784826131, 24816950771, 33081664151
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
Norman Luhn, The first 10^6 initial members of prime 9-tuplets | pattern: d= 0, 2, 6, 8, 12, 18, 20, 26, 30, zip archive.
|
|
MATHEMATICA
|
Select[Prime[Range[250000000]], Union[PrimeQ[ # +{2, 6, 8, 12, 18, 20, 26, 30}]]=={True} &] (* Vincenzo Librandi, May 27 2015 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(250000000) | forall{p+r: r in [2, 6, 8, 12, 18, 20, 26, 30] | IsPrime(p+r)}]; // Vincenzo Librandi, May 27 2015
(Perl) use ntheory ":all"; say for sieve_prime_cluster(1, 1e11, 2, 6, 8, 12, 18, 20, 26, 30); # Dana Jacobsen, Sep 30 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) && isprime(p+30), print1(p", "))) \\ Altug Alkan, Sep 30 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|