检验过的
经核准的
提出
编辑
h[l_，f_]：=h[l，f]=模[{k}，如果[Min[l]>0，如果[Length[f]==0，1，h[l[[1；；f[[1]]]-1，ReplacePart[f，1->Nothing]]]，对于[k=长度[l]，l[k]]>0，k--]；如果[Length[f]>0&&f[[1]]>=k，x*h[ReplacePart[l，k->2]，f]，0]+如果[k>1&&l[[k-1]]==0，h[RepleacePart[1，{k->1，k-1->1}]，f]、0]]；
g[l]：=If[Sum[If[OddQ[l[i]]]，（-1）^i，0]，{i，1，Length[l]}]==0，If[l=={}，1，h[表[0，{l[[1]]}]，替换部分[l，1->Nothing]]，0]；
b[n_，i_，l_]：=如果[n==0||i==1，g[Join[l，Table[1，{n}]]，b[n，i-1，l]+b[n-i，Min[n-i，i]，Append[l，i]]]；
T[n_]：=系数列表[b[2n，2n，{}]，x]；
a[n_]：=T[n][[楼层[n/2]+1]]；
表[a[n]，{n，0，15}](*Jean-François Alcover公司，2022年12月28日，之后阿洛伊斯·海因茨在里面A304718型*)
<a href=“/index/Do#domino”>为与domino相关的序列索引条目</a>
1, 1, 2, 5, 14, 28, 62, 150, 380, 787, 1760, 3951, 9338, 19536, 43224, 94326, 213278, 448193, 979712, 2094981, 4622262,9670378,20886560,44067191,95469402,198712506
g： =l->`如果`(添加(`如果`（l=[],[我]::古怪的, (-1)^我,小时([0$我[),我=1]],下层土..无(1=[][],我)))以下为：))=0,
`如果`（l=[]，1，h（[0$l[1]，底土（1=[][]，l）），0）：
