OFFSET
1,3
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..863
MATHEMATICA
f[n_] := DivisorSigma[1, n] - DivisorSigma[0, n] - n + 1; t = Array[f, 10000]; lst = {}; a = -1; Do[ If[ t[[n]] > a, a = t[[n]]; AppendTo[lst, a]], {n, 10000}]; lst (* Robert G. Wilson v, Dec 21 2008 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Dec 15 2008
EXTENSIONS
Extended by Robert G. Wilson v, Dec 21 2008
STATUS
approved