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

Comments

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

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 -> {2, 1}}; t[a_] := Join[a, Flatten[s /@ a]]; Flatten[ NestList[t, {1}, 6]]

Crossrefs

Cf. A073058.

Sequence in context: A354582 A359312 A179868 * A072086 A180094 A333870

Adjacent sequences: A104229 A104230 A104231 * A104233 A104234 A104235

Keyword

nonn,tabf

Author

Roger L. Bagula, Apr 02 2005

Status

approved