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

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

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

Prog

(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

Crossrefs

Cf. A088177, A088178, A348441.

Sequence in context: A145739 A198191 A243058 * A339267 A288863 A121700

Adjacent sequences: A348437 A348438 A348439 * A348441 A348442 A348443

Keyword

nonn

Author

N. J. A. Sloane, Oct 21 2021

Status

approved