|
Search: id:A138060
|
|
|
| A138060 |
|
Triangle read by rows: row 1 = {1}; for n>1, row n is obtained from row n-1 by applying the morphism 1->1,2; 2->3; 3->4; 4->1. |
|
+0
6
|
|
| 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; table; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
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: A115452 A039676 A113126 this_sequence A023121 A136261 A140756
Adjacent sequences: A138057 A138058 A138059 this_sequence A138061 A138062 A138063
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 02 2008
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), May 06 2008
|
|
|
Search completed in 0.002 seconds
|
