|
%I
%S 1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,0,
%T 1,0,0,1,0,1,1,0,1,0,0,1,0,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,
%U 1,0,1,0,0,1,0,1,1,0,1,0,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,0,1,0,1,1,0,1,0,0
%N Half-baked Thue-Morse: at successive steps the sequence or its bit-inverted form is appended to itself.
%t s = {1}; Do[s = Join[s, Mod[s + 1, 2]]; s = Join[s, s], {n, 4}]; s (* _Robert G. Wilson v_ *)
%o s=[1 0]; loop s=[s s]; s=[s inv(s)] endloop
%Y Cf. A104104, A010060.
%K easy,nonn
%O 1,1
%A _Alexandre Losev_, Dec 15 2005
%E More terms from _Robert G. Wilson v_, Dec 22 2005
|
