login
Records in A361511.
3

%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