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 A191261 #5 Mar 30 2012 18:57:31
%S A191261 0,1,0,0,2,0,1,0,1,0,1,0,1,0,0,2,0,1,0,0,2,0,1,0,0,2,0,1,0,0,2,0,1,0,
%T A191261 1,0,1,0,1,0,0,2,0,1,0,1,0,1,0,1,0,0,2,0,1,0,1,0,1,0,1,0,0,2,0,1,0,1,
%U A191261 0,1,0,1,0,0,2,0,1,0,0,2,0,1,0,0,2,0,1,0,0,2,0,1,0,1,0,1,0,1,0,0,2,0,1,0,0,2,0,1,0,0,2,0,1,0,0,2,0,1,0,1,0,1,0,1,0,0,2,0,1,0,0,2
%N A191261 Fixed point of the morphism 0 -> 01, 1 -> 002, 2 -> 01.
%C A191261 See A191250.
%t A191261 t = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 2}, 2 -> {0, 1}}] &, {0}, 8] (* A191261 *)
%t A191261 Flatten[Position[t, 0]] (* A191262 *)
%t A191261 Flatten[Position[t, 1]] (* A191263 *)
%t A191261 Flatten[Position[t, 2]] (* A191264 *)
%Y A191261 Cf. A191250, A191262, A191263, A191264.
%K A191261 nonn,easy
%O A191261 1,5
%A A191261 _Clark Kimberling_, May 28 2011