login
Records in A152770.
1

%I #7 Mar 15 2015 20:42:03

%S 0,1,3,4,5,11,16,17,29,35,47,67,97,112,129,133,145,161,225,245,297,

%T 349,351,369,485,514,551,637,787,901,1009,1033,1117,1237,1333,1669,

%U 2009,2061,2187,2489,2615,3073,3439,3449,4233,4537,4809,5241,5269,5377,6793

%N Records in A152770.

%H Robert G. Wilson v, <a href="/A152911/b152911.txt">Table of n, a(n) for n = 1..863</a>

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

%Y Cf. A152770.

%K easy,nonn

%O 1,3

%A _Omar E. Pol_, Dec 15 2008

%E Extended by _Robert G. Wilson v_, Dec 21 2008