A288633 Fixed point of the mapping 00->0110, 1->10, starting with 00.

0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0

Offset

1

Comments

Iterates, starting with 00:

00

0110

010100

0100100110

010011010011010100

01001101010010011010100100100110

Conjecture: the number of letters (0's and 1's) in the n-th iterate is given by A288465(n).

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0110", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[10]] - 48   (* A288633 *)
Flatten[Position[st, 0]]  (* A288634 *)
Flatten[Position[st, 1]]  (* A288635 *)

Crossrefs

Cf. A288634, A288635.

Sequence in context: A337546 A059448 A283318 * A284775 A156259 A038219

Adjacent sequences: A288630 A288631 A288632 * A288634 A288635 A288636

Keyword

nonn,easy

Author

Clark Kimberling, Jun 15 2017

Status

approved