A103748 Triangle read by rows, based on the morphism f: 1->{2}, 2->{3}, 3->{3,3,2,1}. First row is 1. If current row is a,b,c,..., then the next row is a,b,c,...,f(a),f(b),f(c),...

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

Offset: 0

Author

Roger L. Bagula, Mar 28 2005

Keywords

• nonn
• tabf

Comments

Kenyon tile substitution sequence.

Links

• Richard Kenyon, The Construction of Self-Similar Tilings

Crossrefs

Cf. A073058, A099206.

Programs

Mathematica

s[n_] := n /. {1 -> 2, 2 -> 3, 3 -> {3, 3, 2, 1}}; t[a_] := Join[a, Flatten[s /@ a]]; Flatten[ NestList[t, {1}, 5]]