%I#16 2021年10月22日12:40:04
%S 0,0,1,1,1,2,2,2,2,3,3,33,3,1,4,4,5,5,5,5,6,6,6,
%T 6,6,6,1,6,6、6,6和6,7,7,7、7,8、8,8、8、8,18,8,8,9、9,9、9、9,10,
%U 10,10,10,11,11,11,11,11,11,1,11,12,12,12,12,13,13,13,13-13,13
%形式为4m+3且<=N的素数的数目。
%C A079261的部分金额_Reinhard Zumkeller,2014年2月6日
%H T.D.Noe,n的表格,n的a(n)=1..10000</a>
%F A066339(n)+a(n)=A000720(n)-1,对于n>=2.-_宋建宁,2021年4月28日
%t表格[Length[Select[Union[Table[Prime[Pi[i],{i,2,n}],Mod[#,4]==3&]],{n,2,100}]
%t累加[表[If[PrimeQ[n]&&Mod[n,4]==3,1,0],{n,100}](*_哈维·P·戴尔,2021年3月17日*)
%o(PARI)对于(n=1100,print1(sum(i=1,n,if((i*isprime(i)-3)%4,0,1)),“,”)
%o(哈斯克尔)
%o a066490 n=a066490_列表!!(n-1)
%o a066490_list=扫描1(+)$map a079261[1..]
%o——Reinhard Zumkeller,2014年2月6日
%Y参见A000720、A066339、A296020。
%K容易,不是
%O 1,7型
%A _Robert G.Wilson v_,2002年1月3日
|