|
|
A268865
|
|
Sequence connected with negabinary (A039724) - see comment.
|
|
6
|
|
|
2, 0, 0, 3, 0, 1, 2, 0, 0, 1, 22, 0, 2, 0, 0, 3, 0, 1, 6, 0, 2, 0, 0, 1, 2, 0, 0, 3, 0, 1, 2, 0, 0, 1, 6, 0, 2, 0, 0, 1, 2, 0, 0, 3, 0, 1, 10, 0, 2, 0, 0, 3, 0, 1, 2, 0, 0, 1, 38, 0, 2, 0, 0, 3, 0, 1, 6, 0, 2, 0, 0, 1, 2, 0, 0, 3, 0, 1, 10, 0, 2, 0, 0, 3, 0, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Let b(n) be the parity of the number of 1's in the n-th term of A039724 {0,1,0,1,1,0,1,0,0,...}. Let A_n be the Thue-Morse sequence (A010060) beginning with A010060(n). Then a(n) is defined to be the maximal number of the first terms of {b(n)} coinciding with the corresponding terms of A_n.
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_, b_] := Most@ Mod[NestWhileList[-(#1 - Mod[#1, b])/b &, n, #1 != 0 &], b]; Array[(k = 0; While[Mod[Total@ f[k, 2], 2] == ThueMorse[# + k], k++]; k) &, 86, 0] (* Michael De Vlieger, Aug 25 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|