

A138060


Triangle read by rows: row 1 = {1}; for n>1, row n is obtained from row n1 by applying the morphism 1>1,2; 2>3; 3>4; 4>1.


2



1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


LINKS

Table of n, a(n) for n=1..105.


EXAMPLE

{1},
{1, 2},
{1, 2, 3},
{1, 2, 3, 4},
{1, 2, 3, 4, 1},
{1, 2, 3, 4, 1, 1, 2},
{1, 2, 3, 4, 1, 1, 2, 1, 2, 3},
{1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4},
{1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1},
{1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 2, 3, 4, 1, 1, 2},
{1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3}


MATHEMATICA

Clear[a, s, p, t, m, n] (* substitution *) s[1] = {1, 2}; s[2] = {3}; s[3] = {4}; s[4] = {1}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n  1]]; a = Table[p[n], {n, 0, 10}] Flatten[a]


CROSSREFS

Row sums are A138289. Rows converge to A138297.
Cf. A103684.
Sequence in context: A242359 A113126 A348043 * A023121 A136261 A140756
Adjacent sequences: A138057 A138058 A138059 * A138061 A138062 A138063


KEYWORD

nonn,tabf


AUTHOR

Roger L. Bagula, May 02 2008


EXTENSIONS

Edited by N. J. A. Sloane, May 06 2008


STATUS

approved



