cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A386488 Record high points in A386487.

Original entry on oeis.org

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

Views

Author

N. J. A. Sloane, Sep 01 2025

Keywords

Comments

Needs a b-file!

Crossrefs

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

A387519 Indices of record high points in A386487.

Original entry on oeis.org

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

Views

Author

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

Keywords

Comments

Needs a b-file!

Crossrefs

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

A387520 Record low points in A386487, negated.

Original entry on oeis.org

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

Views

Author

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

Keywords

Comments

In other words, record high points in -A386487.

Crossrefs

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 *)
Showing 1-3 of 3 results.