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 A101266 #11 Aug 08 2015 21:19:31
%S A101266 1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,1,
%T A101266 0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,0,1,0,0,
%U A101266 1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,1,0,0,1,0,1,0
%N A101266 First differences of A101402.
%C A101266 All terms are 0 or 1, see comment in A101402. - _Charles R Greathouse IV_, Aug 27 2014
%p A101266 A101402 := proc(n) option remember; local k; if n <=1 then n; else k := 2^ceil(log[2](n)) ; procname(k/2)+procname(n-1-k/2) ; fi; end: A101266 := proc(n) A101402(n+1)-A101402(n) ; end: seq(A101266(n),n=0..130) ; # _R. J. Mathar_, Aug 17 2009
%t A101266 a[0] = 0; a[1] = 1; a[n_] := a[n] = Block[{p = 2^(Ceiling[ Log[2, n]] - 1)}, a[p] + a[n - 1 - p]]; t = Table[ a@n, {n, 0, 101}]; Rest@t - Most@t (* _Robert G. Wilson v_, Aug 17 2009 *)
%Y A101266 Cf. A101402.
%K A101266 easy,nonn
%O A101266 0,1
%A A101266 _Odimar Fabeny_, Jan 23 2005
%E A101266 More terms from _R. J. Mathar_, Aug 17 2009