编辑
经核准的
序列 (a(n),n=0..70)#阿洛伊斯·海因茨2012年11月9日
提出
zip=带有[{m=Max[Length[#1],Length[2]]},PadRight[#1,m]+PadRight[#2,m]]&;b[n,i_]:=b[n,i]=With[{s=i*(i+1)/2-1},如果[n==0,{1},如果[i<2|n>s,{},zip[b[n,i-1],Join[{0},如果[i>n,{},b[n-i,i-1]]]]];a[n_]:=a[n]=模[{l=b[n,n]},和[l[i]]*(i-1)!,{i,1,长度[l]}]];表[a[n],{n,0,70}](*Jean-François Alcover公司2017年2月13日,之后阿洛伊斯·海因茨*)
C.G.Bower,转换(2)</a>
C.G.Bower,<a href=“/transforms2.html”>转换(2)</a>
OEIS服务器: https://oeis.org/edit/global/2322
G.f.:总和(i>=0,i!*x^((i^2+3*i)/2)/prod(j=1..i,1-x^j))-_弗拉德塔·乔沃维奇 (弗拉德塔(自动变速箱)尤内.秒), _, 2006年5月21日
OEIS服务器: https://oeis.org/edit/global/1911
b: =proc(n,i)选项记住;当地;s: =i*(i+1)/2-1;
`如果`(n=0,[1],`if`(i<2或n>s,[],zip((x,y)->x+y,
b(n,i-1),[0,`if`(i>n,[],b(n-i,i-1,))[]],0))
结束时间:
a: =proc(n)选项记忆;局部l;l: =b(n$2);
添加(l[i]*(i-1)!,i=1…无(l))
seq(a(n),n=0..70)#阿洛伊斯·海因茨2012年11月9日
Alois P.Heinz,<a href=“/A032022号/b032022.txt“>n、a(n)表(n=0..1000)</a>