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,2

Links

Table of n, a(n) for n=1..43.

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

Adjacent sequences: A328516 A328517 A328518 * A328520 A328521 A328522

Keyword

nonn

Author

David A. Corneth, Jan 04 2020

Status

approved