A033946 Values of n corresponding to A033945.

1, 2, 3, 5, 7, 9, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 121, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263

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, A033945.

Programs

Mathematica

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

Extensions

More terms from Asher Auel May 05 2000