|
%I #28 Sep 08 2022 08:45:19
%S 0,1,0,0,0,1,0,1,0,0,0,1,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,1,0,0,0,1,0,1,
%T 0,0,0,1,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,1,0,0,0,1,0,1,0,0,0,1,0,-1,0,0,
%U 0,-1,0,-1,0,0,0,-1,0,1,0,0,0,1,0,1,0,0,0,1,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,1,0,0,0,1,0,1,0
%N a(n) = Kronecker symbol (-6/n).
%D L. B. W. Jolley, Summation of Series, Dover Publications, 1961.
%H G. C. Greubel, <a href="/A109017/b109017.txt">Table of n, a(n) for n = 0..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/KroneckerSymbol.html">Kronecker Symbol</a>
%H <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,1,0,0,0,-1).
%F Euler transform of length-24 sequence [ 0, 0, 0, 1, 0, 1, 0, -1, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1].
%F a(n) = -a(-n) = a(n+24) for all n in Z.
%F G.f.: x * (1 + x^6) / (1 - x^4 + x^8).
%F G.f.: x *(1 -x^8)*(1 -x^12)^2 /((1 -x^4)*(1 -x^6)*(1 -x^24)).
%F Sum_{n>=1} |a(n)|/n^2 = Pi^2/9 [Jolley equ. 338].
%e G.f. = x + x^5 + x^7 + x^11 - x^13 - x^17 - x^19 - x^23 + x^25 + x^29 + ...
%p A109017 := proc(n)
%p numtheory[jacobi](-6,n) ;
%p end proc: # _R. J. Mathar_, Nov 03 2011
%t Table[KroneckerSymbol[-6, n], {n, 0, 104}] (* _Jean-François Alcover_, Jan 10 2014 *)
%o (PARI) {a(n) = kronecker(-6, n)};
%o (PARI) {a(n) = (n%2) * (n%3!=0) * (-1)^(n\12)};
%o (Magma) [KroneckerSymbol(-6,n): n in [0..120]]; // _Vincenzo Librandi_, Aug 09 2015
%K sign,mult,easy
%O 0,1
%A _Michael Somos_, Jun 16 2005
|
