A289010 Length of n-th iterate of the mapping 00->0010, 01->001, 10->011, starting with 00.

2, 4, 7, 11, 17, 26, 40, 61, 92, 137, 203, 299, 437, 634, 915, 1317, 1891, 2708, 3869, 5520, 7869, 11209, 15954, 22693, 32268, 45874, 65203, 92655, 131644, 187026, 265695, 377433, 536130, 761527, 1081671, 1536388, 2182225, 3099498, 4402305, 6252710, 8880869

Offset

0,1

Links

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

Mathematica

z = 30; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "001", "10" -> "011"}]
TableForm[Table[w[n], {n, 0, 10}]]
Table[StringLength[w[n]], {n, 0, 20}] (* A289007 *)

Crossrefs

Cf. A289007.

Sequence in context: A096967 A117276 A035295 * A006999 A005252 A023430

Adjacent sequences: A289007 A289008 A289009 * A289011 A289012 A289013

Keyword

nonn,easy

Author

Clark Kimberling, Jun 26 2017

Status

approved