A387519 Indices of record high points in A386487.

1, 3, 4, 6, 7, 12, 19, 32, 58, 77, 145, 208, 237, 321, 369, 480, 838, 1290, 1533, 3031, 4003, 4965, 6900, 7653, 13365, 18980, 23022, 28225, 36034, 54189, 74152, 82124, 129792, 274543, 419570, 730075, 1679322, 1844372, 2469066

Offset: 1

Author

N. J. A. Sloane, Sep 01 2025.

Keywords

• nonn
• more
• new

Comments

Needs a b-file!

Crossrefs

Cf. A386482, A386487, A386488, A387520, A387521.

Programs

Mathematica

r = -1; s = Import["https://oeis.org/A386482/b386482.txt", "Data"][[All, -1]]; Reap[Do[If[# > r, r = #; Sow[n]] &[s[[n]] - n], {n, Length[s]}] ][[-1, 1]] (* Michael De Vlieger, Sep 01 2025 *)

Extensions

More terms from Michael De Vlieger, Sep 01 2025