编辑

已批准

nmax=100；s=1+x；Do[s*=和[二项式[k，j]*k^j*x^（j*k^2），{j，0，Floor[nmax/k^2]+1}]；s=选择[Expand[s]，指数[#，x]<=nmax&]，{k，2，nmax}]；采取[系数列表[s，x],nmax（最大值）]

nmax=100；s=1+x；Do[s*=和[二项式[k，j]*k^j*x^（j*k^2），{j，0，Floor[nmax/k^2]+1}]；s=选择[Expand[s]，指数[#，x]<=nmax&]，{k，2，nmax}]；采取[系数列表[s，x],nmax（最大值）]

已批准

编辑

编辑

已批准

瓦茨拉夫·科特索维奇（Vaclav Kotesovec），<a href=“/A285242型/b285242.txt“>n表，n=0..10000时为a（n）</a>

nmax=100；s=1+x；Do[s*=Sum[二项式[k，j]*k^j*x^（j*k^2），{j，0，Floor[nmax/k^2]+1}]；s=选择[Expand[s]，Exponent[#，x]<=nmax&]，{k，2，nmax}]；系数列表[s，x]

囊性纤维变性。A022629号,A266891型,A281790型,A285240型,A285243型,A285244型.

分配给Vaclav Kotesovec

产品扩展{k>=1}（1+k*x^（k^2））^k。

1, 1, 0, 0, 4, 4, 0, 0, 4, 13, 9, 0, 0, 36, 36, 0, 16, 52, 63, 27, 64, 64, 108, 108, 64, 233, 277, 135, 27, 676, 676, 108, 204, 772, 1333, 765, 528, 420, 2628, 2628, 528, 1792, 3892, 3735, 1251, 5524, 5380, 4428, 4684, 6657, 12843, 10870, 6703, 3767, 28232

0,5

nmax=100；系数列表[系列[积[（1+k*x^（k^2））^k，{k，1，nmax}]，{x，0，nmax{]，x]

分配

非n

瓦茨拉夫·科特索维奇2017年4月15日

已批准

编辑

分配给Vaclav Kotesovec

分配

已批准