A098414 Middle members q of prime triples (p,q,r) with p<q<r=p+6.

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,1

Links

Jean-François Alcover, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Prime Triplet

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 *)

Crossrefs

Sequence in context: A141636 A214786 A176834 * A293201 A110583 A270999

Adjacent sequences: A098411 A098412 A098413 * A098415 A098416 A098417

Keyword

nonn

Author

Reinhard Zumkeller, Sep 07 2004

Status

approved