A362095 Records in A361511.

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, 68, 74, 80, 83, 84, 89, 90, 92, 93, 94, 97, 100, 109, 113, 121, 123, 135, 143, 149, 151, 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

Offset: 1

Author

N. J. A. Sloane, Apr 08 2023

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..6811 (all records in a(n) for n = 1..2^28)

Crossrefs

Cf. A361511-A361516.

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[r]]) &[a[n - 1]], {n, 2, nn}] ][[-1, -1]] (* Michael De Vlieger, Apr 08 2023 *)