A136546 Three-part semi-chaotic binary digit sum/product sequence modeled on a Rudin-Shapiro-type sequence like A014081.

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, 18, 19, 20, 21, 20, 21, 22, 22, 22, 24, 25, 25, 25, 26, 26, 28, 28, 29, 30, 32, 31, 32

Offset: 1

Author

Roger L. Bagula, Mar 24 2008

Keywords

• nonn
• uned

Crossrefs

Cf. A014081.

Programs

Mathematica

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}]

Formula

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]]}]