A261466 Records in A261461.

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, 32, 33, 34, 35

Offset: 1

Author

Reinhard Zumkeller, Aug 30 2015

Keywords

• nonn
• more
• base

Comments

a(n) = A261461(A261467(n)).

Crossrefs

Cf. A261461, A261467.

Programs

Haskell

a261466 n = a261466_list !! (n-1)
(a261466_list, a261467_list) = unzip $ (0, 1) : f 0 1 where
   f i x | y > x     = (y, i) : f (i + 1) y
         | otherwise = f (i + 1) x
         where y = a261461 i

Python

from itertools import count, islice
def f(n):
    b, k = bin(n)[2:], 1
    return next(k for k in count(1) if bin(k)[2:] not in b)
def agen(record=-1):
    yield from (((record:=f(k)), k)[0] for k in count(0) if f(k) > record)
print(list(islice(agen(), 18))) # Michael S. Branicky, Feb 26 2023

Extensions

Initial terms corrected and more terms from Rémy Sigrist, Mar 10 2018

a(26)-a(29) from Rémy Sigrist, Feb 26 2023