A152911 Records in A152770.

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

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

Cf. A152770.

Sequence in context: A214256 A067532 A276470 * A317768 A362665 A293713

Adjacent sequences: A152908 A152909 A152910 * A152912 A152913 A152914

Keyword

easy,nonn

Author

Omar E. Pol, Dec 15 2008

Extensions

Extended by Robert G. Wilson v, Dec 21 2008

Status

approved