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