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.

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

Offset: 1

Author

Roger L. Bagula, May 02 2008

Keywords

• nonn
• tabf
• easy

Examples

			{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}
		

Crossrefs

Row sums are A138289. Rows converge to A138297.

Cf. A103684.

Programs

Mathematica

SubstitutionSystem[{1 -> {1, 2}, 2 -> {3}, 3 -> {4}, 4 -> {1}}, {1}, 10] // Flatten (* Jean-François Alcover, Jul 01 2023 *)

Extensions

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