cp's OEIS Frontend

A348443 Indices of records in A088178.

%I A348443 #7 Oct 21 2021 13:19:29
%S A348443 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 A348443 70,72,77,93,96,99,100,101,108,111,119,121,122,124,130,131,132,140,
%U A348443 147,149,151,153,154,156,217,237,238,239,257,258,260,263,265,266,268,272,274,275,277,279,280
%N A348443 Indices of records in A088178.
%H A348443 Chai Wah Wu, <a href="/A348443/b348443.txt">Table of n, a(n) for n = 1..3000</a>
%o A348443 (Python)
%o A348443 from itertools import islice
%o A348443 def A348443(): # generator of terms
%o A348443     yield 1
%o A348443     c, p, a, i = 1, {1}, 1, 1
%o A348443     while True:
%o A348443         n, na = 1, a
%o A348443         while na in p:
%o A348443             n += 1
%o A348443             na += a
%o A348443         p.add(na)
%o A348443         a = n
%o A348443         i += 1
%o A348443         if c < na:
%o A348443             c = na
%o A348443             yield i
%o A348443 A348443_list = list(islice(A348443(),100)) # _Chai Wah Wu_, Oct 21 2021
%Y A348443 Cf. A088177, A088178, A348440-A348442.
%K A348443 nonn
%O A348443 1,2
%A A348443 _N. J. A. Sloane_, Oct 21 2021