|
%I #8 Mar 31 2017 00:41:56
%S 1,1,0,0,0,0,1,1,0,0,1,1,1,1,0,0,0,0,1,1,1,1,0,0,1,1,0,0,0,0,1,1,0,0,
%T 1,1,1,1,0,0,1,1,0,0,0,0,1,1,1,1,0,0,0,0,1,1,0,0,1,1,1,1,0,0,0,0,1,1,
%U 1,1,0,0,1,1,0,0,0,0,1,1,1,1,0,0,0,0,1,1,0,0,1,1,1,1,0,0,1,1,0,0,0,0,1,1,0
%N Doubled Thue-Morse sequence: the A010059 sequence replacing 0 with 0,0 and 1 with 1,1.
%C A143579(n) - n if n even; n - A143579(n) if n odd.
%F a(n)= 1 - A095190(n).
%t Nest[ Flatten[ # /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {1}, 6] /. {0 -> {0, 0}, 1 -> {1, 1}} // Flatten (* _Robert G. Wilson v_, Jun 27 2010 *)
%K nonn
%O 0,1
%A _Philippe Deléham_, Jun 25 2010
%E More terms from _Robert G. Wilson v_, Jun 27 2010
|
