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, 3367329, 5991137, 7002436, 7690250, 18043250, 29261251

Offset

1,2

Links

Chai Wah Wu, Table of n, a(n) for n = 1..48

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 *)

Prog

(Python)
from math import gcd
from itertools import count, islice
def A387519_gen(): # generator of terms
    m, mset, c, a = 2, {2}, 3, 0
    yield 1
    for j in count(3):
        for i in range(m-1, c-1, -1):
            if i not in mset and gcd(i, m)>1:
                if i-j>a:
                    yield j
                    a = i-j
                break
        else:
            for i in count(max(c, m+1)):
                if i not in mset and gcd(i, m)>1:
                    if i-j>a:
                        yield j
                        a = i-j
                    break
        m = i
        mset.add(i)
        while c in mset:
            mset.remove(c)
            c += 1
A387519_list = list(islice(A387519_gen(), 20)) # Chai Wah Wu, Sep 10 2025

Crossrefs

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

Sequence in context: A281828 A002982 A290432 * A276783 A288731 A326422

Adjacent sequences: A387516 A387517 A387518 * A387520 A387521 A387522

Keyword

nonn

Author

N. J. A. Sloane, Sep 01 2025

Extensions

More terms from Michael De Vlieger, Sep 01 2025

a(40)-a(45) from Chai Wah Wu, Sep 11 2025

Status

approved