Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Sep 23 2021 17:47:39
%S 1,3,5,7,11,13,15,17,19,23,26,29,31,35,37,39,41,43,47,49,51,53,55,59,
%T 61,62,63,65,67,69,71,73,74,77,79,83,87,89,91,95,97,99,101,103,107,
%U 109,111,113,115,119,123,125,127,129,131,134,137,139,143,146,149
%N Positive integers n with fewer prime factors (counted with multiplicity) than n + 1.
%H Harvey P. Dale, <a href="/A322840/b322840.txt">Table of n, a(n) for n = 1..1000</a>
%e 49 = 7*7 has two prime factors, while 50 = 2*5*5 has three, so 49 belongs to the sequence.
%t Select[Range[100],PrimeOmega[#]<PrimeOmega[#+1]&]
%t Position[Partition[PrimeOmega[Range[150]],2,1],_?(#[[1]]< #[[2]]&),1,Heads->False]//Flatten (* _Harvey P. Dale_, Sep 23 2021 *)
%o (PARI) isok(n) = bigomega(n) < bigomega(n+1); \\ _Michel Marcus_, Dec 29 2018
%Y Cf. A001222, A006049, A045920, A294277, A294278, A302242, A322837, A322838, A322839.
%K nonn
%O 1,2
%A _Gus Wiseman_, Dec 28 2018