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 A195118 #12 Feb 16 2025 08:33:15
%S A195118 55,91,187,247,275,385,391,605,637,667,1001,1147,1183,1375,1591,1925,
%T A195118 1927,2057,2431,2491,2695,3025,3127,3179,3211,4087,4199,4235,4459,
%U A195118 4693,4891,5767,6647,6655,6875,7007,7387,7429,8281,8993,9625,9991,10807,11011
%N A195118 Numbers with largest and smallest prime factors differing by 6.
%H A195118 Reinhard Zumkeller, <a href="/A195118/b195118.txt">Table of n, a(n) for n = 1..250</a>
%H A195118 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SexyPrimes.html">Sexy Primes</a>. [The definition in this webpage is unsatisfactory, because it defines a "sexy prime" as a pair of primes.- _N. J. A. Sloane_, Mar 07 2021]
%e A195118 a(10) = 667 = 23 * 29;
%e A195118 a(11) = 1001 = 7 * 11 * 13;
%e A195118 a(12) = 1147 = 31 * 37;
%e A195118 a(13) = 1183 = 7 * 13^2.
%t A195118 spf6Q[n_]:=With[{fi=FactorInteger[n]},fi[[-1,1]]-fi[[1,1]]==6]; Select[Range[12000],spf6Q] (* _Harvey P. Dale_, May 14 2024 *)
%o A195118 (Haskell)
%o A195118 a195118 n = a195118_list !! (n-1)
%o A195118 a195118_list = filter f [3,5..] where
%o A195118 f x = last pfs - head pfs == 6 where pfs = a027748_row x
%Y A195118 Cf. A195106, A111192; A143205 is a subsequence.
%K A195118 nonn
%O A195118 1,1
%A A195118 _Reinhard Zumkeller_, Sep 13 2011