A387520 Record low points in A386487, negated.
0, 2, 4, 12, 13, 31, 35, 50, 78, 97, 128, 204, 217, 241, 316, 337, 352, 381, 396, 407, 428, 439, 460, 471, 486, 495, 599, 600, 603, 605, 768, 778, 857, 927, 1057, 1252, 1318, 1919, 2244, 2524, 2554, 2809, 2866, 3384, 3896, 3930, 4373, 4668, 4709, 5446, 6006, 9236, 9289, 9514
Offset: 1
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..1129
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, Length[s]}] ][[-1, 1]] (* Michael De Vlieger, Sep 01 2025 *)
Comments