A105102 A bi-Minimal Pisot substitution.

1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 5, 4, 1, 2, 2, 3, 2, 3, 3, 5, 4, 2, 3, 3, 5, 4, 3, 5, 4, 5, 4, 6, 5, 1, 2, 2, 3, 2, 3, 3, 5, 4, 2, 3, 3, 5, 4, 3, 5, 4, 5, 4, 6, 5, 2, 3, 3, 5, 4, 3, 5, 4, 5, 4, 6, 5, 3, 5, 4, 5, 4, 6, 5, 5, 4, 6, 5, 6, 5, 2, 1, 6, 1, 2, 2, 3, 2, 3, 3, 5, 4, 2, 3, 3, 5, 4, 3, 5, 4, 5, 4

Offset: 0

Author

Roger L. Bagula, Apr 07 2005

Keywords

• nonn
• uned

Crossrefs

Cf. A073058.

Programs

Mathematica

s[1] = {2}; s[2] = {3}; s[3] = {5, 4}; s[4] = {5}; s[5] = {6}; s[6] = {2, 1}; t[a_] := Join[a, Flatten[s /@ a]]; p[0] = {1}; p[1] = t[{1}]; p[n_] := t[p[n - 1]] aa = Flatten[Table[p[n], {n, 0, 6}]]

Formula

1-> 2 2->3 3->{5, 4} 4->5 5->6 6->{2, 1}