A106702 Four loop eight-symbol substitution.

1, 3, 3, 2, 4, 3, 2, 4, 2, 4, 1, 6, 8, 3, 2, 4, 2, 4, 1, 6, 8, 2, 4, 1, 6, 8, 1, 6, 8, 3, 7, 8, 4, 6, 3, 2, 4, 2, 4, 1, 6, 8, 2, 4, 1, 6, 8, 1, 6, 8, 3, 7, 8, 4, 6, 2, 4, 1, 6, 8, 1, 6, 8, 3, 7, 8, 4, 6, 1, 6, 8, 3, 7, 8, 4, 6, 3, 7, 8, 4, 6, 2, 4, 8, 4, 6, 6, 8, 7, 8, 3, 2, 4, 2, 4, 1, 6, 8, 2, 4, 1, 6, 8, 1, 6

Offset

0,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A049604 A247509 A106686 * A303338 A271510 A349661

Adjacent sequences: A106699 A106700 A106701 * A106703 A106704 A106705

Keyword

nonn,uned

Author

Roger L. Bagula, May 13 2005

Status

approved