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
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 21 2021
STATUS
approved