A328519 Terms in A002182 sorted by their Omega values (their number of prime factors counted with multiplicity).

1, 2, 4, 6, 12, 24, 36, 60, 48, 120, 180, 240, 360, 840, 1260, 720, 1680, 2520, 5040, 7560, 27720, 10080, 15120, 25200, 55440, 83160, 20160, 45360, 50400, 110880, 166320, 277200, 720720, 1081080, 221760, 332640, 498960, 554400, 1441440, 2162160, 3603600, 665280, 2882880

Offset: 1

Author

David A. Corneth, Jan 04 2020

Keywords

• nonn

Crossrefs

Cf. A001222 (bigomega), A002182 (Highly Composite Numbers).

Cf. A112778 (bigomega of HCNs).

Programs

Mathematica

With[{s = Array[DivisorSigma[0, #] &, 3*10^6]}, SortBy[#, PrimeOmega] &@ Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]]
(* or, using the b-file at A002182: *)
Take[SortBy[Import["https://oeis.org/b002182.txt", "Data"][[All, -1]], PrimeOmega], 43] (* Michael De Vlieger, Jan 19 2020 *)

PARI

vecextract(A2182,vecsort(v112778,,1)) \\ v112778=apply(bigomega,A2182[1..N]) or from b-file; A2182 must be a vector of values of A002182. - M. F. Hasler, Jan 08 2020