%I #37 Sep 08 2022 08:44:46

%S 11,182403491,226449521,910935911,1042090781,1459270271,2843348351,

%T 6394117181,6765896981,8247812381,8750853101,11076719651,12850665671,

%U 17140322651,22784826131,24816950771,33081664151

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

%C All terms congruent to 11 (modulo 210). - _Matt C. Anderson_, May 27 2015

%H Matt C. Anderson and Dana Jacobsen, <a href="/A022545/b022545.txt">Table of n, a(n) for n = 1..10000</a> [first 401 terms from Matt C. Anderson]

%H Tony Forbes and Norman Luhn, <a href="http://www.pzktupel.de/ktuplets">Prime k-tuplets</a>

%H Norman Luhn, <a href="http://www.pzktupel.de/SMArchiv/09tup1.zip">The first 10^6 initial members of prime 9-tuplets | pattern: d= 0, 2, 6, 8, 12, 18, 20, 26, 30</a>, zip archive.

%t Select[Prime[Range[250000000]], Union[PrimeQ[ # +{2, 6, 8, 12, 18, 20, 26, 30}]]=={True} &] (* _Vincenzo Librandi_, May 27 2015 *)

%o (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

%o (Perl) use ntheory ":all"; say for sieve_prime_cluster(1,1e11, 2,6,8,12,18,20,26,30); # _Dana Jacobsen_, Sep 30 2015

%o (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

%Y Cf. A022546, A022547, A022548.

%K nonn

%O 1,1

%A _Warut Roonguthai_

%E More terms from _Matt C. Anderson_