This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A088172 #12 Feb 13 2022 05:05:40
%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,
%U A088172 27679322,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_, Sep 27 2003
%F A088172 a(n+1) = 2*a(n) + A029883(n). - _Philippe Deléham_, 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}] (* _Robert G. Wilson v_ *)
%Y A088172 Cf. A019300, A010060, A035263.
%K A088172 nonn
%O A088172 1,2
%A A088172 _Gary W. Adamson_, Sep 21 2003
%E A088172 More terms from _Robert G. Wilson v_, Sep 27 2003