|
%I #23 Sep 08 2022 08:45:12
%S 1,1,1,1,-1,1,0,1,1,-1,-1,1,-1,0,-1,1,-1,1,1,-1,0,-1,-1,1,1,-1,1,0,1,
%T -1,1,1,-1,-1,0,1,1,1,-1,-1,-1,0,-1,-1,-1,-1,1,1,0,1,-1,-1,1,1,1,0,1,
%U 1,1,-1,-1,1,0,1,1,-1,-1,-1,-1,0,-1,1,-1,1,1,1,0,-1,-1,-1,1,-1,1,0,1,-1,1,-1,-1,-1,0,-1,1,1,-1,1,-1,0,-1,1,-1,-1,1,-1,0,1
%N a(n) = Kronecker(7/n).
%H Vincenzo Librandi, <a href="/A089509/b089509.txt">Table of n, a(n) for n = 1..1000</a>
%H Jean-Paul Allouche, Leo Goldmakher, <a href="http://arxiv.org/abs/1608.03957">Mock characters and the Kronecker symbol</a>, arXiv:1608.03957 [math.NT], 2016.
%F if n==0 (mod 7) a(n)=0; for p in=A003632 a(p)=-1; for p in A038878 a(p)=+1
%t Table[KroneckerSymbol[7, n], {n, 100}] (* _Vincenzo Librandi_, Aug 16 2016 *)
%o (PARI) a(n)=kronecker(7,n)
%o (Magma) [KroneckerSymbol(7,n): n in [1..100]]; // _Vincenzo Librandi_, Aug 16 2016
%Y Cf. A091338, A080891.
%K sign,mult
%O 1,1
%A _Benoit Cloitre_, Jan 03 2004
%E Keyword:mult added by _Andrew Howroyd_, Jul 23 2018
|
