OFFSET
1,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
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