%I #10 Apr 09 2023 02:02:11
%S 1,3,5,7,9,12,14,18,21,32,39,47,53,59,67,94,134,170,196,236,256,280,
%T 394,441,455,519,547,589,635,778,809,862,875,946,961,975,1011,1053,
%U 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
%N Indices of records in A361511.
%H Michael De Vlieger, <a href="/A361516/b361516.txt">Table of n, a(n) for n = 1..6811</a> (all in a(n) for n = 1..2^28)
%t 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 *)
%Y Cf. A361511-A361515, A362095.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Apr 08 2023