%I#18 2022年12月28日09:48:52

%S 1,1,2,5,14,28，62150380787176039519338195364322494326213278，

%电话448193979712209498146222629670378208865604406719195469402，

%U 198712506

%N使用地板（N/2）水平定向多米诺骨牌的2n分区费雷斯-杨图的多米诺瓷砖数量。

%H Eric Weistein的《数学世界》，<a href=“http://mathworld.wolfram.com/FerrersDiagram.html“>Ferrers图</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Domino网站_（数学）“>Domino</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Domino_tiling（英文）“>Domino平铺</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Ferrers_diagram网站“>Ferrers图</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Mutilated_chessboard_problem“>棋盘残缺问题</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/分区_（number_theory）“>分区（数论）</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Polyomino网站“>波利米诺</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Young_tableau#图表“>Young tableau，图表</a>

%H<a href=“/index/Do#domino”>为与domino相关的序列索引条目</a>

%F a（n）=A304718（n，楼层（n/2））。

%e a（3）=5：

%e：.___。

%电子邮箱：|___||___|| ___||_____||||||___|

%电子邮箱：|||_||||| _|_||_|_|

%电子邮箱：|_|||_|_||___|

%电子邮箱：|||_|

%电子邮箱：|_|

%p h：=proc（l，f）选项记忆；局部k；如果min（l[]）>0，则

%p`if`（nops（f）=0，1，h（map（u->u-1，l[1..f[1]]），subsop（1=[][]，f））

%p表示nops（l）中的k，而l[k]>0由-1表示od；展开(

%p`if`（nops（f）>0且f[1]>=k，x*h（底土（k=2，l），f），0）+

%p‘if’（k＞1且l[k-1]＝0，h（亚p（k＝1，k-1＝1，l），f），0）

%功率因数

%p端：

%p g:=l->`如果`（add（`if`（l[i]：：奇数，（-1）^i，0），i=1..nops（l））=0，

%p`如果`（l=[]，1，h（[0$l[1]，底土（1=[][]，l）），0）：

%p b:=（n，i，l）->`如果`（n=0或i=1，g（[l[]，1$n]），b（n，i-1，l）

%p+b（n-i，最小值（n-i、i），[l[]、i]）：

%p a:=n->系数（b（2*n$2，[]），x，iquo（n，2））：

%p序列（a（n），n=0..14）；

%th[l_，f_]：=h[l，f]=模[{k}，如果[Min[l]>0，如果[Length[f]==0，1，h[l[[1；；f[[1]]]-1，替换部分[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]]；

%t g[l_]：=If[Sum[If[OddQ[l[i]]]，（-1）^i，0]，{i，1，Length[l]}]==0，If[l=={}，1，h[表[0，{l[[1]]}]，ReplacePart[l，1->Nothing]]，0]；

%tb[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]]]；

%tT[n_]：=系数列表[b[2n，2n，{}]，x]；

%t a[n_]：=t[n][[楼层[n/2]+1]]；

%t表[a[n]，{n，0，15}]（*_Jean-François Alcover_，2022年12月28日，在A304718*中的_Alois P.Heinz之后）

%Y参考A304718。

%K nonn公司

%O 0.3

%A _Alois P.Heinz，2018年5月17日