OFFSET
0,3
MATHEMATICA
f[n_] := Block[{ds = Divisors@n, k = 1, mx = 0}, len = Length@ds; While[k < len, a = Length@Select[Take[ds, {k, len}], ds[[k]]*E > # &]; If[a > mx, mx = a]; k++]; mx]; t[_] := 0; k = 1; While[k < 10^6, a = f@k; If[ t[a] == 0, t[a] = k]; k++]; t@# & /@ Range@60]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 20 2019
STATUS
approved