A106584 6 symbol two center branched substitution with ends connected.

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

Offset

0,1

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A283976 A046818 A177462 * A213940 A236027 A220128

Adjacent sequences: A106581 A106582 A106583 * A106585 A106586 A106587

Keyword

nonn,uned

Author

Roger L. Bagula, May 09 2005

Status

approved