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 A136545 #2 Mar 30 2012 17:34:23
%S A136545 0,1,2,2,3,3,3,5,3,6,4,7,4,7,4,11,3,12,4,13,5,14,5,15,4,17,5,17,5,17,
%T A136545 5,22,3,23,4,24,5,25,5,27,5,29,6,29,6,29,6,32,4,33
%N A136545 Semi-chaotic binary digit sum/product sequence modeled on a Rudin-Shapiro-type sequence like A014081.
%F A136545 a(n)=Sum[1 - Mod[n - Floor[n/2^m], 2]Mod[n - Floor[n/2^(m - 1)], 2],{m, 1, Floor[(n)*Log[2]]}]
%t A136545 Clear[s, k, n] k[n_] := Apply[Plus, Table[1 - Mod[n - Floor[n/2^m], 2]Mod[n - Floor[n/2^(m - 1)], 2], {m, 1, Floor[(n)*Log[2]]}]]; a = Table[k[n], {n, 1, 50}]
%Y A136545 Cf. A014081.
%K A136545 nonn,uned
%O A136545 1,3
%A A136545 _Roger L. Bagula_, Mar 24 2008