cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A262289 a(n) = smallest positive number, not a power of 2, that is not a substring of n in its binary representation.

This page as a plain text file.
%I A262289 #14 Sep 21 2015 17:21:28
%S A262289 3,3,3,5,3,3,5,5,3,3,3,6,5,7,5,5,3,3,3,5,3,3,7,6,5,5,7,7,5,9,5,5,3,3,
%T A262289 3,5,3,3,5,5,3,3,3,6,7,7,9,6,5,5,5,5,7,7,7,9,5,5,9,9,5,9,5,5,3,3,3,5,
%U A262289 3,3,5,5,3,3,3,6,5,7,5,5,3,3,3,6,3,3,7
%N A262289 a(n) = smallest positive number, not a power of 2, that is not a substring of n in its binary representation.
%C A262289 Similar to A261461, but if the smallest missing number is a power of 2, ignore it and look at the next-smallest missing number.
%H A262289 Hiroaki Yamanouchi, <a href="/A262289/b262289.txt">Table of n, a(n) for n = 0..10000</a>
%H A262289 David Consiglio, Jr., <a href="/A262289/a262289.txt">Python Program</a>
%t A262289 fQ[m_, n_] := Block[{g}, g[x_] := ToString@FromDigits@IntegerDigits[x, 2]; StringContainsQ[g@ n, g@ m]]; Table[k = 3; While[Or[fQ[k, n] && k < 2 n, IntegerQ@ Log[2, k]], k++]; k, {n, 0, 86}] (* _Michael De Vlieger_, Sep 21 2015 *)
%Y A262289 Cf. A261416, A261461, A261922.
%Y A262289 See A262281 for the "nonnegative" version.
%K A262289 nonn,base
%O A262289 0,1
%A A262289 _N. J. A. Sloane_, Sep 19 2015
%E A262289 a(23)-a(86) from _Hiroaki Yamanouchi_, Sep 20 2015