|
|
|
|
|
|
|
|
|
#45通过彼得·卢什尼2021年1月17日星期日09:52:00 EST |
|
|
|
|
|
|
|
#44通过彼得·卢什尼2021年1月17日星期日09:50:54 EST |
|
| 链接
|
Peter Luschny，<a href=“/A175646号/b175646.txt“>n表，n=1..1000时a（n）</a>（Vaclav Kotesovec的术语1..105）。
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#43通过彼得·卢什尼2021年1月17日星期日07:48:26 EST |
|
|
|
|
|
|
|
#42通过彼得·卢什尼2021年1月17日星期日07:48:13 EST |
|
|
|
|
|
|
|
#41通过彼得·卢什尼2021年1月17日星期日01:21:23 EST |
|
|
|
|
|
|
|
#40通过彼得·卢什尼2021年1月17日星期日01:21:14 EST |
|
| 数学
|
实数字[pA，10，digits][[1]
真实数字[pA型,10,数字][[1]] (* _(* _Jean-François Alcover，2021年1月11日，PARI代码之后，由于阿图尔·贾辛斯基*)
(* -------------------------------------------------------------------------- *)
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#39个通过彼得·卢什尼2021年1月17日星期日00:58:35 EST |
|
|
|
|
|
|
|
#38通过彼得·卢什尼2021年1月17日星期日00:58:14 EST |
|
| MAPLE公司
|
z:=n->Zeta（n）/Im（多对数（n，（-1）^（2/3）））：
x:=n->（z（2^n）*（3^（2^n）-1）*平方码（3）/2）^（1/2 ^n）/3：
evalf（4*Pi^2/（27*mul（x（n），n=1..8）），106）#彼得·卢什尼，2021年1月17日
|
|
| 数学
|
z[n_]：=泽塔[n]/Im[PolyLog[n，（-1）^（2/3）]]；
x[n]：=（z[2^n]（3^（2^n）-1）平方[3]/2）^（1/2 ^n）/3；
N[4 Pi^2/（27乘积[x[N]，{N，8}]），106](*彼得·卢什尼2021年1月17日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#37通过瓦茨拉夫·科特索维奇2021年1月15日周五05:54:06 EST |
|
|
|
|
|
|
|
#36通过瓦茨拉夫·科特索维奇2021年1月15日周五05:52:13 EST |
|
| 数学
|
(* -------------------------------------------------------------------------- *)
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[3,1,2]，数字]]，10，数字-1][[1](*瓦茨拉夫·科特索维奇，2021年1月15日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
