This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A381848 #47 Jun 01 2025 17:38:28
%S A381848 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,
%T A381848 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,
%U A381848 2,5,3,0,2,5,4,1,3,0,1,4,2,5,4,1,3,0
%N A381848 Sequence obtained by replacing 3-term subwords of A010060 by 0,1,2,3,4,5 as described in Comments.
%C A381848 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.
%e A381848 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,... .
%t A381848 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 *)
%Y A381848 Cf. A010060, A383999, A248956, A248104, A157971, A157970, A248105, A248057.
%K A381848 nonn
%O A381848 1,1
%A A381848 _Clark Kimberling_, May 28 2025