A105103 A bi-Rauzy Pisot substitution.

1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 6, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 6, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 6, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 6, 1, 2, 1, 3, 1, 2, 6, 1, 2, 1, 3, 1

Offset

0,4

Links

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

Formula

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

Mathematica

s[1] = {1, 2}; s[2] = {1, 3}; s[3] = {6}; s[4] = {4, 5}; s[5] = {4, 6}; s[6] = {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}]]

Crossrefs

Cf. A073058, A103684.

Sequence in context: A352767 A253051 A103684 * A086669 A357906 A053574

Adjacent sequences: A105100 A105101 A105102 * A105104 A105105 A105106

Keyword

nonn,uned

Author

Roger L. Bagula, Apr 07 2005

Status

approved