OFFSET
0,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
FORMULA
PROG
(Haskell)
import Data.List (isInfixOf)
a261922 x = f a030308_tabf where
f (cs:css) = if isInfixOf cs (a030308_row x)
then f css else foldr (\d v -> 2 * v + d) 0 cs
-- Reinhard Zumkeller, Sep 17 2015
(PARI) bstr(n) = if (n==0, "0", my(s="", b=binary(n)); for (i=1, #b, s=concat(s, b[i])); s);
a(n) = my(sn=btostr(n), k=0); while (#strsplit(sn, bstr(k)) != 1, k++); k; \\ Michel Marcus, Sep 20 2023
(Python)
def a(n): b=bin(n)[2:]; return next(k for k in range(2**len(b)) if bin(k)[2:] not in b)
print([a(n) for n in range(99)]) # Michael S. Branicky, Sep 21 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 16 2015
STATUS
approved
