A173570 Where A174102 sets a new record.

1, 3, 8, 15, 24, 36, 48, 72, 96, 140, 180, 280, 336, 420, 480, 672, 864, 900, 1008, 1080, 1260, 1980, 2340, 3744, 4032, 4680, 6048, 9450, 11088, 11880, 13440, 16632, 17280, 30888, 32400, 33264, 33600, 44352, 46800, 47520, 63360, 66528, 71280, 84240

Offset: 1

Author

Robert G. Wilson v, Feb 22 2010

Keywords

• nonn

Links

• Robert G. Wilson v, Table of n, a(n) for n = 1..109

Crossrefs

Cf. A137921, A173569.

Programs

Mathematica

f[n_] := Length@ Split[ Divisors@n, #2 - #1 == 1 &] (* f(n) from Dr. Bobby R. Treat *); t = Table[0, {1000}]; k = 1; While[k < 10^9, a = f@k; If[a < 101 && t[[a]] == 0, t[[a]] = k; Print[{k, a}]]; k++ ]; lst = {1}; m = 1; While[m < 1001, If[ t[[m]] > lst[[ -1]], AppendTo[ lst, t[[m]]]]; m++ ]; lst