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,2

Links

Michael De Vlieger, Table of n, a(n) for n = 1..6811 (all records 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[r]]) &[a[n - 1]], {n, 2, nn}] ][[-1, -1]] (* Michael De Vlieger, Apr 08 2023 *)

Crossrefs

Cf. A361511-A361516.

Sequence in context: A249724 A084369 A167211 * A067133 A192588 A351914

Adjacent sequences: A362092 A362093 A362094 * A362096 A362097 A362098

Keyword

nonn

Author

N. J. A. Sloane, Apr 08 2023

Status

approved