login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
Vladimir Shevelev, Two analogs of Thue-Morse sequence, arXiv:1603.04434 [math.NT], 2016.
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
Sequence in context: A212195 A228926 A321414 * A024159 A029302 A263415
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Feb 15 2016
EXTENSIONS
More terms from Peter J. C. Moses, Feb 15 2016
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 13 15:38 EDT 2024. Contains 371644 sequences. (Running on oeis4.)