提出
已批准
编辑
乔格·阿恩特:无法猜测可能的更正。
瓦茨拉夫·科特索维奇:好的,我也不知道该怎么改。
例如:乘积{m>=1}(1+x^m/m!+(x^m/m!)^2+(x^m/s!)^3).). [这 e(电子).克.(f).是 不正确的. - _瓦茨拉夫 科特索维奇_,10月 29 2015]
瓦茨拉夫·科特索维奇:nmax=20;系数列表[系列[乘积[(1+x^m/m!+(x^m/m!)^2+(x^m/s!)^3),{m,1,nmax}],{x,0,nmax{],x]*范围[0,nmax]!我得到1、1、3、10、23、126、522、3081、14023、104446。。。,与数据不匹配。请检查一下!
多项式[n_,k_List]:=n/次数@@(k!);b[n_,i_]:=b[n,i]=If[n==0,1,If[i<1,0,Sum[多项式[n,Join[{n-i*j},Array[i&,j]]/j*b[n-i*j,i-1],{j,0,最小值[3,n/i]}]];a[n]:=b[n,n];表[a[n],{n,0,25}](*Jean-François Alcover公司2015年10月29日之后阿洛伊斯·海因茨*)
Alois P.Heinz,<a href=“/A115275号/b115275.txt“>n表,n=0..626时为a(n)</a>
使用(组合):
b: =proc(n,i)选项记忆`如果`(n=0,1,
`如果`(i<1,0,加上(多项式(n,n-i*j,i$j)/j*
b(n-i*j,i-1),j=0..分钟(3,n/i))
结束时间:
a: =n->b(n$2):
seq(a(n),n=0..25)#阿洛伊斯·海因茨2015年9月17日
1, 1, 2, 5, 14, 51, 187, 820, 3670, 18191, 97917, 554500, 3334465, 20871592, 138440031, 972083845, 6985171390, 52194795327, 412903730293, 3313067916192, 28017395030419, 241504438776956, 2189375704925081, 19771679215526507,187677937412341677
例如:乘积{m>=1}(1+x^m/m!+(x^m/m!)^2+(x^m/s!)^3)).
_克里斯蒂安·鲍尔(保龄球(自动变速箱)美国.网),_,2006年1月18日
OEIS服务器: https://oeis.org/edit/global/178