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 A101932 #15 Apr 18 2018 09:48:14
%S A101932 3,4,8,21,34,35,39,45,51,55,56,57,75,76,86,87,92,93,94,95,99,116,117,
%T A101932 118,123,134,135,142,143,144,145,146,147,159,160,161,176,177,184,188,
%U A101932 201,202,206,207,208,213,214,215,216,217,218,225
%N A101932 Numbers n with omega(n) equal to omega(n-1) and omega (n+1).
%H A101932 G. C. Greubel, <a href="/A101932/b101932.txt">Table of n, a(n) for n = 1..5000</a>
%e A101932 45 is in the sequence because it has 2 prime factors (3 and 5) as do 44 (2 and 11) and 46 (2 and 23).
%t A101932 For[i=1, i<1000, If[And[Length[FactorInteger[i-1]]==Length[FactorInteger[i]], Length[FactorInteger[i+1]]==Length[FactorInteger[i]]], Print[i]];i++ ]
%t A101932 Select[Range[2, 225], PrimeNu[#] == PrimeNu[# - 1] == PrimeNu[# + 1] &] (* _Jayanta Basu_, Aug 11 2013 *)
%t A101932 SequencePosition[PrimeNu[Range[300]],{x_,x_,x_}][[All,1]]+1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 18 2018 *)
%o A101932 (PARI) isok(n) = (omega(n) == omega(n-1)) && (omega(n)==omega(n+1)) \\ _Michel Marcus_, May 05 2017
%Y A101932 Cf. A001221.
%Y A101932 Subsequence of A006049.
%K A101932 easy,nonn
%O A101932 1,1
%A A101932 _Neil Fernandez_, Dec 21 2004