login
A152911
Records in A152770.
1
0, 1, 3, 4, 5, 11, 16, 17, 29, 35, 47, 67, 97, 112, 129, 133, 145, 161, 225, 245, 297, 349, 351, 369, 485, 514, 551, 637, 787, 901, 1009, 1033, 1117, 1237, 1333, 1669, 2009, 2061, 2187, 2489, 2615, 3073, 3439, 3449, 4233, 4537, 4809, 5241, 5269, 5377, 6793
OFFSET
1,3
LINKS
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
Cf. A152770.
Sequence in context: A214256 A067532 A276470 * A317768 A362665 A293713
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Dec 15 2008
EXTENSIONS
Extended by Robert G. Wilson v, Dec 21 2008
STATUS
approved