登录
A022661号
产品扩展{m>=1}(1-m*q^m)。
18
1, -1, -2, -1, -1, 5, 1, 13, 4, 0, 2, -8, -61, -31, 13, -156, 21, 11, 223, 92, 91, 426, 972, 165, 141, -1126, 440, 1294, -4684, -2755, -5748, -2414, -6679, 10511, -10048, -19369, 19635, 22629, 14027, 76969, -1990, 40193, -10678, 75795, 215767, -54322, -40882
抵消
0,3
评论
(9)是这个序列中唯一出现的0吗-罗伯特·伊斯雷尔2015年6月2日
链接
罗伯特·伊斯雷尔,n=0..10000时的n,a(n)表
MAPLE公司
P: =mul(1-m*q^m,m=1..100):
S: =系列(P,q,101):
seq(系数(S,q,j),j=0..100)#罗伯特·伊斯雷尔2015年6月2日
#第二个Maple项目:
b: =proc(n,i)选项记忆`如果`(i*(i+1)/2<n,0,
`如果`(n=0,1,b(n,i-1)-`如果`(i>n,0,i*b(n-i,i-1
结束时间:
a: =n->b(n$2):
seq(a(n),n=0..60)#肖恩·A·欧文(之后阿洛伊斯·海因茨)2019年5月19日
数学
nmax=40;系数列表[系列[积[1-k*x^k,{k,1,nmax}],{x,0,nmax{],x](*瓦茨拉夫·科特索维奇2015年12月15日*)
nmax=40;系数列表[Series[Exp[-Sum[PolyLog[-j,x^j]/j,{j,1,nmax}]],{x,0,nmax}],x](*瓦茨拉夫·科特索维奇2015年12月15日*)
(*更有效的程序:*)nmax=50;poly=常量数组[0,nmax+1];poly〔〔1〕〕=1;聚[2]]=-1;Do[Do[poly[[j+1]]-=k*poly[[j-k+1]],{j,nmax,k,-1}],{k,2,nmax}];聚乙烯(*瓦茨拉夫·科特索维奇2016年1月7日*)
黄体脂酮素
(PARI)m=50;q='q+O('q^m);Vec(prod(n=1,m,(1-n*q^n))\\G.C.格鲁贝尔2018年2月18日
(岩浆)系数(&*[(1-m*x^m):m in[1..40]])[1..40],其中x是多项式环(整数()).1//G.C.格鲁贝尔2018年2月18日
关键词
签名
作者
状态
经核准的