%I A101932
%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).
%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++ ]
%Y A101932 Cf. A001221.
%Y A101932 Sequence in context: A107328 A129285 A051440 this_sequence A073313 A155701 
               A119529
%Y A101932 Adjacent sequences: A101929 A101930 A101931 this_sequence A101933 A101934 
               A101935
%K A101932 easy,nonn
%O A101932 1,1
%A A101932 N. Fernandez (primeness(AT)borve.org), Dec 21 2004