A106689 3 symbols five at a time.

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

Offset

0,3

Comments

This substitution gives distorted gasket.

Links

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

Formula

1->{1, 1, 3, 2, 1}, 2->{2, 2, 3, 1, 2}, 3->{3, 3, 2, 1, 3}

Mathematica

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

Crossrefs

Sequence in context: A079948 A257657 A339584 * A348177 A027082 A140736

Adjacent sequences: A106686 A106687 A106688 * A106690 A106691 A106692

Keyword

nonn,uned

Author

Roger L. Bagula, May 13 2005

Status

approved