A381848 Sequence obtained by replacing 3-term subwords of A010060 by 0,1,2,3,4,5 as described in Comments.

2, 5, 4, 1, 3, 0, 2, 5, 3, 0, 1, 4, 2, 5, 4, 1, 3, 0, 1, 4, 2, 5, 3, 0, 2, 5, 4, 1, 3, 0, 2, 5, 3, 0, 1, 4, 2, 5, 3, 0, 2, 5, 4, 1, 3, 0, 1, 4, 2, 5, 4, 1, 3, 0, 2, 5, 3, 0, 1, 4, 2, 5, 4, 1, 3, 0, 1, 4, 2, 5, 3, 0, 2, 5, 4, 1, 3, 0, 1, 4, 2, 5, 4, 1, 3, 0

Offset: 1

Author

Clark Kimberling, May 28 2025

Keywords

• nonn

Comments

The six 3-term subwords of A010060 are 0,0,1; 0,1,0; 0,1,1; 1,0,0; 1,0,1; 1,1,0. These are coded as 0,1,2,3,4,5 respectively, and then these numbers replace the corresponding subwords in A010060. The positions of 0,1,2,3,4,5 are given by A248956, A248104, A157971, A157970, A248105, A248057, respectively.

Examples

			Starting with A010060 = (0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0,...), the successive 3-term subwords are 0,1,1; 1,1,0; 1,0,1; 0,1,0; 1,0,0 ..., which code as 2,5,4,1,3,... .
		

Crossrefs

Cf. A010060, A383999, A248956, A248104, A157971, A157970, A248105, A248057.

Programs

Mathematica

Partition[ThueMorse[Range[0, 200]], 3, 1] /. Thread[{{0, 0, 1}, {0, 1, 0}, {0, 1, 1}, {1, 0, 0}, {1, 0, 1}, {1, 1, 0}} -> {0, 1, 2, 3, 4, 5}]  (* Peter J. C. Moses, May 22 2025 *)