%I #25 Jun 27 2022 21:24:10
%S 0,1,1,-1,1,1,-1,-1,1,1,1,-1,-1,1,-1,-1,1,1,1,-1,1,1,-1,-1,-1,1,1,-1,
%T -1,1,-1,-1,1,1,1,-1,1,1,-1,-1,1,1,1,-1,-1,1,-1,-1,-1,1,1,-1,1,1,-1,
%U -1,-1,1,1,-1,-1,1,-1,-1,1,1,1,-1,1,1,-1,-1,1,1,1,-1,-1,1,-1,-1,1,1,1,-1,1,1,-1,-1,-1,1,1,-1,-1,1,-1,-1,-1,1,1,-1,1,1,-1
%N Kronecker symbol (-1, n) except a(0) = 0.
%H J.-P. Allouche and J. Shallit, <a href="https://arxiv.org/abs/2006.04708">On three conjectures of P. Barry</a>, arxiv preprint arXiv:2006.04708 [math.NT], June 8 2020.
%H Paul Barry, <a href="https://arxiv.org/abs/2005.04066">Some observations on the Rueppel sequence and associated Hankel determinants</a>, arXiv:2005.04066 [math.CO], 2020.
%H <a href="/index/Fo#fold">Index entries for sequences obtained by enumerating foldings</a>
%F Multiplicative with a(2^e) = 1, a(p^e) = (-1)^(e(p-1)/2) if p>2.
%F a(2n) = a(n), a(4*n + 1) = 1, a(4*n + 3) = -1. a(-n) = -a(n).
%F a(n) = A034947(n) unless n=0.
%e x + x^2 - x^3 + x^4 + x^5 - x^6 - x^7 + x^8 + x^9 + x^10 - x^11 - x^12 + x^13 + ...
%t Join[{0},KroneckerSymbol[-1,Range[110]]] (* _Harvey P. Dale_, Jun 02 2019 *)
%o (PARI) {a(n) = if( n, kronecker( -1, n))}
%Y Cf. A034947.
%Y First differences of A005811.
%K sign,mult
%O 0,1
%A _Michael Somos_, Sep 12 2005