A348440 - OEIS

%I #20 Oct 23 2021 03:22:03

%S 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,

%T 79,83,89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167,

%U 173,179,181,191,193,197,199,211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293

%N Records in A088177.

%C Apparently the terms agree with the prime numbers A000040, beginning at 29. - _Hugo Pfoertner_, Oct 21 2021

%H Chai Wah Wu, <a href="/A348440/b348440.txt">Table of n, a(n) for n = 1..10000</a>

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

%o (Python)

%o from itertools import islice

%o def A348440(): # generator of terms

%o     yield 1

%o     c, p, a = 1, {1}, 1

%o     while True:

%o         n, na = 1, a

%o         while na in p:

%o             n += 1

%o             na += a

%o         p.add(na)

%o         a = n

%o         if c < n:

%o             c = n

%o             yield c

%o A348440_list = list(islice(A348440(),100)) # _Chai Wah Wu_, Oct 21 2021

%Y Cf. A088177, A088178, A348441.

%K nonn

%O 1,2

%A _N. J. A. Sloane_, Oct 21 2021