A261018 -id:A261018 - cp's OEIS frontend

A261461 a(n) is the smallest nonzero number that is not a substring of n in its binary representation.

1, 2, 3, 2, 3, 3, 4, 2, 3, 3, 3, 4, 5, 4, 4, 2, 3, 3, 3, 5, 3, 3, 4, 4, 5, 5, 4, 4, 5, 4, 4, 2, 3, 3, 3, 5, 3, 3, 5, 5, 3, 3, 3, 4, 7, 4, 4, 4, 5, 5, 5, 5, 7, 4, 4, 4, 5, 5, 4, 4, 5, 4, 4, 2, 3, 3, 3, 5, 3, 3, 5, 5, 3, 3, 3, 6, 5, 7, 5, 5, 3, 3, 3, 6, 3, 3

Offset: 0

Reinhard Zumkeller, Aug 30 2015

A261018(n) = a(A260273(n)).
Is a(n) = A091460(n) for n>1? - R. J. Mathar, Sep 02 2015. The lowest counterexample occurs at a(121) = 5 < 6 = A091460(121). - Álvar Ibeas, Sep 08 2020
a(A062289(n))=A261922(A062289(n)); a(A126646(n))!=A261922(A126646(n)). - Reinhard Zumkeller, Sep 17 2015

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
David Consiglio, Jr., Python Program

Cf. A007088, A030308, A260273, A261018; record values and where they occur: A261466, A261467.
See A261922 for a variant.
Cf. A062289, A144016, A261922, A126646.

import Data.List (isInfixOf)
a261461 x = f $ tail a030308_tabf where
   f (cs:css) = if isInfixOf cs (a030308_row x)
                   then f css else foldr (\d v -> 2 * v + d) 0 cs

fQ[m_, n_] := Block[{g}, g[x_] := ToString@ FromDigits@ IntegerDigits[x, 2]; StringContainsQ[g@ n, g@ m]]; Table[k = 1; While[fQ[k, n] && k < n, k++]; k, {n, 85}] (* Michael De Vlieger, Sep 21 2015 *)

from itertools import count
def a(n):
    b, k = bin(n)[2:], 1
    return next(k for k in count(1) if bin(k)[2:] not in b)
print([a(n) for n in range(86)]) # Michael S. Branicky, Feb 26 2023

a(n) = A144016(n) + 1 for any n > 0. - Rémy Sigrist, Mar 10 2018

A260273 Successively add the smallest nonzero binary number that is not a substring.

Original entry on oeis.org

1, 3, 5, 8, 11, 15, 17, 20, 23, 27, 31, 33, 36, 39, 44, 51, 56, 61, 65, 68, 71, 76, 81, 84, 87, 91, 95, 99, 104, 111, 115, 120, 125, 129, 132, 135, 140, 145, 148, 151, 157, 165, 168, 171, 175, 179, 186, 190, 194, 199, 204, 209, 216, 223, 227, 232, 241, 246

Offset: 1

Alex Meiburg, Jul 22 2015

a(n) is at least Omega(n), at most O(n*log(n)).
The empirical approximation n*(log(n)/2 + exp(1)) is startlingly close to tight, compared with many increasing upper bounds.
A261644(n) = A062383(a(n)) - a(n). - Reinhard Zumkeller, Aug 30 2015

			Begin with a(1)=1, in binary, "1". This contains the string "1" but not "10", so we add 2. Thus a(2)=1+2=3. This also contains "1" but not "10", so we move to a(3)=3+2=5. This contains "1" and "10" but not "11", so we add 3. Thus a(4)=5+3=8. (See A261018 for the successive numbers that are added. - _N. J. A. Sloane_, Aug 17 2015)

Alex Meiburg, Table of n, a(n) for n = 1..20000

See A261922 and A261461 for the smallest missing number function; also A261923, A262279, A261281.
Cf. A030308, A261015, A261016, A261017, A261019.
See also A261396 (when a(n) just passes a power of 2), A261416 (the limiting behavior just past a power of 2).
First differences are A261018.
A262288 is the decimal analog.
Cf. A261644, A062383.

a260273 n = a260273_list !! (n-1)
a260273_list = iterate (\x -> x + a261461 x) 1
-- Reinhard Zumkeller, Aug 30 2015, Aug 17 2015

