This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A098414 #11 Feb 16 2025 08:32:54 %S A098414 7,11,13,17,19,41,43,71,101,103,107,109,193,197,227,229,281,311,313, %T A098414 349,461,463,617,643,823,827,857,859,881,883,1091,1093,1279,1301,1303, %U A098414 1427,1429,1451,1483,1487,1489,1609,1667,1697,1787,1871,1873,1877,1997,1999 %N A098414 Middle members q of prime triples (p,q,r) with p<q<r=p+6. %H A098414 Jean-François Alcover, <a href="/A098414/b098414.txt">Table of n, a(n) for n = 1..10000</a> %H A098414 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrimeTriplet.html">Prime Triplet</a> %t A098414 Reap[For[p = 2, p < 2000, p = NextPrime[p], If[PrimeQ[p + 6], %t A098414 If[PrimeQ[q = p + 2], Sow[q], %t A098414 If[PrimeQ[q = p + 4], Sow[q]]]]]][[2, 1]] (* _Jean-François Alcover_, Dec 12 2021 *) %t A098414 Select[Partition[Prime[Range[400]],3,1],#[[1]]+6==#[[3]]&][[;;,2]] (* _Harvey P. Dale_, May 01 2023 *) %K A098414 nonn %O A098414 1,1 %A A098414 _Reinhard Zumkeller_, Sep 07 2004