数字=1000;nmax0=500;dnmax=10;
清除[PrimeZeta43];
PrimeZeta43[s_,nmax_]:=PrimeZeta 43[s,nmax]=(1/2)总和[(MoebiusMu[2n+1]((4n+2)Log[2]+Log[(-1+2^(4n=2))Zeta[4n+2])/(Zeta[4 n+2,1/4]-Zeta[4m+2,3/4])))/(2n+1),{n,0,nmax}]//n[#,数字+5]&;
PrimeZeta43[2,nmax=nmax0];
PrimeZeta43[2,nmax+=dnmax];
当[Abs[PrimeZeta43[2,nmax]-PrimeZeta43[2,nmax-dnmax]]>10^-(数字+5)时,打印[“nmax=”,nmax];nmax+=dnmax];
PrimeZeta43[2]=PrimeZeta 43[2,nmax];
|