A348441 Indices of records in A088177.

1, 3, 5, 7, 15, 17, 19, 34, 45, 47, 83, 85, 165, 169, 171, 181, 183, 193, 195, 205, 207, 533, 535, 561, 563, 585, 587, 784, 786, 1040, 1042, 1068, 1070, 1096, 1098, 1126, 1128, 1150, 1152, 1932, 1934, 1986, 1988, 2022, 2024, 2062, 2064, 2090, 2092, 2118, 2120, 2146, 2148, 2178, 2180, 2206, 2208

Offset: 1

Author

N. J. A. Sloane, Oct 21 2021

Keywords

• nonn

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..381

Crossrefs

Cf. A088177, A088178, A348440.

Programs

Mathematica

Block[{a, c, m = 1, n}, a = {1}~Join~Reap[Do[n = 1; While[IntegerQ[c[m n]], n++]; Sow[n]; Set[c[m n], i]; m = n, {i, 3000}]][[-1, -1]]; Map[FirstPosition[a, #][[1]] &, Union@ FoldList[Max, a]]] (* Michael De Vlieger, Oct 21 2021 *)

Python

from itertools import islice
def A348441(): # generator of terms
    yield 1
    c, p, a, i = 1, {1}, 1, 2
    while True:
        n, na = 1, a
        while na in p:
            n += 1
            na += a
        p.add(na)
        a = n
        i += 1
        if c < n:
            c = n
            yield i
A348441_list = list(islice(A348441(),100)) # Chai Wah Wu, Oct 21 2021