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 A287114 #4 May 22 2017 20:03:08
%S A287114 1,5,8,12,16,19,23,25,29,32,36,39,43,45,49,52,56,60,63,67,69,73,76,80,
%T A287114 84,87,91,93,97,100,104,107,111,113,117,120,124,128,131,135,137,141,
%U A287114 144,148,150,154,157,161,165,168,172,174,178,181,185,188,192,194
%N A287114 Positions of 1 in A287112.
%H A287114 Clark Kimberling, <a href="/A287114/b287114.txt">Table of n, a(n) for n = 1..10000</a>
%t A287114 s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {2, 0}, 2 -> 0}] &, {0}, 10] (* A287112 *)
%t A287114 Flatten[Position[s, 0]] (* A287113 *)
%t A287114 Flatten[Position[s, 1]] (* A287114 *)
%t A287114 Flatten[Position[s, 2]] (* A287115 *)
%Y A287114 Cf. A287112, A287113, A287115.
%K A287114 nonn,easy
%O A287114 1,2
%A A287114 _Clark Kimberling_, May 22 2017