A125720 A variation on the Thue-Morse sequence.

0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0

Offset: 1

Author

Eric Angelini, Feb 01 2007

Keywords

• easy
• nonn

Examples

			Start with chain 1 equal to 0:
ch 1 = 0
Copy and paste chain 1, then complement 1 rightmost digit (1->0, 0->1):
ch 2 = 0,1
Copy and paste chain 2, then complement 2 rightmost digits (1->0, 0->1):
ch 3 = 0,1,1,0
Copy and paste chain 3, then complement 3 rightmost digits (1->0, 0->1):
ch 4 = 0,1,1,0,0,0,0,1
Copy and paste chain 4, then complement 4 rightmost digits (1->0, 0->1):
ch 5 = 0,1,1,0,0,0,0,1,0,1,1,0,1,1,1,0
Copy and paste chain 5, then complement 5 rightmost digits (1->0, 0->1):
ch 6 = 0,1,1,0,0,0,0,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,1,0,1,1,1,0,0,0,1
Copy and paste chain 6, then complement 6 rightmost digits (1->0, 0->1):
ch 7 = 0,1,1,0,0,0,0,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,1,0,1,1,1,0,0,0,1,0,1,1,0,0,0,0,1,0,1,1,0,1,1,1,0,0,1,1,0,0,0,0,1,0,1,0,0,1,1,1,0
etc.
		

Links

• James C. McMahon, Table of n, a(n) for n = 1..1024

Crossrefs

Cf. A010060.

Programs

Mathematica

s={0};Do[s=Join[s,s];a=Take[s,-n]/.{0->1,1->0};s=Join[Drop[s,-n],a],{n,6}];s (* James C. McMahon, Dec 22 2024 *)