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,6

Links

Table of n, a(n) for 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]]}]

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

Crossrefs

Cf. A014081.

Sequence in context: A179843 A319198 A243348 * A278765 A210881 A058729

Adjacent sequences: A136543 A136544 A136545 * A136547 A136548 A136549

Keyword

nonn,uned

Author

Roger L. Bagula, Mar 24 2008

Status

approved