A022545 Initial members of prime nonuplets (p, p+2, p+6, p+8, p+12, p+18, p+20, p+26, p+30).

11, 182403491, 226449521, 910935911, 1042090781, 1459270271, 2843348351, 6394117181, 6765896981, 8247812381, 8750853101, 11076719651, 12850665671, 17140322651, 22784826131, 24816950771, 33081664151

Offset: 1

Author

Warut Roonguthai

Keywords

• nonn

Comments

All terms congruent to 11 (modulo 210). - Matt C. Anderson, May 27 2015

Links

• Matt C. Anderson and Dana Jacobsen, Table of n, a(n) for n = 1..10000 [first 401 terms from Matt C. Anderson]
• Tony Forbes and Norman Luhn, Prime k-tuplets
• 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.

Crossrefs

Cf. A022546, A022547, A022548.

Programs

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

Mathematica

Select[Prime[Range[250000000]], Union[PrimeQ[ # +{2, 6, 8, 12, 18, 20, 26, 30}]]=={True} &] (* Vincenzo Librandi, May 27 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

Perl

use ntheory ":all"; say for sieve_prime_cluster(1,1e11, 2,6,8,12,18,20,26,30); # Dana Jacobsen, Sep 30 2015

Extensions

More terms from Matt C. Anderson