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 A285375 #4 Apr 26 2017 21:43:26
%S A285375 1,2,3,5,6,7,9,10,11,13,15,16,17,19,20,21,23,24,25,27,29,30,31,33,34,
%T A285375 35,37,38,39,41,43,44,45,47,49,50,51,53,54,55,57,58,59,61,63,64,65,67,
%U A285375 68,69,71,72,73,75,77,78,79,81,82,83,85,86,87,89,91,92
%N A285375 Positions of 1 in A285373; complement of A285374.
%C A285375 Conjecture: 0 < n*sqrt(2) - a(n) < 3 for n>=1.
%H A285375 Clark Kimberling, <a href="/A285375/b285375.txt">Table of n, a(n) for n = 1..10000</a>
%e A285375 As a word, A285373 = 11101110..., in which 1 is in positions 1,2,3,5,6,7,9,...
%t A285375 s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 1, 0}}] &, {0}, 10] (* A285373 *)
%t A285375 Flatten[Position[s, 0]] (* A285374 *)
%t A285375 Flatten[Position[s, 1]] (* A285375 *)
%Y A285375 Cf. A284373, A285374, A285376.
%K A285375 nonn,easy
%O A285375 1,2
%A A285375 _Clark Kimberling_, Apr 26 2017