login
Indices of records in A088178.
3

%I #7 Oct 21 2021 13:19:29

%S 1,2,3,4,7,9,11,12,14,21,22,23,27,29,33,34,36,40,53,54,55,63,65,67,69,

%T 70,72,77,93,96,99,100,101,108,111,119,121,122,124,130,131,132,140,

%U 147,149,151,153,154,156,217,237,238,239,257,258,260,263,265,266,268,272,274,275,277,279,280

%N Indices of records in A088178.

%H Chai Wah Wu, <a href="/A348443/b348443.txt">Table of n, a(n) for n = 1..3000</a>

%o (Python)

%o from itertools import islice

%o def A348443(): # generator of terms

%o yield 1

%o c, p, a, i = 1, {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 i += 1

%o if c < na:

%o c = na

%o yield i

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

%Y Cf. A088177, A088178, A348440-A348442.

%K nonn

%O 1,2

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