A306072-OEIS公司

A306072型

2*Sum_{pprime}（p^2-p-1）*log（p）/（p^4+2*p^3+1）的十进制展开式。

4, 0, 5, 2, 3, 7, 0, 3, 1, 4, 4, 4, 2, 2, 3, 9, 2, 5, 0, 8, 5, 9, 6, 5, 0, 9, 9, 1, 1, 2, 1, 8, 5, 2, 3, 4, 1, 0, 4, 4, 1, 4, 1, 7, 2, 4, 0, 4, 1, 9, 8, 4, 9, 2, 6, 2, 3, 4, 6, 3, 6, 2, 9, 7, 7, 5, 3, 7, 9, 8, 9, 0, 1, 8, 1, 8, 6, 4, 0, 3, 8, 0, 4, 8, 7, 4, 2, 6, 4, 6, 6, 4, 3, 9, 3, 6, 8, 4, 0, 6, 3, 7, 7, 7, 8, 4 (列表;常数;图表;参考;听;历史;文本;内部格式)

	抵消	`0,1`
	评论	`出现在双优除数函数和的渐近公式中的常数B(A306069型).`
	链接	`n=0..105时的n、a（n）表。`
	例子	`0.405237031444223925085965099112185234104414172404198492623463629775379...`
	数学	`cc=系数列表[系列[（p^2-p-1）/（p^4+2p^3+1）/.p->1/x，{x，0，30}]，x]；f=查找序列函数[cc]；数字=20；B=2 NSum[f[n+1//Round]（-PrimeZetaP'[n]），{n，2，Infinity}，Method->“AlternatingSigns”，NSumTerms->10位数，WorkingPrecision->5位数]；真实数字[B，10，数字][[1](Jean-François Alcover公司，2018年6月19日）` `ratfun=2（p^2-p-1）/（p^4+2p^3+1）；齐塔人=0；ratab=表格[konfun=简化[ratfun+c/（p^power-1）]//一起；coefs=系数列表[Numerator[konfun]，p]；sol=求解[Last[coefs]==0，c][[1]；齐塔人=齐塔人+c齐塔人'[力量]/Zeta[力量]/。溶胶；ratfun=konfun/。溶胶，{粉末，2,20}]；执行[Print[N[Sum[Log[p]ratfun/。p->素数[k]，{k，1，m}]+ζ，100]]，{m，2000，20000，2000}](瓦茨拉夫·科特索维奇，2020年6月17日）`
	交叉参考	`囊性纤维变性。A085609型,A306069型,A335705型,A335707型.` `上下文中的序列：A309216 A083745号 A327545型1985年1月 A201196型 A019906年` `相邻序列：A306069型 A306070型 A306071型A306073型 A306074型 A306075型`
	关键字	`非n,欺骗`
	作者	`阿米拉姆·埃尔达尔，2018年6月19日`
	扩展	`a（1）-a（20）来自Jean-François Alcover公司，2018年6月19日` `来自的更多数字瓦茨拉夫·科特索维奇2020年6月17日`
	状态	`经核准的`