A289028 Length of n-th iterate of the mapping 00->0010, 10->010, 1-->001, starting with 00.

2, 4, 7, 12, 20, 34, 58, 99, 169, 288, 491, 837, 1428, 2437, 4159, 7099, 12118, 20686, 35313, 60283, 102909, 175676, 299897, 511955, 873961, 1491944, 2546908, 4347844, 7422234, 12670546, 21629975, 36924676, 63034365, 107606391, 183695599

Offset

0,1

Links

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

Mathematica

z = 34; (* number of iterations *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "010", "10" -> "001"}]
TableForm[Table[w[n], {n, 0, 4}]]
Table[StringLength[w[n]], {n, 0, z}] (* A289028 *)

Crossrefs

Cf. A289025.

Sequence in context: A289168 A340217 A289000 * A186537 A079970 A079816

Adjacent sequences: A289025 A289026 A289027 * A289029 A289030 A289031

Keyword

nonn,easy

Author

Clark Kimberling, Jul 10 2017

Status

approved