编辑

经核准的

瓦茨拉夫·科特索维奇（Vaclav Kotesovec），<a href=“/A340665型/b340665.txt“>n=1时的n，a（n）表..501</a>

经核准的

编辑

编辑

经核准的

S[m_，n_，S]：=（t=1；总和=0；difs=1；

当[Abs[difs]>10^（-数字-5）||difs==0时，

difs=（莫比乌斯亩[t]/t）*

对数[如果[s*t==1，DirichletL[m，n，s*t]，

求和[Zeta[s*t，j/m]*DirichletCharacter[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，

欧拉菲[m]}]+

总和[如果[GCD[p，m]>1&&Mod[p，m]==n，1/p^s，0]，{p，1，m}]；

Z[m_，n_，s]：=（w=1；总和=0；difz=1；

当[Abs[difz]>10^（-数字-5）时，difz=P[m，n，s*w]/w；

sumz=sumz+difz；打印临时[w]；w++]；实验[sumz]）；

（*使用Vaclav Kotesovec的函数ZA301430型. *)

$MaxExtraPrecision（最大额外精度）=1000100; 数字=121;50; (*调整 作为 需要. *)

数字化[c（c）_] :=真数字[Chop[N[Z轴[5,3c（c）,2],数字+10]]，10，位数-1][[1]] (*之后_瓦茨拉夫 科特索维奇_ *)]];

数字化[Z[5，3，2]]

经核准的

编辑

彼得·卢什尼：不要反复重复相同的代码。如果有必要进行纠正，这将成为一场噩梦。

检验过的

经核准的

提出

检验过的

编辑

提出

等于和{k>=1}1/A004617号（k） ^2-阿米拉姆·埃尔达尔2021年1月24日

囊性纤维变性。A004617号,A175646号,A175647号,A248930型,A248938型,A301429型,A333240美元,A334826飞机,A335963型,A340576型,A340577型,A340578型,A340628型,A340628型,A340004飞机,A340127型.

经核准的

编辑

编辑

经核准的

R.J.Mathar，<a href=“https://arxiv.org/abs/1008。25372547“>Dirichlet L系列和素数zeta模函数表……</a>，arXiv:1008。25372547齐塔人{m=5，n=3}（s=2）。

经核准的

编辑