login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A118605 a(0)=0, a(1)=1; and for n>1: if n in binary representation is contained in the concatenation of all preceding terms then a(n)=1 else a(n)=0. 5
0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

LINKS

Table of n, a(n) for n=0..104.

Index entries for sequences related to binary expansion of n

MATHEMATICA

nxt[{n_, t_, a_}]:=Module[{k=If[SequenceCount[t, IntegerDigits[ n+1, 2]]> 0, 1, 0]}, {n+1, Join[t, {k}], k}]; Join[{0}, NestList[nxt, {1, {0, 1}, 1}, 110][[All, 3]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 02 2019 *)

CROSSREFS

Cf. A007088.

Sequence in context: A129184 A129185 A283683 * A175253 A163584 A286655

Adjacent sequences:  A118602 A118603 A118604 * A118606 A118607 A118608

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller, May 08 2006

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 23 17:11 EDT 2021. Contains 345402 sequences. (Running on oeis4.)