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 A293726 #5 Oct 18 2017 22:48:58
%S A293726 1,5,10,12,14,16,159,164,165,167,168,304,311,318,319,337,338,339,340,
%T A293726 341,413,414,416,418,419,421,422,423,424,425,426,428,429,438,440,442,
%U A293726 443,449,453,454,459,460,464,465,471,472,473,474,475,481,482,483,484
%N A293726 a(n) = (1/2)*A293725(n).
%t A293726 z = 300; u = N[Sqrt[2], z]; d = RealDigits[u, 2][[1]];
%t A293726 t[n_] := Take[d, n]; c[0, n_] := Count[t[n], 0]; c[1, n_] := Count[t[n], 1];
%t A293726 Table[{n, c[0, n], c[1, n]}, {n, 1, 100}]
%t A293726 u = Select[Range[z], c[0, #] == c[1, #] &] (* A293725 *)
%t A293726 u/2 (* A293726 *)
%t A293726 Select[Range[z], c[0, #] < c[1, #] &] (* A293727 *)
%t A293726 Select[Range[z], c[0, #] > c[1, #] &] (* A293728 *)
%Y A293726 Cf. A004539, A002103, A293726, A293727, A293728.
%K A293726 nonn,easy,base
%O A293726 1,2
%A A293726 _Clark Kimberling_, Oct 18 2017