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 A060211 #43 Mar 17 2025 02:43:37
%S A060211 7,13,19,73,109,193,433,1153,2593,139969,472393,786433,995329,
%T A060211 57395629,63700993,169869313,4076863489,10871635969,2348273369089,
%U A060211 56358560858113,79164837199873,84537841287169,150289495621633,578415690713089,1141260857376769,57711166318706689
%N A060211 Larger term of a pair of twin primes such that the prime factors of their average are only 2 and 3. Proper subset of A058383.
%C A060211 Larger of twin primes p such that p-1 = (2^u)*(3^w), u,w >= 1.
%H A060211 Ray Chandler, <a href="/A060211/b060211.txt">Table of n, a(n) for n = 1..61</a> (terms < 10^1000)
%H A060211 Harsh Aggarwal, <a href="/A060211/a060211_1.txt">Table of n, a(n) for n = 62..91</a> (terms from 10^1000 to 10^20000)
%F A060211 a(n) = A027856(n+1) + 1. - _Amiram Eldar_, Mar 17 2025
%e A060211 a(4) = 73, {71,73} are twin primes and (71 + 73)/2 = 72 = 2*2*2*3*3.
%t A060211 Take[Select[Sort[Flatten[Table[2^a 3^b,{a,250},{b,250}]]],AllTrue[#+{1,-1},PrimeQ]&]+1,23] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Apr 17 2019 *)
%o A060211 (PARI) isok(p) = isprime(p) && isprime(p-2) && (vecmax(factor(p-1)[,1]) == 3); \\ _Michel Marcus_, Sep 05 2017
%Y A060211 Cf. A001454, A002822, A027856, A033845, A058383, A059960.
%K A060211 nonn
%O A060211 1,1
%A A060211 _Labos Elemer_, Mar 20 2001
%E A060211 Name corrected by _Sean A. Irvine_, Oct 31 2022