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 A157485 #9 Oct 19 2023 18:17:27
%S A157485 271,593,701,751,919,1169,1241,1639,1649,1673,1711,1751,2071,2311,
%T A157485 2393,2549,2551,2609,2729,2861,2863,2897,2899,3185,3331,3569,3631,
%U A157485 3823,3849,3851,3943,3977,4231,4265,4649,4663,5071,5081,5237,5239,5391,5551,5561,5585,5741
%N A157485 Numbers k such that k-+1 are divisible by exactly 5 primes, counted with multiplicity.
%H A157485 Jinyuan Wang, <a href="/A157485/b157485.txt">Table of n, a(n) for n = 1..5000</a>
%t A157485 q=5;lst={};Do[If[Plus@@Last/@FactorInteger[n-1]==q&&Plus@@Last/@FactorInteger[n+1]==q,AppendTo[lst,n]],{n,7!}];lst
%t A157485 Select[Range[6000],PrimeOmega[#+{1,-1}]=={5,5}&] (* _Harvey P. Dale_, Jun 05 2021 *)
%t A157485 Mean/@SequencePosition[PrimeOmega[Range[6000]],{5,_,5}] (* _Harvey P. Dale_, Oct 19 2023 *)
%o A157485 (PARI) is(k) = bigomega(k-1)==5 && bigomega(k+1)==5; \\ _Jinyuan Wang_, Mar 22 2020
%Y A157485 Cf. A014612, A124936, A157483, A157484.
%K A157485 nonn
%O A157485 1,1
%A A157485 _Vladimir Joseph Stephan Orlovsky_, Mar 01 2009
%E A157485 More terms from _Jinyuan Wang_, Mar 22 2020