cp's OEIS Frontend

A261466 Records in A261461.

%I A261466 #18 Feb 26 2023 17:41:46
%S A261466 1,2,3,4,5,7,8,9,10,11,13,15,16,17,18,19,20,21,22,23,25,26,27,29,31,
%T A261466 32,33,34,35
%N A261466 Records in A261461.
%C A261466 a(n) = A261461(A261467(n)).
%o A261466 (Haskell)
%o A261466 a261466 n = a261466_list !! (n-1)
%o A261466 (a261466_list, a261467_list) = unzip $ (0, 1) : f 0 1 where
%o A261466    f i x | y > x     = (y, i) : f (i + 1) y
%o A261466          | otherwise = f (i + 1) x
%o A261466          where y = a261461 i
%o A261466 (Python)
%o A261466 from itertools import count, islice
%o A261466 def f(n):
%o A261466     b, k = bin(n)[2:], 1
%o A261466     return next(k for k in count(1) if bin(k)[2:] not in b)
%o A261466 def agen(record=-1):
%o A261466     yield from (((record:=f(k)), k)[0] for k in count(0) if f(k) > record)
%o A261466 print(list(islice(agen(), 18))) # _Michael S. Branicky_, Feb 26 2023
%Y A261466 Cf. A261461, A261467.
%K A261466 nonn,more,base
%O A261466 1,2
%A A261466 _Reinhard Zumkeller_, Aug 30 2015
%E A261466 Initial terms corrected and more terms from _Rémy Sigrist_, Mar 10 2018
%E A261466 a(26)-a(29) from _Rémy Sigrist_, Feb 26 2023