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 A168626 #7 Jan 25 2025 00:15:31
%S A168626 645,741,805,987,1035,1065,1105,1221,1275,1309,1310,1463,1495,1581,
%T A168626 1749,1885,1886,1925,1989,2014,2015,2109,2135,2211,2255,2261,2289,
%U A168626 2295,2331,2355,2365,2379,2409,2465,2485,2541,2584,2585,2665,2666,2667,2679,2685
%N A168626 Numbers n such that n and n+-1 have 3 or more distinct prime factors.
%F A168626 a(n) ~ n. - _Charles R Greathouse IV_, Jan 25 2025
%t A168626 f[n_]:=Length[FactorInteger[n]]; lst={};Do[If[f[n]>=3&&f[n-1]>=3&&f[n+1]>=3,AppendTo[lst,n]],{n,7!}];lst
%t A168626 Mean/@SequencePosition[Table[If[PrimeNu[n]>2,1,0],{n,2700}],{1,1,1}] (* The program uses the SequencePosition function from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 05 2016 *)
%o A168626 (PARI) is(n)=omega(n)>2 && omega(n-1)>2 && omega(n+1)>2 \\ _Charles R Greathouse IV_, Jan 25 2025
%Y A168626 Subsequence of A321503 and hence of A000977.
%Y A168626 Cf. A140077
%K A168626 nonn
%O A168626 1,1
%A A168626 _Vladimir Joseph Stephan Orlovsky_, Dec 01 2009
%E A168626 Definition clarified by _Harvey P. Dale_, Jun 05 2016