%I A088172
%S A088172 1,2,3,7,13,26,53,106,211,422,845,1689,3379,6758,13515,27031,54061,
%T A088172 108122,216245,432489,864979,1729958,3459915,6919830,13839661,27679322,
%U A088172 55358643,110717287,221434573,442869146,885738293,1771476586,3542953171
%N A088172 First differences of A019300.
%C A088172 Partial sums give A019300, while partial sums mod 2 = the Thue-Morse 
               sequence, A010060. a(n) mod 2 = A035263: 1, 0, 1, 1, 1, 0, 1, 0, 
               1, 0, 1, 1, 1,...
%F A088172 a(n+1) = 2*a(n) +0 or +/-1. - Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Sep 27 2003
%F A088172 a(n+1) = 2*a(n) + A029883(n) . - DELEHAM Philippe (kolotoko(AT)wanadoo.fr), 
               Mar 21 2004
%t A088172 tm = Table[ If[ OddQ[ Count[ IntegerDigits[n, 2], 1]], 1, 0], {n, 0, 
               35}]; Table[ FromDigits[ Take[ tm, n + 1], 2] - FromDigits[ Take[ 
               tm, n], 2], {n, 1, 33}] (from Robert G. Wilson v)
%Y A088172 Cf. A019300, A010060, A035263.
%Y A088172 Sequence in context: A075058 A128695 A024504 this_sequence A048573 A006946 
               A074129
%Y A088172 Adjacent sequences: A088169 A088170 A088171 this_sequence A088173 A088174 
               A088175
%K A088172 nonn
%O A088172 1,2
%A A088172 Gary W. Adamson (qntmpkt(AT)yahoogroups.com), Sep 21 2003
%E A088172 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2003