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 A168628 #6 Jan 25 2025 00:20:38
%S A168628 37961,44485,45695,50141,51429,55131,55385,61335,63365,64295,67165,
%T A168628 68265,68475,70005,70091,71709,72709,76153,80445,81549,81719,82041,
%U A168628 84435,85491,86241,90364,95381,97383,98021,99085,99385,99429,99789,100165,100491,100595
%N A168628 Numbers n such that n and n+-1 have 4 distinct prime factors.
%t A168628 f[n_]:=Length[FactorInteger[n]]; lst={};Do[If[f[n]>=4&&f[n-1]>=4&&f[n+1]>=4,AppendTo[lst,n]],{n,9!}];lst
%t A168628 SequencePosition[PrimeNu[Range[110000]],{4,4,4}][[All,1]]+1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 27 2018 *)
%o A168628 (PARI) is(n)=omega(n)==4 && omega(n+1)==4 && omega(n-1)==4 \\ _Charles R Greathouse IV_, Jan 25 2025
%Y A168628 Subsequence of A140078.
%Y A168628 Cf. A140077, A168626
%K A168628 nonn
%O A168628 1,1
%A A168628 _Vladimir Joseph Stephan Orlovsky_, Dec 01 2009
%E A168628 Corrected and extended by _Harvey P. Dale_, Apr 27 2018