%I
%S 0,1,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1,
%T 0,1,0,1,1,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,0,1,1,
%U 0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,1,0
%N Fixed point of the morphism 0>011, 1>01.
%e 0>011>0110101>01101010110101101>
%t t = Nest[Flatten[# /. {0>{0,1,1}, 1>{0,1}}] &, {0}, 5] (*A189687*)
%t f[n_] := t[[n]]
%t Flatten[Position[t, 0]] (* A086377 conjectured *)
%t Flatten[Position[t, 1]] (* A081477 conjectured *)
%t s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;
%t Table[s[n], {n, 1, 120}] (*A189688*)
%Y Cf. A189688, A086377, A189688.
%K nonn
%O 1
%A _Clark Kimberling_, Apr 25 2011
