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 A157486 #4 Sep 23 2019 15:37:20 %S A157486 1889,3079,4591,5023,6175,6641,7649,9881,10961,11501,11935,12689, %T A157486 13751,14417,15499,15713,16687,18017,18089,18271,19169,19249,19889, %U A157486 19951 %N A157486 Numbers n such that n-+1 are divisible by exactly 6 primes, counted with multiplicity. %H A157486 Harvey P. Dale, <a href="/A157486/b157486.txt">Table of n, a(n) for n = 1..4000</a> %t A157486 q=6;lst={};Do[If[Plus@@Last/@FactorInteger[n-1]==q&&Plus@@Last/@FactorInteger[n+1]==q,AppendTo[lst,n]],{n,9!}];lst %t A157486 Mean/@SequencePosition[PrimeOmega[Range[20000]],{6,_,6}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 23 2019 *) %Y A157486 Cf. A124936, A014612, A157483, A157484, A157485 %K A157486 nonn %O A157486 1,1 %A A157486 _Vladimir Joseph Stephan Orlovsky_, Mar 01 2009