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

Author

Omar E. Pol, Dec 15 2008

Keywords

• easy
• nonn

Links

• Robert G. Wilson v, Table of n, a(n) for n = 1..863

Crossrefs

Cf. A152770.

Programs

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 *)

Extensions

Extended by Robert G. Wilson v, Dec 21 2008