%I#23 2022年9月8日08:45:21
%S 1,9,8972118601208910396183291368093153683471698320810649,
%电话:833148284914141677886811416817979081142143519968911373510649537,
%电话:3295255574810593366551352989977132591913780524097132652127531625601
%N x(N)的分子=和{k=1..N}((k的奇数部分)/(k^3))。
%C x(n)的分母=A111919(n);
%C x(n)=a(n)/A111919(n)--->Pi*Pi/7=6*zeta(2)/7。
%D G.Pólya和G·Szegő,分析II中的问题和定理(Springer 1924,1972年再版),第八部分,第一章,第二节。6、问题50。
%H Robert Israel,<a href=“/A11918/b111918.txt”>n,a(n)表,n=1..1150</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/OddPart.html“>奇数部分</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/RiemannZetaFunctionZeta2.html“>Riemann Zeta函数Zeta(2)</a>
%e a(50)=429245027972423630658635002176171233144054521,
%e A111919(50)=307330458857514095936081844184308729630720000:
%e x(50)=a(50)/A111919(50)=1.39668…,x(50*7/6=1.62946。。。。
%p S:=0:结果:=空:
%p代表k从1到25 do
%pS:=S+1/k^2/2^padic:-ordp(k,2);
%p分辨率:=分辨率,数字(S)
%日期:
%p资源;#_罗伯特·伊斯雷尔,2020年1月13日
%t oddPart[n_]:=n/2^整数指数[n,2];
%tx[n_]:=和[oddPart[k]/k^3,{k,1,n}];
%t a[n_]:=分子[x[n]];
%t数组[a,20](*_Jean-François Alcover_,2021年12月13日*)
%o(岩浆)val:=func<n|n/2^估值(n,2)>;[分子(&+[val(k)/(k^3):k in[1..n]]):n in[1..20]];//_Marius A.Burtea,2020年1月13日
%Y参考A000265、A013661、A111919、A111929、A111920、A111922。
%K nonn,压裂
%O 1,2号机组
%A _Reinhard Zumkeller,2005年8月21日
|