A136545 Semi-chaotic binary digit sum/product sequence modeled on a Rudin-Shapiro-type sequence like A014081.

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, 5, 22, 3, 23, 4, 24, 5, 25, 5, 27, 5, 29, 6, 29, 6, 29, 6, 32, 4, 33

Offset

1,3

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 - 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 - 1)], 2], {m, 1, Floor[(n)*Log[2]]}]]; a = Table[k[n], {n, 1, 50}]

Crossrefs

Cf. A014081.

Sequence in context: A300944 A301498 A136132 * A125843 A210957 A306246

Adjacent sequences: A136542 A136543 A136544 * A136546 A136547 A136548

Keyword

nonn,uned

Author

Roger L. Bagula, Mar 24 2008

Status

approved