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 A089152 #18 Sep 08 2022 08:45:12
%S A089152 3,11,13,19,31,41,59,71,73,101,139,193,239,269,271,313,349,433,521,
%T A089152 643,823,829,881,1051,1061,1093,1621,1669,1723,1951,2549,2999,3359,
%U A089152 3373,3463,3469,3583,4019,4219,4481,4483,4519,5233,5639,5881,6089,6131,6133
%N A089152 Primes p such that 6*p-7 and 6*p-5 are twin primes and p is also a twin prime.
%H A089152 Robert Israel, <a href="/A089152/b089152.txt">Table of n, a(n) for n = 1..5462</a>
%e A089152 6*19-7 = 107, 6*19-5 = 109, 107 and 109 are twin primes and 19 has 17 as twin.
%p A089152 P:= {seq(ithprime(i),i=1..20000)}:
%p A089152 A:= P intersect (map(`-`,P,2) union map(`+`,P,2)) intersect map(t -> (t+5)/6, P) intersect map(t -> (t+7)/6, P):
%p A089152 sort(convert(A,list)); # _Robert Israel_, Jan 16 2019
%o A089152 (Magma) [p: p in PrimesUpTo(6500) |(IsPrime(p-2) or IsPrime(p+2)) and IsPrime(6*p-5) and IsPrime(6*p-7)]; // _Vincenzo Librandi_, Jan 17 2019
%Y A089152 Subsequence of A089151.
%K A089152 easy,nonn
%O A089152 1,1
%A A089152 _Pierre CAMI_, Dec 06 2003
%E A089152 2 and 173 removed by _R. J. Mathar_, Nov 13 2009