OFFSET
1,2
COMMENTS
Known ratios are 2,3,4,5,6,7,9,11,13,17,19,20,23,28,29,31,37,41,43,47,53.
EXAMPLE
a(2) is 2 because 1*2=2 is highly composite.
a(3) is 6 because 2*3=6 is highly composite.
a(8) cannot be 5040*8=40320 because 40320 is not a highly composite number.
MATHEMATICA
hcn = Import["https://oeis.org/A002182/b002182.txt", "Table"][[;; , 2]]; seq = {1}; m = ratio = ratioPrev = 1; Do[k = FirstCase[hcn, _?(Divisible[#, m] && (ratio = #/m) > ratioPrev &)]; AppendTo[seq, k]; m = k; ratioPrev = ratio, {21}]; seq (* Amiram Eldar, Dec 16 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. Lowell, Dec 14 2021
EXTENSIONS
More terms from Amiram Eldar, Dec 14 2021
STATUS
approved