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 A284945 #4 Apr 18 2017 22:40:50
%S A284945 1,6,10,14,18,19,24,28,32,33,38,42,46,47,52,56,60,61,63,68,72,76,80,
%T A284945 81,86,90,94,95,100,104,108,109,111,116,120,124,128,129,134,138,142,
%U A284945 143,148,152,156,157,159,164,168,172,176,177,182,186,190,191,196,200
%N A284945 Positions of 0 in A284944; complement of A284946.
%C A284945 Conjecture: -4 < n*r - a(n) < 3 for n >= 1, where r = 2 + sqrt(2).
%H A284945 Clark Kimberling, <a href="/A284945/b284945.txt">Table of n, a(n) for n = 1..10000</a>
%e A284945 As a word, A284938 = 011110..., in which 0 is in positions 1,6,10,14,...
%t A284945 s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 1, 0}}] &, {0}, 6] (* A284944 *)
%t A284945 Flatten[Position[s, 0]] (* A284945 *)
%t A284945 Flatten[Position[s, 1]] (* A284946 *)
%Y A284945 Cf. A284944, A284946.
%K A284945 nonn,easy
%O A284945 1,2
%A A284945 _Clark Kimberling_, Apr 18 2017