A287931 Fixed point of the mapping 00->0010, 1->10, starting with 00.

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

Offset

1

Links

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

Example

Iterates, starting with 00:
00
0010
0010100
0010100100010
00101001000101000100100
001010010001010001001001000100100010100010

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A287931 *)
Flatten[Position[st, 0]]  (* A287379 *)
Flatten[Position[st, 1]]  (* A287380 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A278381 conjectured *)

Crossrefs

Cf. A287379, A287380, A287381.

Sequence in context: A285139 A289011 A289071 * A289074 A289242 A346218

Adjacent sequences: A287928 A287929 A287930 * A287932 A287933 A287934

Keyword

nonn,easy

Author

Clark Kimberling, Jun 06 2017

Status

approved