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 A046134 #31 Feb 16 2025 08:32:38
%S A046134 3,5,11,29,59,71,101,149,191,269,431,569,599,821,1031,1061,1229,1289,
%T A046134 1319,1451,1481,1619,1871,2081,2129,2339,2381,2549,2711,2789,3251,
%U A046134 3299,3461,3539,4019,4049,4091,4649,4721,5099,5441,5519,5639,5651
%N A046134 p, p+2 and p+8 are primes.
%H A046134 Robert Israel, <a href="/A046134/b046134.txt">Table of n, a(n) for n = 1..10000</a>
%H A046134 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrimeTriplet.html">Prime Triplet.</a>
%p A046134 for a from 3 by 2 to 10000 do
%p A046134 if `and`(isprime(a), isprime(a+2), isprime(a+8)) then print(a); end if;
%p A046134 end do;
%p A046134 # _Matt C. Anderson_, Jul 26 2015
%t A046134 Select[Range@ 5680, AllTrue[{#, # + 2, # + 8}, PrimeQ] &] (* _Michael De Vlieger_, Jul 24 2015, Version 10 *)
%t A046134 Select[Prime[Range[800]], And@@PrimeQ[{# + 2, # + 8}] &] (* _Vincenzo Librandi_, Jul 27 2015 *)
%o A046134 (Magma) [p: p in PrimesUpTo(6000) |IsPrime(p+2) and IsPrime(p+8)]; // _Vincenzo Librandi_, Jul 27 2015
%K A046134 nonn,easy
%O A046134 1,1
%A A046134 _Eric W. Weisstein_