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!)
A285373 Fixed point of the morphism 0 -> 10, 1 -> 1110. 5
1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET
1
COMMENTS
From Michel Dekking, Jan 22 2018: (Start)
Proof of Mathar's conjecture of May 08 2017:
Let sigma be the morphism
sigma: 0 -> 10, 1 -> 1110,
and let tau be the morphism
tau: 0 -> 01, 1 -> 1101,
which has A284939 as a fixed point.
It clearly suffices to prove the relation
(A) : 0 sigma^n(0) = tau^n(0) 0 for all n=1,2,...
To prove such a thing one needs a second relation, for example,
(B) : sigma^n(10) = sigma^n(0) 0^{-1} tau^n(1) 0 for all n=1,2,...
Here 0^{-1} is the free group inverse of 0.
Note that (A) and (B) together imply
(C) : sigma^n(10) = 0^{-1} tau^n(01) 0 for all n=1,2,...
But, since sigma(0)=10, and tau(0)=01, relation (C) is equal to relation (A), with n replaced by n+1.
It is therefore enough to prove (B) by induction.
Well, (A), (B) and (C) are easily checked for n=1.
Furthermore, using the induction hypothesis with (B) and (C) in the first line, and again (C) in the third line, one obtains
sigma^{n+1}(10)
= sigma^n(11)sigma^n(01)sigma^n(01)
= sigma^n(1)sigma^n(1) sigma^n(0) 0^{-1} tau^n(1) 0 0^{-1} tau^n(01) 0
= sigma^n(1)sigma^n(10) 0^{-1} tau^n(101) 0
= sigma^n(1) sigma^n(0) 0^{-1} tau^n(1) 0 0^{-1} tau^n(101) 0
= sigma^n(10) 0^{-1} tau^n(1101) 0
= sigma^{n+1}(0) 0^{-1} tau^{n+1}(1) 0. (End)
LINKS
FORMULA
Conjecture: a(n) = A284939(n+1). - R. J. Mathar, May 08 2017
EXAMPLE
0 -> 10-> 1110 -> 11101110111010 ->
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 1, 0}}] &, {0}, 10] (* A285373 *)
Flatten[Position[s, 0]] (* A285374 *)
Flatten[Position[s, 1]] (* A285375 *)
CROSSREFS
Sequence in context: A076213 A368907 A120525 * A359543 A361121 A371087
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 25 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 15 21:53 EDT 2024. Contains 372549 sequences. (Running on oeis4.)