login
Table read by rows: list of prime triples of the form (p, p+2, p+6).
2

%I #12 Apr 03 2023 10:36:13

%S 5,7,11,11,13,17,17,19,23,41,43,47,101,103,107,107,109,113,191,193,

%T 197,227,229,233,311,313,317,347,349,353,461,463,467,641,643,647,821,

%U 823,827,857,859,863,881,883,887,1091,1093,1097,1277,1279,1283,1301,1303,1307

%N Table read by rows: list of prime triples of the form (p, p+2, p+6).

%C A prime triple is a set of three prime numbers of the form (p, p+2, p+6) or (p, p+4, p+6).

%C Initial members p (other than 5) of prime triples of the form (p, p+2, p+6) are congruent to 11 or 17 (mod 30).

%C Also called prime triples of the first kind.

%H C. K. Caldwell, Top Twenty page, <a href="https://t5k.org/top20/page.php?id=61">Triplet</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeTriplet.html">Prime Triplet</a>

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Prime_triple">Prime triple</a>

%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>

%F a(3*n-2) = A022004(n).

%e The table starts:

%e 5, 7, 11;

%e 11, 13, 17;

%e 17, 19, 23;

%e ...

%t Prime@ Range[#, # + 2] &@ PrimePi@ Select[Prime@ Range@ 216, Times @@ Boole@ PrimeQ[# + {2, 6}] > 0 &] // Flatten (* _Michael De Vlieger_, Aug 02 2016 *)

%o (Magma) &cat[[p, p+2, p+6]: p in PrimesUpTo(1301) | (p le 5 xor p mod 30 in {11, 17}) and IsPrime(p+2) and IsPrime(p+6)];

%Y Cf. A022004, A077800, A136162, A270998, A275516.

%K nonn,tabf

%O 1,1

%A _Arkadiusz Wesolowski_, Jul 31 2016