OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..245
FORMULA
MATHEMATICA
nn = 1000; s = Table[0, {nn}]; Do[k = DivisorSigma[1, n] - n; If[0 < k <= nn, s[[k]]++], {n, nn^2}]; mx = -1; t = {}; Do[If[s[[n]] > mx, mx = s[[n]]; AppendTo[t, {n, mx}]], {n, 2, nn}]; Transpose[t][[2]]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 10 2014
STATUS
approved