cp's OEIS Frontend

A353718 Lengths of runs of identical terms in A353710.

%I A353718 #18 May 10 2022 09:55:09
%S A353718 1,1,1,3,8,40,3,20,10,4,95,60,77,227,498,162,438,988,334,946,1342,
%T A353718 13633,1446,810,103,140,7033,2518,2369,5096,1719,300,2397,14590,434,
%U A353718 6539,26193,20403,13857,10,26972,24908,44745,3346,149938,5859,29919,132184,123679
%N A353718 Lengths of runs of identical terms in A353710.
%H A353718 Rémy Sigrist, <a href="/A353718/b353718.txt">Table of n, a(n) for n = 1..132</a>
%H A353718 Rémy Sigrist, <a href="/A353718/a353718.txt">C++ program</a>
%e A353718 The first 60 terms of A353710 are 0, / 1, / 2, / 3, 3, 3, / 5, 5, 5, 5, 5, 5, 5, 5, / 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, / 11, 11, 11, / 15, 15, 15, ... The slashes indicate the initial runs of lengths 1, 1, 1, 3, 8, 40, 3, ...
%o A353718 (C++) See Links section.
%o A353718 (Python)
%o A353718 from itertools import count, islice
%o A353718 def A353718_gen(): # generator of terms
%o A353718     s, a, b, c, ab, k = {0,1}, 0, 1, 2, 1, 1
%o A353718     yield from (1,1)
%o A353718     while True:
%o A353718         for n in count(c):
%o A353718             if not (n & ab or n in s):
%o A353718                 a, b = b, n
%o A353718                 ab = a|b
%o A353718                 s.add(n)
%o A353718                 if c in s:
%o A353718                     yield k
%o A353718                     k = 0
%o A353718                     while c in s:
%o A353718                         c += 1
%o A353718                 k += 1
%o A353718                 break
%o A353718 A353718_list = list(islice(A353718_gen(),20)) # _Chai Wah Wu_, May 10 2022
%Y A353718 Cf. A353709, A353710.
%K A353718 nonn,base
%O A353718 1,4
%A A353718 _N. J. A. Sloane_, May 09 2022
%E A353718 More terms from _Rémy Sigrist_, May 09 2022