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 A046136 #27 Feb 16 2025 08:32:38
%S A046136 3,7,13,19,37,43,79,97,103,127,163,223,229,307,349,379,439,457,499,
%T A046136 643,673,853,877,937,967,1009,1087,1093,1213,1279,1297,1423,1429,1483,
%U A046136 1489,1549,1597,1609,1867,1993,2203,2347,2389,2437,2539,2683,2689,2833,2953
%N A046136 Primes p such that p, p+4 and p+10 are primes.
%H A046136 Amiram Eldar, <a href="/A046136/b046136.txt">Table of n, a(n) for n = 1..10000</a>
%H A046136 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrimeTriplet.html">Prime Triplet</a>.
%F A046136 A023200 INTERSECT A023203. - _R. J. Mathar_, Jan 23 2009
%p A046136 q:= p-> andmap(isprime, [p, p+4, p+10]):
%p A046136 select(q, [$2..3000])[]; # _Alois P. Heinz_, Feb 23 2020
%t A046136 Select[Range@ 2820, AllTrue[{#, # + 4, # + 10}, PrimeQ] &] (* _Michael De Vlieger_, Jul 24 2015, Version 10 *)
%o A046136 (PARI) lista(nn) = forprime(p=2, nn, if (isprime(p+4) && isprime(p+10), print1(p, ", "))); \\ _Michel Marcus_, Jul 24 2015
%Y A046136 Cf. A023200, A023203.
%K A046136 nonn
%O A046136 1,1
%A A046136 _Eric W. Weisstein_