login
This site is supported by donations to The OEIS Foundation.

 

Logo

Many excellent designs for a new banner were submitted. We will use the best of them in rotation.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A189687 Fixed point of the morphism 0->011, 1->01. 5

%I

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

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

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

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

%e 0->011->0110101->01101010110101101->

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

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

%t Flatten[Position[t, 0]] (* A086377 conjectured *)

%t Flatten[Position[t, 1]] (* A081477 conjectured *)

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

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

%Y Cf. A189688, A086377, A189688.

%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 | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified April 19 21:10 EDT 2014. Contains 240777 sequences.