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