A191250 - OEIS

%I #5 Mar 30 2012 18:57:31

%S 0,1,0,2,0,1,0,0,1,0,1,0,2,0,1,0,1,0,2,0,1,0,2,0,1,0,0,1,0,1,0,2,0,1,

%T 0,2,0,1,0,0,1,0,1,0,2,0,1,0,0,1,0,1,0,2,0,1,0,1,0,2,0,1,0,2,0,1,0,0,

%U 1,0,1,0,2,0,1,0,0,1,0,1,0,2,0,1,0,1,0,2,0,1,0,2,0,1,0,0,1,0,1,0,2,0,1,0,1,0,2,0,1,0,2,0,1,0,0,1,0,1,0,2,0,1,0,2,0,1,0,0,1,0,1,0

%N Fixed point of the morphism 0 -> 01, 1 -> 02, 2 -> 001.

%C A few 3-substitution sequences:

%C A191250:  0 -> 01, 1 -> 02, 2 -> 001

%C A191254:  0 -> 01, 1 -> 02, 2 -> 01

%C A191255:  0 -> 01, 1 -> 02, 2 -> 03, 3 -> 01

%C A191258:  0 -> 01, 1 -> 02, 2 -> 03, 3 -> 001

%C A191261:  0 -> 01, 1 -> 002, 2 -> 01

%C A191265:  0 -> 001, 1 -> 002, 2 -> 01

%C A191269:  0 -> 001, 1 -> 02, 2 -> 01

%C See also A189576 and A189628.

%t t = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 2}, 2 -> {0, 0, 1}}] &, {0},8]  (* A191250 *)

%t Flatten[Position[t, 0]]  (* A191251 *)

%t Flatten[Position[t, 1]]  (* A191252 *)

%t Flatten[Position[t, 2]]  (* A191253 *)

%Y Cf. A191251, A191252, A191253.

%K nonn

%O 1,4

%A _Clark Kimberling_, May 28 2011