A107470 1-limiting word of the morphism 1->111133779, 2->113379, 3->228, 4->113779, 5->1379, 6->28, 7->446, 8->46, 9->5.

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

Offset

0,5

Links

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

Mathematica

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

Crossrefs

Sequence in context: A003817 A092474 A225851 * A228325 A327122 A071042

Adjacent sequences: A107467 A107468 A107469 * A107471 A107472 A107473

Keyword

nonn,changed

Author

Roger L. Bagula, May 27 2005

Extensions

Edited by Sean A. Irvine, Jun 21 2026

Status

approved