%I#65 2023年11月5日11:35:26

%S 0,1,0,1,2,1,0,1,2,1,1,0,12,1,2,1,2,2,3,3,4,3,2,1,2,3,3，

%温度2,3,2,3,4,3,4,1,4,4,5,3,2,4,5,1,5,5,4,2,4,1,5,12,4,4,12,3,3,4，

%U 4,3,2,3,4,3,4,5,4,3,2,1,2,1,2,2,3,2,1,0,1,2,3,4,5,6,7,6,5,6,5,6,5,6

%N从素数2开始，4k-1素数超过4k+1素数。

%2002年6月24日，n的无穷多个值的C a（n）<0

%C第一个负值是a（2946）=-1，表示质数26861_David W.Wilson，2002年9月27日

%D Stan Wagon，《可视化的力量》，Front Range出版社，1994年，第2页。

%H N.J.A.Sloane，N表，N=1..20000的A（N）

%F a（n）=和{k=2..n}（-1）^（（素数（k）+1）/2）.-_Benoit Cloitre_，2002年6月24日

%F a（n）=（和{k=1..n}素数（k）模4）-2*n（假设x模4>0）_托马斯·奥多夫斯基，2012年9月21日

%F From _Antti Karttune_，2017年10月1日：（开始）

%F a（n）=A267098（n）-A267097（n）。

%F a（n）=A292378（A000040（n））。

%F（结束）

%位置：=[0]；ct：=0；对于从2到2000的n do

%p p：=i素数（n）；如果（p mod 4）=3，则ct:=ct+1；其他ct：=ct-1；fi；

%p ans：=[op（ans），ct]；od:ans；#_N.J.A.Sloane，2016年6月24日

%t文件夹列表[Plus，0，Mod[Prime[Range[2110]]，4]-2]

%t加入[{0}，累加[If[Mod[#，4]==3,1，-1]&/@Prime[Range[2110]]]（*哈维·P·戴尔，2013年4月27日*）

%o（PARI）用于（n=2100，打印1（总和（i=2，n，（-1）^（（质数（i）+1）/2）），“，”））

%Y参考A007350、A007351、A038691、A051024、A066520。

%Y参考A112632（3k-1和3k+1引物的小种），A216057，A269364。

%Y参考A156749（显示素数种族（mod 4）中切比雪夫偏倚的序列），A199547，A267097，A26.7098，A267107，A292378。

%K手势，简单，好，听

%O 1,5型

%A _汉斯·哈弗曼_