A277744 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A277744

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

0

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

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

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