A101937 Numbers n with omega(n) > omega of 2 nearest larger and 2 nearest smaller neighbors.
6, 30, 42, 60, 66, 70, 78, 84, 90, 102, 105, 110, 114, 120, 126, 150, 165, 174, 186, 190, 195, 198, 204, 210, 234, 246, 252, 255, 270, 273, 276, 290, 294, 300, 315, 318, 322, 330, 336, 345, 354, 357, 360, 385, 390, 396, 399, 402, 414, 420
Offset: 1
Examples
150 is in the sequence because it has three unique prime factors (2,3 and 5), whereas 148, 149, 151 and 152 each have fewer.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
For[i=2, i<1000, If[And[Length[FactorInteger[i-2]]
{a,b,d,e}]; Flatten[Position[ Partition[ PrimeNu[Range[500]],5,1],?(gr3Q[#]&)]]+2 (* _Harvey P. Dale, Dec 17 2014 *)
Comments