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!)
A189702 Fixed point of the morphism 0->011, 1->10. 5

%I #6 Mar 30 2012 18:57:25

%S 0,1,1,1,0,1,0,1,0,0,1,1,1,0,0,1,1,1,0,0,1,1,0,1,1,1,0,1,0,1,0,0,1,1,

%T 0,1,1,1,0,1,0,1,0,0,1,1,0,1,1,1,0,1,0,0,1,1,1,0,1,0,1,0,0,1,1,1,0,0,

%U 1,1,1,0,0,1,1,0,1,1,1,0,1,0,0,1,1,1,0,1,0,1,0,0,1,1,1,0,0,1,1,1,0,0,1,1,0,1,1,1,0,1,0,0,1,1,1,0,1,0,1,0

%N Fixed point of the morphism 0->011, 1->10.

%e 0->011->0110101->01110101001110011->

%t t = Nest[Flatten[# /. {0->{0,1,1}, 1->{1,0}}] &, {0}, 6] (*A189702*)

%t f[n_] := t[[n]]

%t Flatten[Position[t, 0]] (*A189703*)

%t Flatten[Position[t, 1]] (*A189704*)

%t s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;

%t Table[s[n], {n, 1, 120}] (*A189705*)

%Y Cf. A189703, A189704, A189705.

%K nonn

%O 1

%A _Clark Kimberling_, Apr 25 2011

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 March 28 12:59 EDT 2024. Contains 371254 sequences. (Running on oeis4.)