A309198 - OEIS

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

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A309198

Fixed point of the morphism 1 -> 12, 2 -> 3, 3 -> 4, 4 -> 123.

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

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

OFFSET

0,2

LINKS

Rémy Sigrist, Table of n, a(n) for n = 0..15126

M. Dekking, Base phi representations and golden mean beta-expansions, arXiv:1906.08437 [math.NT], June 2019.

MATHEMATICA

Nest[Flatten[ReplaceAll[#, {1->{1, 2}, 2->3, 3->4, 4->{1, 2, 3}}]]&, {1}, 10] (* Paolo Xausa, Nov 09 2023 *)

PROG

(PARI) M = [[1, 2], [3], [4], [1, 2, 3]]; s = [1]; for (k=1, 100, while (k>#s, s=concat(apply(d -> M[d], s))); print1 (s[k] ", ")) \\ Rémy Sigrist, Jul 25 2019

CROSSREFS

See A308898 for another version.

Sequence in context: A214063 A078978 A322424 * A256914 A171171 A159957

Adjacent sequences: A309195 A309196 A309197 * A309199 A309200 A309201

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Jul 24 2019

STATUS

approved