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
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..6811 (all in a(n) for n = 1..2^28)
Programs
-
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 *)