OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由支持OEIS基金会的许多慷慨捐赠者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A304447型 乘积中x^n的系数{k>=1}((1+x^k)/(1-x^k))^(2*n)。 2
1、4、40、448、5264、63624、7832328、9770240、123040288、1561033348、19922193200、255472920256、3289122824000、424884885088808、550435283089088、7148519205631488、930387858449116736、1213215382135324680、15846906866928513736、207302985358274247104 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,2
链接
瓦茨拉夫·科特索维奇,n=0..880时的n、a(n)表
配方奶粉
a(n)~c*d^n/sqrt(n),其中d=13.43567525239504624062250428305871396096282470985065858926211428148173077464…和c=0.332527904399106979188998223666403568774227549882810268779。。。
数学
nmax=20;表[级数系数[乘积[(1+x^k)/(1-x^k))^(2*n),{k,1,n}],{x,0,n}],{n,0,nmax}]
nmax=20;表[级数系数[(QPochhammer[-1,x]/2/QPochharmer[x])^(2*n),{x,0,n}],{n,0,nmax}]
(*常数{d,c}:*)eq=FindRoot[{QPochhammer[-1,r*s]==2*Sqrt[s]*QPochharmer[r*s],(QPochammer[r**s]*(Log[r*s]-2*Log[1-r*s]-2*QPolyGamma[0,1,r*s))/Log[r*s]-r*Sqrt[s]*导数[0,1][QPochchammer][-1,r*s]+2*r*s*导数[0,1][Q ochhammer][r*s,r*s]==0},{r,1/12},}s,2],加工精度->1000];{N[1/r/.eq,120],val=Sqrt[((1-r*s)*Log[r*s]^2*QPochhammer[r*s])/(Pi*(2*r*s*(-1+r*s*(-导数[0,2][QPochhammer][-1,r*s]+2*Sqrt[s]*导数[0,2][QBochhammer][r*s,r*s])+QPochharmer[r*s]*(16*r*s*ArcTanh[1-2*r*s]+(1-r*s)*Log[r*s]^2-8*Log[1-r*s]+4*(-1+r*s伽马[1,1,r*s]-2*r*s*Log[r*s]*导数[0,0,1][QPolyGamma][0,1、r*s'))]/。等式;N[Chop[val],-楼层[Log[10,Abs[Im[val]]]-3]}(*瓦茨拉夫·科特索维奇2023年10月3日*)
交叉参考
关键词
非n
作者
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。

最后修改时间:美国东部时间2024年6月19日06:59。包含373492个序列。(在oeis4上运行。)