%I#44 2022年3月4日11:16:35
%S-1,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,
%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,
%U-1,-1,-1,1,1,-1,1,-1,-1
%N a(N)=勒让德(-3,素数(N))。
%C平衡三元表示(A059095)中素数(n)的最低trit值(原始定义)。
%C对于p=素数(n)!=3,如果p的形式为3*k+1,则a(n)=+1,如果p是3*k-1,则-1_Joerg Arndt_,2014年9月16日
%H Charles R Greathouse IV,<a href=“/A14323/b14323.txt”>n,a(n)表,n=1.-10000</a>
%如果第n个素数是2或==5模6,则为F-1;如果第n次素数是==1模6,那么为+1;如果是3,则为0。
%F a(n)=(1-0^A039701(n))*(-1)^(A039700(n)+1)。
%F a(n)!=n的0!=2;
%F a(A049084(A003627(n))=-1;a(A049084(A002476(n)))=+1。
%e对于n=20,素数(20)=71,我们验证了-3不是模71的二次剩余,因此a(20)=-1。此外,我们还看到平衡三元表示行A059095(71)={1,0,-1,0,-1},以-1结尾。
%e对于n=21,素数(21)=73,我们看到x^2=-3模73有类似x=17,56的解,因此a(21)=1。此外,平衡三元表示行A059095(73)={1,0-1,0,1},以1结尾。
%t A134323[n_]:=(r=Mod[素数[n],6];如果[r==1,1,-1]);A134323[1]=-1;A134323[2]=0;表[A134323[n],{n,1,102}](*_Jean-François Alcover_,2011年11月7日,在_Bill McEachen_*之后)
%t JacobiSymbol[-3,Prime[Range[100]]](*_Alonso del Arte_2017年8月2日*)
%o(哈斯克尔)
%o a134323 n=(1-0^m)*(-1)^(m+1)其中m=a000040 n`mod`3
%o---Reinhard Zumkeller,2014年9月16日
%o(PARI)apply(p->kronecker(-3,p),primes(100))\\_Charles R Greathouse IV_,2017年8月14日
%Y参考A000040、A039701、A049084、A112632(部分和)、A059095(平衡三元)
%Y参考A091177(-1的指数)、A091178(+1的指数)、A003627、A002476。
%Y其他模量:A070750、A257834。
%K符号,简单
%O 1,1号机组
%A _Reinhard Zumkeller_,2007年10月21日
%E定义措辞由N.J.A.Sloane修改,2015年6月21日
%E名称由_Alonso del Arte简化,2017年8月2日