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,1

Links

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

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

Crossrefs

Cf. A033885, A033946.

Sequence in context: A245905 A366482 A087146 * A098142 A270812 A066821

Adjacent sequences: A033942 A033943 A033944 * A033946 A033947 A033948

Keyword

nonn,easy

Author

N. J. A. Sloane.

Extensions

More terms from Asher Auel, May 05 2000

Status

approved