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 A287068 #4 May 21 2017 21:29:42 %S A287068 1,5,7,8,11,12,14,18,19,21,24,28,30,31,33,36,40,41,45,47,48,51,52,54, %T A287068 57,61,62,66,68,69,71,75,77,78,81,82,84,88,89,91,94,98,99,103,105,106, %U A287068 108,112,114,115,118,119,121,124,128,130,131,134,135,137,141 %N A287068 Positions of 1 in A287066. %H A287068 Clark Kimberling, <a href="/A287068/b287068.txt">Table of n, a(n) for n = 1..10000</a> %t A287068 s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 2}, 2 -> 0}] &, {1}, 10] (* A287066 *) %t A287068 Flatten[Position[s, 0]] (* A287067 *) %t A287068 Flatten[Position[s, 1]] (* A287068 *) %t A287068 Flatten[Position[s, 2]] (* A287069 *) %Y A287068 Cf. A287066, A287067, A287069. %K A287068 nonn,easy %O A287068 1,2 %A A287068 _Clark Kimberling_, May 21 2017