login
Even numbers k having fewer prime factors, counted with multiplicity, than k-1.
0

%I #34 May 16 2023 08:14:14

%S 46,82,106,118,166,190,226,244,262,274,298,316,326,334,346,358,386,

%T 406,442,466,478,514,526,562,568,586,622,626,676,694,706,730,766,778,

%U 802,826,838,862,886,892,898,926,946,958,982,1006,1018,1030,1046,1054,1090

%N Even numbers k having fewer prime factors, counted with multiplicity, than k-1.

%e 46 = 2*23, so A001222(46) = 2, and 45 = 3*3*5, so A001222(45) = 3, thus 46 is a term of the sequence.

%t Select[2Range[550],PrimeOmega[#]<PrimeOmega[#-1]&] (* _Stefano Spezia_, May 15 2023 *)

%o (PARI) isok(n) = n%2==0 && bigomega(n) < bigomega(n-1) \\ _Andrew Howroyd_, May 14 2023

%Y Cf. A001222 (bigomega), A339910 (both odd and even).

%K nonn

%O 1,1

%A _Alexandre Herrera_, May 14 2023