login
A328519
Terms in A002182 sorted by their Omega values (their number of prime factors counted with multiplicity).
0
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,2
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 *)
PROG
(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
CROSSREFS
Cf. A001222 (bigomega), A002182 (Highly Composite Numbers).
Cf. A112778 (bigomega of HCNs).
Sequence in context: A349424 A134865 A140753 * A234517 A236021 A340637
KEYWORD
nonn
AUTHOR
David A. Corneth, Jan 04 2020
STATUS
approved