A107474 4-symbol substitution that a matrix self-similar Fibonacci Matrix isomer.

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

Offset

0,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A037900 A037838 A165052 * A114734 A299755 A323907

Adjacent sequences: A107471 A107472 A107473 * A107475 A107476 A107477

Keyword

nonn,uned

Author

Roger L. Bagula, May 27 2005

Status

approved