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 A287186 #11 Mar 11 2025 04:45:12
%S A287186 1,9,16,23,27,35,42,46,50,57,64,68,72,79,83,91,98,105,109,117,124,128,
%T A287186 132,139,143,151,155,163,170,174,178,185,192,196,200,207,211,219,223,
%U A287186 231,238,242,246,253,257,265,272,279,283,291,298,302,306,313,320
%N A287186 Positions of 1 in A287457; complement of A287519.
%C A287186 Conjecture: a(n)/n -> 5.90..., and if m denotes this number, then -1 < m - a(n)/n < 1 for n >= 3.
%H A287186 Clark Kimberling, <a href="/A287186/b287186.txt">Table of n, a(n) for n = 1..10000</a>
%t A287186 s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
%t A287186 w[n_] := StringReplace[w[n - 1], {"00" -> "1000", "10" -> "000"}]
%t A287186 Table[w[n], {n, 0, 8}]
%t A287186 st = ToCharacterCode[w[23]] - 48 (* A287457 *)
%t A287186 Flatten[Position[st, 0]] (* A287519 *)
%t A287186 Flatten[Position[st, 1]] (* A287186 *)
%Y A287186 Cf. A287457, A287519.
%K A287186 nonn,easy
%O A287186 1,2
%A A287186 _Clark Kimberling_, Jun 18 2017