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 A136546 #2 Mar 30 2012 17:34:23
%S A136546 0,0,1,1,1,3,3,4,4,4,5,7,7,8,9,10,9,10,11,11,11,13,13,15,15,16,16,18,
%T A136546 18,19,20,21,20,21,22,22,22,24,25,25,25,26,26,28,28,29,30,32,31,32
%N A136546 Three-part semi-chaotic binary digit sum/product sequence modeled on a Rudin-Shapiro-type sequence like A014081.
%F A136546 a(n)=Sum[1 - Mod[n - Floor[n/2^m], 2] + Mod[n - Floor[n/2^m], 2]Mod[n - Floor[n/2^(m - 1)], 2],{m, 1, Floor[(n)*Log[2]]}]
%t A136546 Clear[s, k, n] k[n_] := Apply[ Plus, Table[1 - Mod[n - Floor[n/2^m], 2] +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 A136546 Cf. A014081.
%K A136546 nonn,uned
%O A136546 1,6
%A A136546 _Roger L. Bagula_, Mar 24 2008