%I #10 Apr 09 2023 02:02:24
%S 1,2,3,4,5,6,7,8,11,13,15,17,19,21,24,29,35,36,44,45,51,60,62,64,65,
%T 68,74,80,83,84,89,90,92,93,94,97,100,109,113,121,123,135,143,149,151,
%U 152,157,159,165,166,167,178,179,182,189,197,199,201,206,209,213,215,220,221,222,226,228,234,236,238,240,244,246,256,268,272,276,282,283
%N Records in A361511.
%H Michael De Vlieger, <a href="/A362095/b362095.txt">Table of n, a(n) for n = 1..6811</a> (all records 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[
%t (If[c[#], a[n] = # + f[a[m]] ; m++, a[n] = f[#]]; c[#] = True; If[# > r, r = #; Sow[r]]) &[a[n - 1]], {n, 2, nn}] ][[-1, -1]] (* _Michael De Vlieger_, Apr 08 2023 *)
%Y Cf. A361511-A361516.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Apr 08 2023