A320927 Concatenation of successive segments generated by the morphism {0 -> {0, 0, 1}, 1 -> {0,1,0}}, starting with 0.

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

Offset

1

Comments

Positions of 0: A320928

Positions of 1: A320929

Links

Clark Kimberling, Table of n, a(n) for n = 1..20000

Example

First 4 segments:
{0},
{0, 0, 1},
{0, 0, 1, 0, 0, 1, 0, 1, 0},
{0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1}

Mathematica

s[n_] := Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0, 1, 0}}] &, {0}, n];  (* A189628 *)
t = Table[s[n], {n, 0, 8}];  Take[t, 5]  (* successive segments of morphism s *)
u = Flatten[t]; Take[u, 200]                (* A320927 *)
v = Flatten[Position[u, 0]]; Take[v, 200]   (* A320928 *)
w = Flatten[Position[u, 1]];  Take[w, 200]  (* A320929 *)

Crossrefs

Cf. A189628, A320927, A320928, A320929.

Sequence in context: A144603 A163581 A100283 * A134391 A102215 A288508

Adjacent sequences: A320924 A320925 A320926 * A320928 A320929 A320930

Keyword

nonn,easy

Author

Clark Kimberling, Oct 24 2018

Status

approved