A176405 Fixed point of morphism 0->0100110, 1->0110110

0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0

Offset

0,1

Comments

Also a(n) is the least significant nonzero digit in the radix-7 expansion of (n+1).

The sequence, interpreted as left/right turns by 120 degrees (each turn followed by a unit line in the current direction) defines a space-filling curve (called R7-dragon in the fxtbook, see link below).

Also sequence of zeros and ones by morphism F->F0F1F1F0F0F1F, 0->0, 1->1.

Links

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

Joerg Arndt: Matters Computational (The Fxtbook) (section 1.31.5 "Dragon curves based on radix-R counting", pp. 95-101, image on p. 97).

Mathematica

Nest[Flatten[#/.{0->{0, 1, 0, 0, 1, 1, 0}, 1->{0, 1, 1, 0, 1, 1, 0}}]&, 0, 3] (* Harvey P. Dale, Mar 27 2015 *)

Crossrefs

Sequence in context: A286339 A244735 A245938 * A084091 A368463 A080846

Adjacent sequences: A176402 A176403 A176404 * A176406 A176407 A176408

Keyword

nonn

Author

Joerg Arndt, Apr 16 2010

Status

approved