A106583 6 symbol two center branched substitution.

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

Offset

0,2

Comments

Triangular form: {1}, {2}, {1,3,5} {2,2,2,4,6}, {1,3,5,1,3,5,1,3,5,5,5}

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A002249 A157127 A066748 * A081450 A248408 A210880

Adjacent sequences: A106580 A106581 A106582 * A106584 A106585 A106586

Keyword

nonn,uned

Author

Roger L. Bagula, May 09 2005

Status

approved