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