提出
经核准的
编辑
(PARI)lista(nn)=forprime(p=2,nn,if(p%4==3,print1(sum(k=1,p-1,if(!issquare(Mod(k,p)),k)),“,”))\\米歇尔·马库斯2020年11月9日
a(n)=总和{k=1(A002145号(n) -1)/2}(-k^2)模式A002145号(n) .-_J型.M(M).贝尔戈_和_罗伯特·伊斯雷尔(Robert Israel),2020年11月9日
f: =p->转换({$1..第页-1}减{序列(添加(-k^2模p,k=1..(p-1)/2)}, `+`):)::
映射(f,选择(isprime,[seq(p,p=3..1000,4)])#罗伯特·伊斯雷尔,3月十一月 2809 20172020
总和一(n个)是 这个 总和的二次非剩余( A002145美元(n个) (这个 第n素数==3 mod 4)。
a(n)=总和{k=1(A002145号(n) -1)/2}(-k^2)模式A002145号(n) ●●●●-罗伯特·伊斯雷尔2020年11月9日
囊性纤维变性。A002145号.
f[p_]:=总计[范围[p-1]~补码~表[Mod[k^2,p],{k,(p-1)/2}]];f/@选择[量程[31000,4],PrimeQ](*Jean-François Alcover公司2018年2月16日之后罗伯特·伊斯雷尔*)