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 A046137 #25 Feb 16 2025 08:32:38
%S A046137 7,19,67,97,127,229,397,487,739,757,907,1009,1279,1447,1567,1597,1609,
%T A046137 1867,1999,2239,2269,2377,2539,2659,2707,3037,3217,3319,3457,3529,
%U A046137 3697,3877,3907,3919,4639,4789,4999,5167,5437,5569,5647,5689,5737
%N A046137 Primes p such that p+4 and p+12 are also prime.
%C A046137 All terms == 1 (mod 6). - _Robert Israel_, Jul 24 2015
%H A046137 Robert Israel, <a href="/A046137/b046137.txt">Table of n, a(n) for n = 1..10000</a>
%H A046137 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrimeTriplet.html">Prime Triplet</a>
%F A046137 A023200 INTERSECT A046133. - _R. J. Mathar_, Jan 23 2009
%p A046137 select(t -> isprime(t) and isprime(t+4) and isprime(t+12), [6*i+1 $ i=1..1000]); # _Robert Israel_, Jul 24 2015
%t A046137 Select[Range@ 5760, AllTrue[{#, # + 4, # + 12}, PrimeQ] &] (* _Michael De Vlieger_, Jul 24 2015, Version 10 *)
%t A046137 Select[Prime[Range[800]],AllTrue[#+{4,12},PrimeQ]&] (* _Harvey P. Dale_, Apr 18 2022 *)
%o A046137 (PARI) lista(nn) = forprime(p=2, nn, if (isprime(p+4) && isprime(p+12), print1(p, ", "))); \\ _Michel Marcus_, Jul 24 2015
%K A046137 nonn
%O A046137 1,1
%A A046137 _Eric W. Weisstein_