The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
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 May 28 20:33 EDT 2024. Contains 372919 sequences. (Running on oeis4.)