A361516 Indices of records in A361511.

1, 3, 5, 7, 9, 12, 14, 18, 21, 32, 39, 47, 53, 59, 67, 94, 134, 170, 196, 236, 256, 280, 394, 441, 455, 519, 547, 589, 635, 778, 809, 862, 875, 946, 961, 975, 1011, 1053, 1110, 1266, 1469, 1538, 1844, 2043, 2277, 2334, 2369, 2423, 2485, 2596, 2711, 2755, 2934, 2990, 3125, 3369, 3436, 3594, 3762, 3984, 4215, 4290, 4432, 4621, 4677, 4712, 4750, 4897

Offset

1,2

Links

Michael De Vlieger, Table of n, a(n) for n = 1..6811 (all in a(n) for n = 1..2^28)

Mathematica

nn = 5000; c[_] = False; f[n_] := DivisorSigma[0, n]; a[1] = m = 1; r = 0; Reap[Do[(If[c[#], a[n] = # + f[a[m]] ; m++, a[n] = f[#]]; c[#] = True; If[# > r, r = #; Sow[n - 1]]) &[a[n - 1]], {n, 2, nn}] ][[-1, -1]] (* Michael De Vlieger, Apr 08 2023 *)

Crossrefs

Cf. A361511-A361515, A362095.

Sequence in context: A219087 A186705 A361512 * A361515 A072154 A309269

Adjacent sequences: A361513 A361514 A361515 * A361517 A361518 A361519

Keyword

nonn

Author

N. J. A. Sloane, Apr 08 2023

Status

approved