A106584 - OEIS

A106584

3-limiting word of the morphism 1->323, 2->135, 3->121, 4->656, 5->246, 6->454 starting from 1.

3, 2, 3, 1, 3, 5, 3, 2, 3, 3, 2, 3, 1, 2, 1, 2, 4, 6, 3, 2, 3, 1, 3, 5, 3, 2, 3, 1, 2, 1, 1, 3, 5, 1, 2, 1, 3, 2, 3, 1, 3, 5, 3, 2, 3, 1, 3, 5, 6, 5, 6, 4, 5, 4, 3, 2, 3, 1, 3, 5, 3, 2, 3, 3, 2, 3, 1, 2, 1, 2, 4, 6, 3, 2, 3, 1, 3, 5, 3, 2, 3, 3, 2, 3, 1, 3, 5, 3, 2, 3, 3, 2, 3, 1, 2, 1, 2, 4, 6, 3, 2, 3, 1, 3, 5

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MAPLE

f:= n-> [[3, 2, 3], [1, 3, 5], [1, 2, 1], [6, 5, 6], [2, 4, 6], [4, 5, 4]][n][]:

1: for n from 1 to 5 do map(f, [%])[] od: %; # Alois P. Heinz, May 05 2026

MATHEMATICA

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

CROSSREFS

Sequence in context: A283976 A046818 A177462 * A213940 A236027 A220128

Adjacent sequences: A106581 A106582 A106583 * A106585 A106586 A106587

KEYWORD

nonn

AUTHOR

Roger L. Bagula, May 09 2005

EXTENSIONS

Edited by Sean A. Irvine, May 05 2026

STATUS

approved