A098414 Middle members q of prime triples (p,q,r) with p

7, 11, 13, 17, 19, 41, 43, 71, 101, 103, 107, 109, 193, 197, 227, 229, 281, 311, 313, 349, 461, 463, 617, 643, 823, 827, 857, 859, 881, 883, 1091, 1093, 1279, 1301, 1303, 1427, 1429, 1451, 1483, 1487, 1489, 1609, 1667, 1697, 1787, 1871, 1873, 1877, 1997, 1999

Offset: 1

Author

Reinhard Zumkeller, Sep 07 2004

Keywords

• nonn

Links

• Jean-François Alcover, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Prime Triplet

Programs

Mathematica

Reap[For[p = 2, p < 2000, p = NextPrime[p], If[PrimeQ[p + 6],
     If[PrimeQ[q = p + 2], Sow[q],
If[PrimeQ[q = p + 4], Sow[q]]]]]][[2, 1]] (* Jean-François Alcover, Dec 12 2021 *)
Select[Partition[Prime[Range[400]],3,1],#[[1]]+6==#[[3]]&][[;;,2]] (* Harvey P. Dale, May 01 2023 *)