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 A287802 #4 Jun 04 2017 18:18:48
%S A287802 2,3,4,5,8,9,11,12,13,14,17,18,19,20,23,24,26,27,28,29,32,33,35,36,37,
%T A287802 38,41,42,43,44,47,48,50,51,52,53,56,57,58,59,62,63,65,66,67,68,71,72,
%U A287802 74,75,76,77,80,81,82,83,86,87,89,90,91,92,95,96,98,99
%N A287802 Positions of 0 in A287801; complement of A287803.
%C A287802 Let d(n) = 3n/2 - a(n). Then d(n) is in {-1/2, 0, 1/2, 1} for n >= 1. Indeed,
%C A287802 d(n) = - 1/2 if n is in A075317; d(n) = 1/2 if n is in A075318;
%C A287802 d(n) = 0 if n is in A283234; d(n) = 1 if n is in A283233.
%H A287802 Clark Kimberling, <a href="/A287802/b287802.txt">Table of n, a(n) for n = 1..10000</a>
%t A287802 s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)
%t A287802 w = StringJoin[Map[ToString, s]]
%t A287802 w1 = StringReplace[w, {"0" -> "100", "1" -> "001"}]
%t A287802 st = ToCharacterCode[w1] - 48 (* A287801 *)
%t A287802 Flatten[Position[st, 0]] (* A287802 *)
%t A287802 Flatten[Position[st, 1]] (* A287803 *)
%Y A287802 Cf. A075317, A075318, A283233, A283234, A287801, A287803.
%K A287802 nonn,easy
%O A287802 1,1
%A A287802 _Clark Kimberling_, Jun 03 2017