%I#49 2020年3月16日13:04:30
%S 1,31510510523115015214536596996948498451014058510140585,
%电话:22287323161577138650057713865005907513532182570039651641030105,
%电话:672822343053682173186511841086593255376222042969573577473048151546231253523
%N>0时,积分{x=0..+oo}多项式(-N,-x)^2的N分母,其中a(0)=1。
%C这些是伯努利中值的分母(见A212196)_Peter Luschny2012年5月4日
%H Vincenzo Librandi,n的表,n=0..200时的a(n)</a>
%F a(n)=分母((-1)^n/Pi^(2*n)*积分((log(t/(1-t))*log(1-1/t))^n dt,t=0.1))[_Gerry Martens_,2011年5月25日]
%F a(n)=分母(和{k=0..n}C(n,k)*Bern(n+k))_Vladimir Kruchinin,2015年4月6日
%p seq(denom(加法(二项式(n,k)*bernoulli(n+k),k=0..n)),n=0..100);#_罗伯特·伊斯雷尔,2015年6月2日
%t表[Denominator[Integrate[PolyLog[-n,-x]^2,{x,0,Infinity}]],{n,1,18}]
%t最大值=25;t[0]=表[BernoulliB[n],{n,0,2*max}];t[n_]:=差异[t[0],n];a[n]:=t[n][[n+1]//分母;表[a[n],{n,0,max}](*_Jean-François Alcover_,2013年7月25日,以_Peter Luschny_*命名)
%o(Sage)#使用了[A212196中的BernoulliMedian_list]
%o定义A181131_list(n):
%o返回[伯努利中值列表(n)中q的分母(q)]
%o#_Peter Luschny_,2012年5月4日
%o(PARI)a(n)=分母(-subst(intformal(polylog(-n,-x)^2),'x,0))\\-Charles R Greathouse IV_,2014年7月21日
%Y参考A181130,A212196。
%K nonn,压裂
%O 0,2
%A _瓦拉迪米尔·雷谢特尼科夫,2011年1月23日
%E偏移设置为0、a(0)和a(19)。。a(25)由_Peter Luschny_添加,2012年5月4日
|