A348440 Records in A088177.

1, 2, 3, 5, 6, 7, 11, 12, 13, 17, 19, 23, 25, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293

Offset: 1

Author

N. J. A. Sloane, Oct 21 2021

Keywords

• nonn

Comments

Apparently the terms agree with the prime numbers A000040, beginning at 29. - Hugo Pfoertner, Oct 21 2021

Links

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

Crossrefs

Cf. A088177, A088178, A348441.

Programs

Mathematica

Block[{c, m = 1, n}, Union@ FoldList[Max, {1}~Join~Reap[Do[n = 1; While[IntegerQ[c[m n]], n++]; Sow[n]; Set[c[m n], 1]; m = n, 2^12]][[-1, -1]]]] (* Michael De Vlieger, Oct 21 2021 *)

Python

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