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

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, 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, 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

Offset

1

Links

Table of n, a(n) for n=1..120.

Example

0->011->0110101->01110101001110011->

Mathematica

t = Nest[Flatten[# /. {0->{0, 1, 1}, 1->{1, 0}}] &, {0}, 6] (*A189702*)
f[n_] := t[[n]]
Flatten[Position[t, 0]] (*A189703*)
Flatten[Position[t, 1]] (*A189704*)
s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;
Table[s[n], {n, 1, 120}] (*A189705*)

Crossrefs

Cf. A189703, A189704, A189705.

Sequence in context: A285080 A167392 A190201 * A168395 A378901 A278718

Adjacent sequences: A189699 A189700 A189701 * A189703 A189704 A189705

Keyword

nonn

Author

Clark Kimberling, Apr 25 2011

Status

approved