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,3

Comments

Kenyon tile substitution sequence.

Links

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

Richard Kenyon, The Construction of Self-Similar Tilings

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]]

Crossrefs

Cf. A073058, A099206.

Sequence in context: A333870 A354914 A366927 * A104231 A105111 A105112

Adjacent sequences: A103745 A103746 A103747 * A103749 A103750 A103751

Keyword

nonn,tabf

Author

Roger L. Bagula, Mar 28 2005

Status

approved