login
A320927
Concatenation of successive segments generated by the morphism {0 -> {0, 0, 1}, 1 -> {0,1,0}}, starting with 0.
4
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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Oct 24 2018
STATUS
approved