编辑

经核准的

(* -------------------------------------------------------------------------- *)

S[m_，n_，S_]：=（t=1；总和=0；difs=1；当[Abs[difs]>10^（-数字-5）||difs==0，difs=（MoebiusMu[t]/t）*Log[If[S*t==1，DirichletL[m，n，S*t]，总和[Zeta[S*t，j/m]*Dirichlet字符[m，n，j]^t，{j，1，m}]/m^（S*t）]]；总和=总和+difs；t++]；总额）；

P[m_，n_，s_]：=1/EulerPhi[m]*和[Conjugate[DirichletCharacter[m，r，n]]*s[m，r，s]，{r，1，EulerPhi[m]}]+和[If[GCD[P，m]>1&&Mod[P，m]==n，1/P^s，0]，{P，1，m}]；

Z[m_，n_，s_]：=（w=1；sumz=0；difz=1；当[Abs[difz]>10^（-数字-5）时，difz=P[m，n，s*w]/w；sumz=sumz+difz；w++]；实验[sumz]）；

$MaxExtraPrecision=1000；数字=121；实际数字[Chop[N[Z[6,5,4]/Z[6,1,2]，数字]]，10，数字-1][[1](*瓦茨拉夫·科特索维奇2021年1月15日*）

经核准的

编辑

提出

经核准的

编辑

提出

非n,已更改欺骗

提出

编辑

编辑

提出

米歇尔·马库斯：需要关键字cons

类似常数：A175646号,A175647号,A248930型,A248938型,A301429型,A333240型,A334826飞机,A335963,A340576型,A340577.

类似常数：A175646号,A175647号,A248930型,A248938型,A333240型,A334826飞机,A335963,A340576型,A340577.

分配给Jean-François Alcover

乘积{素数p==5（mod 6）}1/（1+1/p^2）的十进制展开式。

9, 4, 4, 5, 0, 0, 9, 3, 4, 5, 0, 4, 7, 0, 0, 9, 8, 6, 7, 3, 4, 2, 9, 1, 0, 9, 4, 1, 9, 1, 4, 4, 4, 3, 4, 2, 5, 4, 6, 1, 1, 0, 7, 8, 0, 8, 6, 9, 0, 6, 6, 7, 6, 9, 5, 5, 7, 3, 5, 7, 7, 1, 1, 1, 8, 3, 8, 2, 6, 4, 5, 1, 9, 9, 3, 3, 5, 7, 4, 6, 3, 9, 5, 6, 7, 7, 5, 3, 9, 6, 1, 7, 0, 5, 2, 9, 9, 4, 5, 3, 5, 8, 6, 7, 8

0,1

0.94450093450470098673429109419144434254611078086906676955735771...

数字=105；

精度=数字+5；

produler[p_，a_，b_，expr_]：=乘积[If[a<=p<=b，expr，1]，{p，Prime[Range[PrimePi[a]，PrimePi[b]]}]；

Lv3[s_]：=prodeuler[p，1，2^（精度/s），1/（1-KroneckerSymbol[-3，p]*p^-s）]//N[#，精度]&；

Lv4[s_]：=2*Im[PolyLog[s，Exp[2*I*Pi/3]]/Sqrt[3]；

Lv[s_]：=如果[s>=10000，Lv3[s]，Lv4[s]]；

gv[s_]：=（1-3^（-s））*Zeta[s]/Lv[s]；

pB=（3/4）*乘积[gv[2^n*2]^（2^-（n+1）），{n，0，11}]//n[#，精度]&；

pD=（45*pB*Lv[2]）/（4*Pi^2）；

RealDigits[pD，10，digits][[1]（*此代码大部分是由于阿图尔·贾辛斯基*)

分配

非n

Jean-François Alcover公司2021年1月12日

经核准的

编辑

分配给Jean-François Alcover

分配

经核准的