A140067 Records in A137849.

1, 2, 4, 6, 8, 12, 16, 18, 24, 30, 36, 42, 48, 60, 72, 84, 90, 96, 108, 120, 144, 168, 180, 192, 210, 216, 240, 252, 264, 288, 300, 312, 324, 336, 360, 384, 396, 408, 420, 432, 468, 480, 504, 528, 540, 576, 600, 648, 660, 672, 720, 756, 780, 792, 816, 840, 900

Offset

1,2

Links

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

Mathematica

f[n_] := f[n] = Block[{c = 1, d = Divisors@n, k = DivisorSigma[0, n], m = 1}, While[m != n, If[Min[PadRight[Divisors@m, k, n] - d] > -1, c++ ]; m++ ]; c]; Do[ f@n, {n, 1000}]; a = 0; lst = {}; Do[ If[f@n > a, a = f@n; AppendTo[lst, n]], {n, 1000}]; lst

Crossrefs

Cf. A137849, A094783.

Sequence in context: A120383 A324842 A055932 * A364157 A067946 A227270

Adjacent sequences: A140064 A140065 A140066 * A140068 A140069 A140070

Keyword

nonn

Author

Robert G. Wilson v, May 04 2008

Status

approved