login
A361516
Indices of records in A361511.
3
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 08 2023
STATUS
approved