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 A287158 #4 May 22 2017 12:23:26
%S A287158 2,3,5,9,10,14,17,19,20,22,26,29,31,32,36,38,39,42,43,45,49,50,54,57,
%T A287158 59,60,64,66,67,70,71,73,77,80,82,83,86,87,89,93,95,96,98,102,103,107,
%U A287158 110,112,113,115,119,122,124,125,129,131,132,135,136,138,142
%N A287158 Positions of 1 in A287156.
%H A287158 Clark Kimberling, <a href="/A287158/b287158.txt">Table of n, a(n) for n = 1..10000</a>
%t A287158 s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 11] (* A287156 *)
%t A287158 Flatten[Position[s, 0]] (* A287157 *)
%t A287158 Flatten[Position[s, 1]] (* A287158 *)
%t A287158 Flatten[Position[s, 2]] (* A287159 *)
%Y A287158 Cf. A287108, A287156, A287157, A287159.
%K A287158 nonn,easy
%O A287158 1,1
%A A287158 _Clark Kimberling_, May 22 2017