A033945 Record highs in A033885 (3n - sum of divisors of n).

2, 3, 5, 9, 13, 14, 21, 25, 33, 37, 45, 57, 61, 73, 81, 85, 93, 105, 117, 121, 133, 141, 145, 157, 165, 177, 193, 201, 205, 213, 217, 225, 230, 253, 261, 273, 277, 297, 301, 313, 325, 333, 345, 357, 361, 381, 385, 393, 397, 421, 445, 453, 457, 465, 477, 481

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A033885, A033946.

Programs

Mathematica

f[n_] := 3n - DivisorSigma[1, n]; fm = 0; s = {}; Do[f1 = f[n]; If[f1 > fm, fm = f1; AppendTo[s, fm]], {n, 1, 250}]; s (* Amiram Eldar, Aug 28 2019 *)

Extensions

More terms from Asher Auel, May 05 2000