|
%I #4 Mar 30 2012 18:57:31
%S 0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,
%T 2,0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,
%U 0,2,0,0,1,0,0,2,0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,0,2,0,0,1,0,0,1,0,1,0,0,1,0
%N Fixed point of the morphism 0 -> 001, 1 -> 002, 2 -> 01.
%C See A191265.
%t t = Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0, 0, 2}, 2 -> {0, 1}}] &, {0}, 7] (* A191265 *)
%t Flatten[Position[t, 0]] (* A191266 *)
%t Flatten[Position[t, 1]] (* A191267 *)
%t Flatten[Position[t, 2]] (* A191268 *)
%Y Cf. A191265, A191250.
%K nonn
%O 1,9
%A _Clark Kimberling_, May 28 2011
|
