%I #69 May 28 2019 11:52:13
%S 0,1,-1,0,1,1,0,-1,-1,-2,-1,-1,0,1,1,2,1,3,2,3,1,2,1,1,0,-1,-1,-2,-1,
%T -3,-2,-3,-1,-4,-3,-5,-2,-5,-3,-4,-1,-3,-2,-3,-1,-2,-1,-1,0,1,1,2,1,3,
%U 2,3,1,4,3,5,2,5,3,4,1,5,4,7,3,8,5,7,2,7,5,8,3,7
%N The twisted Stern sequence: a(0) = 0, a(1) = 1 and a(2n) = -a(n), a(2n + 1) = -a(n)-a(n + 1) for n>=1.
%H Bruno Berselli, <a href="/A213369/b213369.txt">Table of n, a(n) for n = 0..10000</a>
%H Jean-Paul Allouche, <a href="http://arxiv.org/abs/1202.4171">On the Stern sequence and its twisted version</a>, arXiv preprint arXiv:1202.4171 [math.NT], 2012.
%H Roland Bacher, <a href="http://arxiv.org/abs/1005.5627">Twisting the Stern sequence</a>, arXiv:1005.5627v1 [math.CO], 2010.
%H Peter Bundschuh & Keijo Väänänen, <a href="http://dx.doi.org/10.5802/jtnb.824">Algebraic independence of the generating functions of Stern's sequence and of its twist</a>, Journal de théorie des nombres de Bordeaux, 25 no. 1 (2013), p. 43-57, doi: 10.5802/jtnb.824.
%H Michael Coons, <a href="http://arxiv.org/abs/1008.0193">On Some Conjectures concerning Stern's Sequence and its Twist</a>, arXiv:1008.0193v3 [math.NT], 2010.
%F a(n) = A287729(n) - A287730(n) for n > 0. - _Michel Marcus_ & _I. V. Serov_, May 28 2019
%t a[0]=0; a[1]=1; a[n_] := a[n] = If[EvenQ[n], -a[n/2], -a[(n-1)/2]-a[(n+1)/2 ]]; Table[a[n], {n, 0, 77}] (* _Jean-François Alcover_, Oct 02 2018 *)
%o (Maxima) a[0]:0$ a[1]:1$ a[n]:=-a[floor(n/2)]-(1-(-1)^n)*a[floor((n-1)/2)+1]/2$ makelist(a[n],n,0,77); /* _Bruno Berselli_, Jun 15 2012 */
%Y Cf. A002487. Absolute values give A020944.
%K sign,look
%O 0,10
%A _N. J. A. Sloane_, Jun 13 2012