This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A191250 #5 Mar 30 2012 18:57:31
%S A191250 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 A191250 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 A191250 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 A191250 Fixed point of the morphism 0 -> 01, 1 -> 02, 2 -> 001.
%C A191250 A few 3-substitution sequences:
%C A191250 A191250: 0 -> 01, 1 -> 02, 2 -> 001
%C A191250 A191254: 0 -> 01, 1 -> 02, 2 -> 01
%C A191250 A191255: 0 -> 01, 1 -> 02, 2 -> 03, 3 -> 01
%C A191250 A191258: 0 -> 01, 1 -> 02, 2 -> 03, 3 -> 001
%C A191250 A191261: 0 -> 01, 1 -> 002, 2 -> 01
%C A191250 A191265: 0 -> 001, 1 -> 002, 2 -> 01
%C A191250 A191269: 0 -> 001, 1 -> 02, 2 -> 01
%C A191250 See also A189576 and A189628.
%t A191250 t = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 2}, 2 -> {0, 0, 1}}] &, {0},8] (* A191250 *)
%t A191250 Flatten[Position[t, 0]] (* A191251 *)
%t A191250 Flatten[Position[t, 1]] (* A191252 *)
%t A191250 Flatten[Position[t, 2]] (* A191253 *)
%Y A191250 Cf. A191251, A191252, A191253.
%K A191250 nonn
%O A191250 1,4
%A A191250 _Clark Kimberling_, May 28 2011