A374724 Quartet paradiddle Thue-Morse, with axiom {1} and morphism 1->{1,2,3,4,1,1}, 2->{2,1,4,3,2,2}, 3->{3,4,1,2,3,3}, 4->{4,3,2,1,4,4}.

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

Offset: 0

Author

Robert P. P. McKone, Jul 17 2024

Keywords

• nonn
• easy

Links

• Robert P. P. McKone, Table of n, a(n) for n = 0..46655
• Index entries for sequences that are fixed points of mappings

Crossrefs

Cf. A010059, A010060.

Cf. A374646.

Programs

Mathematica

SubstitutionSystem[{1 -> {1, 2, 3, 4, 1, 1}, 2 -> {2, 1, 4, 3, 2, 2}, 3 -> {3, 4, 1, 2, 3, 3}, 4 -> {4, 3, 2, 1, 4, 4}}, {1}, {3}] // Flatten