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,2

Links

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

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

Prog

(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

Crossrefs

Cf. A088177, A088178, A348440.

Sequence in context: A132012 A160690 A085494 * A356591 A029460 A277910

Adjacent sequences: A348438 A348439 A348440 * A348442 A348443 A348444

Keyword

nonn

Author

N. J. A. Sloane, Oct 21 2021

Status

approved