login
A179020
Doubled Thue-Morse sequence: the A010059 sequence replacing 0 with 0,0 and 1 with 1,1.
0
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,1
COMMENTS
A143579(n) - n if n even; n - A143579(n) if n odd.
FORMULA
a(n)= 1 - A095190(n).
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 *)
CROSSREFS
Sequence in context: A274179 A194675 A117964 * A179771 A194677 A194667
KEYWORD
nonn
AUTHOR
Philippe Deléham, Jun 25 2010
EXTENSIONS
More terms from Robert G. Wilson v, Jun 27 2010
STATUS
approved