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

Offset

0,3

Comments

Improved version of bi-Kenyon 6-symbol substitution.

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

Crossrefs

Cf. A103684.

Sequence in context: A103748 A104231 A105111 * A105113 A207328 A105056

Adjacent sequences: A105109 A105110 A105111 * A105113 A105114 A105115

Keyword

nonn,tabf

Author

Roger L. Bagula, Apr 07 2005

Status

approved