OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..250
MATHEMATICA
lst = {}; s = -1; Do[t = Plus @@ Select[Divisors@n, # < Sqrt@n &]; If[t > s, AppendTo[lst, n]; s = t], {n, 100000}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 03 2008
STATUS
approved