sum[(-1)^(ThueMorse[n]) , {n, 0, inf}]