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 A284746 #10 Sep 09 2023 10:25:15
%S A284746 1,3,4,5,6,8,10,12,14,15,16,17,19,20,21,22,24,25,26,27,29,30,31,32,34,
%T A284746 36,38,40,41,42,43,45,47,49,51,52,53,54,56,58,60,62,63,64,65,67,69,71,
%U A284746 73,74,75,76,78,79,80,81,83,84,85,86,88,89,90,91,93,95
%N A284746 Positions of 0 in A284745; complement of A191263.
%C A284746 Conjecture: a(n)/n -> (5 + sqrt(13))/6.
%C A284746 From _Andrey Zabolotskiy_, Apr 13 2017: The conjecture is true since it states that the fraction of 0's is equal to 6/(5 + sqrt(13)), which is the invariant value of the fraction of 0's under the morphism.
%H A284746 Clark Kimberling, <a href="/A284746/b284746.txt">Table of n, a(n) for n = 1..10000</a>
%e A284746 As a word, A284745 = 01000010101..., in which 0 is in positions 1,3,4,5,6,8,...
%t A284746 s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 0}}] &, {0}, 7] (* A284745 *)
%t A284746 Flatten[Position[s, 0]] (* this sequence *)
%t A284746 Flatten[Position[s, 1]] (* A191263 *)
%Y A284746 Cf. A191263, A284744.
%K A284746 nonn,easy
%O A284746 1,2
%A A284746 _Clark Kimberling_, Apr 13 2017