%I#60 2021年12月30日12:58:19

%S 1,1,7131100122810694298912672711945257052321179788343101980135，

%电话101851119191606661186082172138783673094193937750015，

%电话：1743829823240164499438643797064052701379938160862962287439545023453488759569198242577508655631107467228449736089

%N N X N棋盘的单体二聚体瓷砖数量。

%C以及n X n网格中匹配的总数（不一定是完美的，即Hosoya指数）。-安德烈·波尼茨（Poenitz（AT）htwm.de），2003年11月20日

%D Steven R.Finch，《数学常数》，剑桥，2003年，第406-412页。

%H Jennifer Henry，n的表格，a（n）代表n=0..21

%H J.H.Ahrens，<a href=“http://dx.doi.org/10.1016/0097-3165（81）90061-3“>铺设棋盘。MR0635371（84天：05009）。见表I.-N.J.A.Sloane，2012年3月27日

%H Steven R.Finch，<a href=“http://www.people.fas.harvard.edu/~sfinch/constant/md/md.html“>二维单体-双分子常数

%H Steven R.Finch，<a href=“http://web.archive.org/web/20010608043455/http://www.maths.com/asolve/constant/md/md.html“>二维单体-双分子常数</a>【取自Wayback机器】H P.Flajolet和R.Sedgewick，<a href=”http://algor.inria.fr/flajolet/Publications/books.html“>分析组合数学，2009年；参见第362页。

%H Svenja Huntemann和Neil A.McKay，<A href=“https://arxiv.org/abs/1909.12419“>计算支配地位</a>，arXiv:1909.12419[math.CO]，2019。

%H David Friedhem Kind，<a href=“https://doi.org/10.13140/RG.2.2.2.11182.54086“>《枪口问题：进化方法》，德蒙特福德大学（英国莱斯特，2020年）。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/GridGraph.html“>网格图</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/HosoyaIndex.html“>Hosoya指数</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/IndependentEdgeSet.html“>独立边集</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Matching.html“>匹配</a>

%H D.Zeilberger，<a href=“http://www.math.rutgers.edu/~zeilberg/tokhniot/DOMINO“>来源</a>；本地副本</a>

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

%p b:=proc（n，l）选项记忆；局部k；

%p如果n=0，则为1

%p elif最小值（l）>0，则（t->b（n-t，map（h->h-t，l））（min（l））

%当l[k]>0进行od时，p为k的else`如果`（k<nops（l）和

%p l[k+1]=0，b（n，底土（k=1，k+1=1，l）），0）+加(

%p`如果`（n<j，0，b（n，底土（k=j，l）），j=1..2）

%功率因数

%p端：

%pa:=n->b（n，[0$n]）：

%p序列（a（n），n=0..13）；#_阿洛伊斯·海因茨，2020年12月4日

%t表格[With[{g=GridGraph[{n，n}]}，Count[Subsets[EdgeList[g]，Length@Flatten@FindIndependentEdgeSet[g]]，_？（IndependentEdgeSetQ[g，#]&）]]，{n，4}]（*_Eric W.Weisstein_，2017年5月28日*）

%tb[n_，l_]：=b[n，l]=模块[{k}，其中[

%t n==0，1，

%t最小值[l]>0，函数[t，b[n-t，映射[#-t&，l]]][最小值[l]]，

%t真，对于[k=1，l[[k]]>0，k++]；如果[k<长度[l]&&

%t l[[k+1]]==0，b[n，可替换部件[l，｛k->1，k+1->1｝]]，0]+

%t和[If[n<j，0，b[n，ReplacePart[l，k->j]]，{j，1，2}]]；

%t a[n_]：=b[n，表[0，{n}]]；

%t表[a[n]，{n，0，13}]（*_Jean-François Alcover_，2021年12月30日，在_Alois P.Heinz_*之后）

%Y参考A004003。A210662的对角线。

%Y行A242861的总和。

%K nonn很好

%0、3

%A Jennifer Henry、_Shalsh B.Ekhad_和_Steven Finch_

%E Steven Finch_纠正的断链，2009年1月27日

%E a（0）=1，由_Alois P.Heinz于2020年12月4日编制