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 A164289 #12 Apr 02 2022 16:16:57
%S A164289 71,107,179,269,311,419,659,827,881,1019,1031,1049,1091,1427,1451,
%T A164289 1607,1931,1949,1997,2027,2141,2309,2549,2711,2729,2789,3329,3467,
%U A164289 3539,3767,3821,3851,4019,4091,4229,4259,4481,4649,4931,5417,5651,5741,5867,6089
%N A164289 Sequence of twin primes p where the middle term p+1 has 5 prime factors (here p+2 is the associated twin prime, not listed).
%C A164289 This sequence is similar to: A060213, with 3 prime factors in the middle number; A102168, with 4 prime factors in the middle number.
%C A164289 These sequences are of the form (p,p+1,p+2) with (p,p+2) twin primes and Omega(p+1)=m with m>=3 (m=1 or m=2 is impossible).
%H A164289 Amiram Eldar, <a href="/A164289/b164289.txt">Table of n, a(n) for n = 1..10000</a>
%e A164289 71 is a term since 71 and 73 are twin primes and Omega(71 + 1) = Omega(72) = Omega(2*2*2*3*3) = 5.
%t A164289 Omega = If[ # == 1, 0, Apply[Plus, Transpose[FactorInteger[ # ]][[2]]]] &; Wmil = Map[Omega, Range[1, 30000]]; Asequence = Flatten@Position[Partition[Wmil, 3, 1], {1, 5, 1}]
%t A164289 Select[Partition[Prime[Range[800]],2,1],#[[2]]-#[[1]]==2&&PrimeOmega[ #[[1]]+1] ==5&][[All,1]] (* _Harvey P. Dale_, Apr 02 2022 *)
%Y A164289 Cf. A060213, A102168, A164290.
%K A164289 nonn
%O A164289 1,1
%A A164289 _Carlos Alves_, Aug 12 2009