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

2, 4, 7, 12, 20, 34, 57, 96, 163, 277, 472, 803, 1368, 2328, 3963, 6745, 11481, 19542, 33260, 56612, 96369, 164036, 279208, 475288, 809027, 1377074, 2344072, 3990031, 6791680, 11560716, 19678465, 33496200, 57016621, 97052630

Offset

0,1

Links

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

Mathematica

z = 22; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "100", "10" -> "001"}];
st = ToCharacterCode[w[z]] - 48 ;  (* A289165 *)
v = Table[StringLength[w[n]], {n, 0, 30}] (* A289168 *)

Crossrefs

Cf. A289165.

Sequence in context: A329397 A172524 A094925 * A340217 A289000 A289028

Adjacent sequences: A289165 A289166 A289167 * A289169 A289170 A289171

Keyword

nonn,easy

Author

Clark Kimberling, Jun 29 2017

Status

approved