A386488 Record high points in A386487.
0, 1, 2, 3, 5, 9, 11, 25, 35, 64, 91, 108, 156, 194, 266, 471, 477, 538, 1308, 1485, 1945, 2479, 3256, 5328, 7247, 9008, 11566, 14859, 18714, 18815, 22031, 62149, 101919, 200924, 293629, 296260, 371947, 890616, 1177562, 2551932, 2827899, 3192227, 5538307, 6695946
Offset: 1
Links
- Rémy Sigrist, PARI program
Programs
-
Mathematica
r = -1; s = Import["https://oeis.org/A386482/b386482.txt","Data"][[All, -1]]; Reap[Do[If[# > r, r = #; Sow[#]] &[s[[n]] - n], {n, Length[s]}] ][[-1, 1]] (* Michael De Vlieger, Sep 01 2025 *)
-
PARI
\\ See Links section.
Extensions
More terms from Rémy Sigrist, Sep 02 2025
Comments