public static void main(String[] args) {
   int a=1;
   for(int iter=0;iter<100;iter++){
       System.out.print(a+", ");
       int inc;
       for(inc=1; contains(a,inc); inc++);
       a+=inc;
   }
}
static boolean contains(int a,int test){
   int mask=(Integer.highestOneBit(test)<<1)-1;
   while(a >= test){
       if((a & mask) == test) return true;
       a >>= 1;
   }
   return false;
}

sublistQ[L1_, L2_] := Module[{l1 = Length[L1], l2 = Length[L2], k}, If[l2 <= l1, For[k = 1, k <= l1 - l2 + 1, k++, If[L1[[k ;; k + l2 - 1]] == L2, Return[True]]]]; False];
a[1] = 1; a[n_] := a[n] = Module[{bb = IntegerDigits[a[n-1], 2], k}, For[k = 1, sublistQ[bb, IntegerDigits[k, 2]], k++]; a[n-1] + k]; Table[a[n], {n, 1, 60}] (* Jean-François Alcover, Apr 01 2016 *)
NestList[Function[k, k + FromDigits[#, 2] &@ SelectFirst[IntegerDigits[Range[2^8], 2], Length@ SequencePosition[IntegerDigits[k, 2], #] == 0 &]], 1, 64] (* Michael De Vlieger, Apr 01 2016, Version 10.1 *)

A260273_list, a = [1], 1
for i in range(10**3):
    b, s = 1, format(a,'b')
    while format(b,'b') in s:
        b += 1
    a += b
    s = format(a,'b')
    A260273_list.append(a) # Chai Wah Wu, Aug 26 2015

a(n+1) = a(n) + A261461(a(n)). - Reinhard Zumkeller, Aug 30 2015

A261645 First differences of A261644, seen as flattened list.

Original entry on oeis.org

0, 2, 5, -3, -4, 14, -3, -3, -4, -4, 30, -3, -3, -5, -7, -5, -5, 60, -3, -3, -5, -5, -3, -3, -4, -4, -4, -5, -7, -4, -5, -5, 124, -3, -3, -5, -5, -3, -3, -6, -8, -3, -3, -4, -4, -7, -4, -4, -5, -5, -5, -7, -7, -4, -5, -9, -5, -4, -4, 252, -3, -3, -3, -6, -3

Offset: 1

Reinhard Zumkeller, Aug 31 2015

sign

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A261644, A261018.

a261645 n = a261645_list !! (n-1)
a261645_list = zipWith (-) (tail a261644_list) a261644_list

A261789 First differences of A261786.

Original entry on oeis.org

2, 2, 3, 1, 2, 4, 3, 1, 3, 3, 3, 2, 2, 4, 2, 5, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 1, 4, 3, 2, 2, 4, 2, 4, 4, 4, 4, 2, 5, 5, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 4, 3, 3, 3, 3, 4, 3, 3, 1, 4, 3, 4, 4, 5, 3, 3, 3, 3, 3, 1, 4, 3, 4, 3, 3, 1, 4, 3, 2, 2, 4, 2, 4, 4

Offset: 1

Reinhard Zumkeller, Sep 01 2015

nonn

a(n) = A261787(A261786(n)).

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A261645, A261461, A261786, A261018, A261795.

a261789 n = a261789_list !! (n-1)
a261789_list = zipWith (-) (tail a261786_list') a261786_list'

A261795 First differences of A261793.

Original entry on oeis.org

2, 1, 1, 1, 1, 1, 1, 1, 2, 3, 2, 2, 2, 3, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 3, 2

Offset: 1

Reinhard Zumkeller, Sep 01 2015

nonn

a(n) = A261794(A261793(n)).

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A261794, A261793, A261018, A261789.

a261795 n = a261795_list !! (n-1)
a261795_list = zipWith (-) (tail a261793_list') a261793_list'

cp's OEIS Frontend

A261461 a(n) is the smallest nonzero number that is not a substring of n in its binary representation.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

Python

Formula

A260273 Successively add the smallest nonzero binary number that is not a substring.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Java

Mathematica

Python

Formula

A261645 First differences of A261644, seen as flattened list.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

A261789 First differences of A261786.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

A261795 First differences of A261793.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell