A104232 Triangle read by rows, based on the morphism f: 1->2, 2->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, 2, 1, 1, 2, 2, 3, 2, 3, 3, 2, 1, 2, 3, 3, 2, 1, 3, 2, 1, 2, 1, 3, 2, 1, 2, 2, 3, 2, 3, 3, 2, 1, 2, 3, 3, 2, 1, 3, 2, 1, 2, 1, 3, 2, 2, 3, 3, 2, 1, 3, 2, 1, 2, 1, 3, 2, 3, 2, 1, 2, 1, 3, 2, 2, 1, 3, 2, 3, 2, 2, 1, 3, 1, 2, 2, 3, 2, 3, 3, 2, 1, 2, 3, 3, 2, 1, 3, 2, 1, 2, 1

Offset: 0

Author

Roger L. Bagula, Apr 02 2005

Keywords

• nonn
• tabf

Comments

This substitution was suggested by looking at the Kenyon border tiling substitutions.

Links

• Richard Kenyon, The Construction of Self-Similar Tilings

Crossrefs

Cf. A073058.

Programs

Mathematica

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