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 A288552 #8 Mar 12 2025 07:40:40
%S A288552 1,2,5,6,9,10,13,16,17,20,23,24,27,28,31,32,35,38,39,42,45,46,49,50,
%T A288552 53,54,57,60,61,64,67,69,71,74,77,78,81,84,85,88,89,92,93,96,99,100,
%U A288552 103,106,108,110,113,116,117,120,123,124,127,128,131,132,135,138
%N A288552 Positions of 0 in A288551; complement of A288553.
%C A288552 Conjecture: a(n)/n -> 2.34..., and if m denotes this number, then -1 < m - a(n)/n < 2 for n >= 1.
%H A288552 Clark Kimberling, <a href="/A288552/b288552.txt">Table of n, a(n) for n = 1..10000</a>
%t A288552 s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
%t A288552 w[n_] := StringReplace[w[n - 1], {"00" -> "0101", "1" -> "011"}]
%t A288552 Table[w[n], {n, 0, 8}]
%t A288552 st = ToCharacterCode[w[10]] - 48 (* A288551 *)
%t A288552 Flatten[Position[st, 0]] (* A288552 *)
%t A288552 Flatten[Position[st, 1]] (* A288553 *)
%Y A288552 Cf. A288551, A288553, A288276.
%K A288552 nonn,easy
%O A288552 1,2
%A A288552 _Clark Kimberling_, Jun 14 2017