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
KEYWORD
nonn
AUTHOR
David A. Corneth, Jan 04 2020
STATUS
approved