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 A284946 #4 Apr 18 2017 22:40:58
%S A284946 2,3,4,5,7,8,9,11,12,13,15,16,17,20,21,22,23,25,26,27,29,30,31,34,35,
%T A284946 36,37,39,40,41,43,44,45,48,49,50,51,53,54,55,57,58,59,62,64,65,66,67,
%U A284946 69,70,71,73,74,75,77,78,79,82,83,84,85,87,88,89,91,92
%N A284946 Positions of 1 in A284944; complement of A284945.
%C A284946 Conjecture: -1 < n*r - a(n) < 3 for n >= 1, where r = 2 + sqrt(2).
%H A284946 Clark Kimberling, <a href="/A284946/b284946.txt">Table of n, a(n) for n = 1..10000</a>
%e A284946 As a word, A284938 = 011110..., in which 1 is in positions 12,3,4,5,7,...
%t A284946 s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 1, 0}}] &, {0}, 6] (* A284944 *)
%t A284946 Flatten[Position[s, 0]] (* A284945 *)
%t A284946 Flatten[Position[s, 1]] (* A284946 *)
%Y A284946 Cf. A284945, A284946.
%K A284946 nonn,easy
%O A284946 1,1
%A A284946 _Clark Kimberling_, Apr 18 2017