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
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
Comments