A106036 Trajectory of 1 under the morphism 1->{1,2}, 2->{1,2,3}, 3->{1,2,3,3}.

1, 2, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 1, 2, 3, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 1, 2, 3, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 1, 2, 3, 3

Offset

0,2

Comments

2-sided chain substitution sequence: characteristic polynomial x^3-4x^2+3*x.

References

M. Baake and R. V. Moody, "Self-Similar Measures for Quasicrystals", in Directions in Mathematical Quasicrystals (eds. M. Baake and R. V. Moody), CRM Monograph Series, vol. 13, AMS, Providence, RI (2000), pp. 1-42.

Links

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

Index entries for sequences that are fixed points of mappings

Mathematica

s[1] = {1, 2}; s[2] = {1, 2, 3}; s[3] = {1, 2, 3, 3}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] aa = p[6]

Crossrefs

Cf. A106035.

Sequence in context: A325530 A171712 A091412 * A007001 A094917 A082691

Adjacent sequences: A106033 A106034 A106035 * A106037 A106038 A106039

Keyword

nonn

Author

Roger L. Bagula, May 05 2005

Status

approved