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,2

Links

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

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

Crossrefs

Cf. A137921, A173569.

Sequence in context: A066079 A185079 A173569 * A060615 A274696 A367064

Adjacent sequences: A173567 A173568 A173569 * A173571 A173572 A173573

Keyword

nonn

Author

Robert G. Wilson v, Feb 22 2010

Status

approved