提出
经核准的
编辑
迪里克莱(Dirichlet)。 : zeta(s)*zeta(s-1)/zeta(3s-3)-R.J.马塔尔2011年4月12日
f[p_,e_]:=1+p+如果[e>1,p^2,0];a[1]=1;a[n_]:=倍@@f@@FactorInteger[n];数组[a,100](*阿米拉姆·埃尔达尔2020年9月14日*)
和{k=1..n}a(k)~Pi^2*n^2/(12*Zeta(3))-瓦茨拉夫·科特索维奇2019年2月1日
nn=71;f[list_,i_]:=列表[[i]];a=表格[If[Max[FactorInteger[n][[All,2]]<=2,n,0],{n,1,nn}];b=表[1,{nn}];选择[Table[DirichletConvolve[f[a,n],f[b,n]、n,m],{m,1,nn}],#> 0 &] (* _杰弗里 Critzer(标准器)_, 三月 22 2015 *)
0 &] (*杰弗里·克雷策2015年3月22日*)
米歇尔·马库斯:删除了换行符