%I #4 Mar 30 2012 17:31:23
%S 1,2,4,6,8,12,16,18,24,30,36,42,48,60,72,84,90,96,108,120,144,168,180,
%T 192,210,216,240,252,264,288,300,312,324,336,360,384,396,408,420,432,
%U 468,480,504,528,540,576,600,648,660,672,720,756,780,792,816,840,900
%N Records in A137849.
%H Robert G. Wilson v, <a href="/A140067/b140067.txt">Table of n, a(n) for n = 1..266</a>.
%t 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
%Y Cf. A137849, A094783.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, May 04 2008