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!)
A285949 {0->01, 1->0}-transform of the Thue-Morse word A010060. 3
0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET
1
COMMENTS
The morphism {0->01, 1->0} has the infinite Fibonacci word A003849 as fixed point.
From Michel Dekking, Sep 04 2020: (Start)
This sequence is a morphic sequence, i.e., the letter-to-letter image of the fixed point of a morphism mu.
The transform map 0->01, 1->0 is called a decoration in my paper "Morphic words, Beatty sequences and integer images of the Fibonacci language". It is well-known that decorated fixed points are morphic sequences, and the 'natural' algorithm to achieve this yields a morphism on an alphabet of 2+1 = 3 symbols. So here one can take the alphabet {1,2,3}, and one obtains the morphism
mu: 1->12, 2->3, 3->312,
and the letter-to-letter map lambda defined by
lambda: 1->0, 2->1, 3->0.
Then (a(n)) = lambda(x), where x = 1,2,3,3,1,2,3,1,2,1,2,3... is the unique fixed point of the morphism mu.
This representation of (a(n)) leads to new derivations of the sequences A285950 and A285951 of positions of 0, respectively 1 in (a(n)). The sequence x is a concatenation of the three return words a=1233, b=123, and c=12, of 1 in x. (These are all the words occurring in x starting with 1, and having no other occurrences of 1 in them).
Since mu(1233) = 1233 123 12, mu(123)= 1233 12, mu(12) = 123,
the return words induce a derived morphism
tau: a->abc, b->ac, c->b.
One recognizes tau as the famous Istrail morphism, which has the ternary Thue Morse sequence A036577 = abcacbabc.... as unique fixed point.
A close look at the occurrences of the letters 1 and 3 (which are the two letters that are mapped to 0 by lambda) in the words a, b and c, shows that the sequence of first differences of A285950 is the decoration a->211, b->21, c->2 of the ternary Thue Morse sequence. The result is the Thue Morse sequence again, but on the alphabet {2,1}. See the comments of A285950, or Example 8 in my paper "The spectrum of dynamical systems...".
The letter 2 in x, which is the sole letter with lambda image 1, occurs with differences 2, 3 and 4 associated to the return words c, b and a.
This implies that the sequence of first differences of A285951, the positions of 1 in (a(n)), is nothing else but the ternary Thue Morse sequence with a=4, b=3 and c=2. Thus one obtains the result in my comments on A285951 in a simple way.
(End)
LINKS
F. M. Dekking, The spectrum of dynamical systems arising from substitutions of constant length, Publications mathématiques et informatique de Rennes, no. 2 (1976), Exposé no. 6, 34 p.
F. M. Dekking, The spectrum of dynamical systems arising from substitutions of constant length, Z. Wahrscheinlichkeitstheorie und verw. Gebiete 41 (1978), 221-239.
M. Dekking, Morphic words, Beatty sequences and integer images of the Fibonacci language, Theoretical Computer Science 809, 407-417 (2020).
EXAMPLE
As a word, A010060 = 0110100110010110100101100..., and replacing each 0 by 01 and each 1 by 0 gives 0100010010100010100100010...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 7] (* Thue-Morse, A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "01", "1" -> "0"}] (* A285949, word *)
st = ToCharacterCode[w1] - 48 (* A285949, sequence *)
Flatten[Position[st, 0]] (* A285950 *)
Flatten[Position[st, 1]] (* A285951 *)
PROG
(PARI) a(n) = n--; my(r); [n, r] = divrem(n, 3); r && bitand(hammingweight(n)+r, 1); \\ Kevin Ryde, Jan 28 2022
CROSSREFS
Sequence in context: A285957 A292273 A324772 * A285530 A317542 A322796
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 02 2017
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 24 18:17 EDT 2024. Contains 371962 sequences. (Running on oeis4.)