A179020 Doubled Thue-Morse sequence: the A010059 sequence replacing 0 with 0,0 and 1 with 1,1.

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, 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, 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

Offset: 0

Author

Philippe Deléham, Jun 25 2010

Keywords

• nonn

Comments

A143579(n) - n if n even; n - A143579(n) if n odd.

Programs

Mathematica

Nest[ Flatten[ # /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {1}, 6] /. {0 -> {0, 0}, 1 -> {1, 1}} // Flatten (* Robert G. Wilson v, Jun 27 2010 *)

Formula

a(n)= 1 - A095190(n).

Extensions

More terms from Robert G. Wilson v, Jun 27 2010