A289177 Length of n-th iterate of the mapping 00->0010, 01->100, 10->011 in A289165.

2, 4, 7, 11, 17, 25, 38, 57, 85, 126, 185, 271, 396, 576, 835, 1208, 1745, 2515, 3622, 5215, 7509, 10814, 15583, 22470, 32423, 46820, 67651, 97800, 141457, 204684, 296265, 428950, 621218, 899829, 1303584, 1888759, 2736886, 3966153, 5747943, 8330630, 12074219

Offset

0,1

Links

Table of n, a(n) for n=0..40.

Mathematica

z = 41 ;  (* number of iterations *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "100", "10" -> "011"}];
TableForm[Table[w[n], {n, 0, 6}]]
st = ToCharacterCode[w[z]] - 48 ;  (* A289174 *)
Table[StringLength[w[n]], {n, 0, z}] (* A289177 *)

Crossrefs

Cf. A289174.

Sequence in context: A289060 A194805 A084842 * A249039 A342492 A280962

Adjacent sequences: A289174 A289175 A289176 * A289178 A289179 A289180

Keyword

nonn,easy

Author

Clark Kimberling, Jun 29 2017

Status

approved