A277744 Fixed point of the morphism 1->23, 2->14, 3->21, 4->56, 5->63, 6->54; starting with a(1) = 1.

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

Offset

1,2

Links

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

F. Michel Dekking, Morphisms, Symbolic Sequences, and Their Standard Forms, Journal of Integer Sequences, Vol. 19 (2016), Article 16.1.1.

Maple

with(ListTools);
psi:=proc(S)
Flatten(subs( {1=[2, 3], 2=[1, 4], 3=[2, 1], 4=[5, 6], 5=[6, 3], 6=[5, 4]}, S));
end;
S:=[1];
for n from 1 to 8 do S:=psi(S): od:
S;

Mathematica

Nest[Flatten[#/.{1->{2, 3}, 2->{1, 4}, 3->{2, 1}, 4->{5, 6}, 5->{6, 3}, 6->{5, 4}}]&, 1, 8] (* Harvey P. Dale, Apr 23 2018 *)

Crossrefs

Sequence in context: A146321 A133455 A122606 * A119953 A010645 A326772

Adjacent sequences: A277741 A277742 A277743 * A277745 A277746 A277747

Keyword

nonn

Author

N. J. A. Sloane, Nov 08 2016

Status

approved