OFFSET
1,2
LINKS
Leonidas Alaoglu and Paul Erdős, On highly composite and similar numbers, Transactions of the American Mathematical Society, Vol. 56, No. 3 (1944), pp. 448-469.
MATHEMATICA
seq={1}; sm = 0; Do[s = DivisorSigma[1, n]; If[s>sm, sm = s; If[ Min @ FactorInteger[n][[;; , 2]] > 1, AppendTo[seq, n]]], {n, 2, 72000}]; seq
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Amiram Eldar, Mar 01 2019
STATUS
approved