cp's OEIS Frontend

A348441 Indices of records in A088177.

%I A348441 #13 Oct 23 2021 03:25:21
%S A348441 1,3,5,7,15,17,19,34,45,47,83,85,165,169,171,181,183,193,195,205,207,
%T A348441 533,535,561,563,585,587,784,786,1040,1042,1068,1070,1096,1098,1126,
%U A348441 1128,1150,1152,1932,1934,1986,1988,2022,2024,2062,2064,2090,2092,2118,2120,2146,2148,2178,2180,2206,2208
%N A348441 Indices of records in A088177.
%H A348441 Seiichi Manyama, <a href="/A348441/b348441.txt">Table of n, a(n) for n = 1..381</a>
%t A348441 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 *)
%o A348441 (Python)
%o A348441 from itertools import islice
%o A348441 def A348441(): # generator of terms
%o A348441     yield 1
%o A348441     c, p, a, i = 1, {1}, 1, 2
%o A348441     while True:
%o A348441         n, na = 1, a
%o A348441         while na in p:
%o A348441             n += 1
%o A348441             na += a
%o A348441         p.add(na)
%o A348441         a = n
%o A348441         i += 1
%o A348441         if c < n:
%o A348441             c = n
%o A348441             yield i
%o A348441 A348441_list = list(islice(A348441(),100)) # _Chai Wah Wu_, Oct 21 2021
%Y A348441 Cf. A088177, A088178, A348440.
%K A348441 nonn
%O A348441 1,2
%A A348441 _N. J. A. Sloane_, Oct 21 2021