%I A101934
%S A101934 11,13,19,23,25,27,29,37,41,43,47,49,53,59,61,64,67,71,73,79,81,83,89,
%T A101934 97,101,103,107,109,113,121,125,131,137,139,149,151,155,157,163,167,169,
%U A101934 173,179,181,191,193,197,199,211,221,223,227
%N A101934 Numbers n with omega(n) smaller than omega(n-1) and omega (n+1).
%e A101934 125 is in the sequence because it has one unique prime factor (5), which 
               is fewer than its neighbors 124 (two such factors, namely 2 and 31) 
               and 126 (two such factors, namely 2 and 53).
%t A101934 For[i=2, i<1000, If[And[Length[FactorInteger[i-1]]>Length[FactorInteger[i]], 
               Length[FactorInteger[i+1]]>Length[FactorInteger[i]]], Print[i]];i++ 
               ]
%Y A101934 Cf. A001221, A101932, A076763.
%Y A101934 Sequence in context: A057891 A164708 A030792 this_sequence A164861 A040150 
               A068801
%Y A101934 Adjacent sequences: A101931 A101932 A101933 this_sequence A101935 A101936 
               A101937
%K A101934 easy,nonn
%O A101934 1,1
%A A101934 N. Fernandez (primeness(AT)borve.org), Dec 21 2004