A105111 Triangle read by rows, based on the morphism f: 1->2, 2->3, 3->{3,5,4}, 4->5, 5->6, 6->{6,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, 5, 4, 1, 2, 2, 3, 2, 3, 3, 3, 5, 4, 2, 3, 3, 3, 5, 4, 3, 3, 5, 4, 3, 5, 4, 3, 5, 4, 6, 5, 1, 2, 2, 3, 2, 3, 3, 3, 5, 4, 2, 3, 3, 3, 5, 4, 3, 3, 5, 4, 3, 5, 4, 3, 5, 4, 6, 5, 2, 3, 3, 3, 5, 4, 3, 3, 5, 4, 3, 5, 4, 3, 5, 4, 6, 5, 3, 3, 5, 4, 3, 5, 4, 3, 5, 4, 6, 5, 3, 5

Offset

0,3

Comments

6-symbol substitution based on the second type Rauzy substitution that gives a tile in the Kenyon boundary method.

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

Crossrefs

Cf. A073058, A103684.

Sequence in context: A366927 A103748 A104231 * A105112 A105113 A207328

Adjacent sequences: A105108 A105109 A105110 * A105112 A105113 A105114

Keyword

nonn,tabf

Author

Roger L. Bagula, Apr 07 2005

Status

approved