A026600 a(n) is the n-th letter of the infinite word generated from w(1)=1 inductively by w(n)=JUXTAPOSITION{w(n-1),w'(n-1),w"(n-1)}, where w(k) becomes w'(k) by the cyclic permutation 1->2->3->1 and w"(k) = (w')'(k).

1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 1, 2, 3, 2, 3, 1

Offset

1,2

Links

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

Michael Gilleland, Some Self-Similar Integer Sequences

Index entries for sequences that are fixed points of mappings

Formula

a(A026601(n)) = 1.

a(A026602(n)) = 2.

a(A026603(n)) = 3. -Michael Somos, Sep 06 2008

Example

1;
(123);
(123)(231)(312);
(123)(231)(312)(231)(312)(123)(312)(123)(231);

Mathematica

Nest[ Flatten[ # /. {1 -> {1, 2, 3}, 2 -> {2, 3, 1}, 3 -> {3, 1, 2}}] &, {1}, 7] (* Robert G. Wilson v, Mar 08 2005 *)

Prog

(PARI) {a(n) = if( n<2, n>0, (a((n + 2)\ 3) + n + 1 )%3 + 1)} /* Michael Somos, Sep 06 2008 */

Crossrefs

Equals A053838(n-1) + 1. Cf. A026601-A026614.

Sequence in context: A085032 A004549 A305389 * A106560 A263350 A202495

Adjacent sequences: A026597 A026598 A026599 * A026601 A026602 A026603

Keyword

nonn

Author

Clark Kimberling

Status

approved