A392028 Indices of records in A255933.

1, 2, 4, 11, 49, 286, 1997, 31925, 287310, 1436559, 31604222, 189625346, 4930259198, 34511814535

Offset

1,2

Links

Table of n, a(n) for n=1..14.

Mathematica

A255933 = Module[{s = 1, k = 2, m}, Join[{s}, Table[While[k! - 1 <= s, k++]; m = k; While[!Divisible[s, m! - 1], m--]; s += m; m, {n, 2, 10^6}]]];
Module[{rec = 0}, Table[If[A255933[[i]] > rec, rec = A255933[[i]]; i, Nothing], {i, Length[A255933]}]]

Prog

(Python)
from itertools import count
record, g = -1, A255933_gen() # uses code/imports from A255933
[print(m, end=", ") for m in count(1) if (v:=next(g))>record and (record:=v)]
# Michael S. Branicky, Dec 28 2025

Crossrefs

Cf. A255933, A392027.

Sequence in context: A091240 A068488 A096119 * A117157 A267013 A376918

Adjacent sequences: A392025 A392026 A392027 * A392029 A392030 A392031

Keyword

nonn,hard,more

Author

Paolo Xausa, Dec 27 2025

Extensions

a(12)-a(14) from Michael S. Branicky, Dec 28 2025

Status

approved