%I#24 2023年10月27日22:06:38
%S 1,1,1,1,0,0,1,1,1,1,2,0,0,00,01,1,1,1,1,1,11,1,1,2,1,1,1,1，1,1,2,1,1,1,0,0，
%T 1,1,1,1,2,2,2,2,3,4,2,2,2,1,0,2,0,0,00,0,1,1,1,2,2,2，
%U 2,3,4,3,3,4,1,4,4,2,3,3,1,2,2,0,0,0,1,0,0-0,00,0:0,0,1
%N按行读取的不规则三角形：T（N，k）是将N个Xn正方形晶格划分为包含k个与任何相邻节点都不相连的节点的正方形的数量，仅考虑部分的数量。
%第n行包含（n-1）^2+1个元素。
%C不规则三角形如下所示。
%抄送0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18。。。
%中国
%丙11
%C2 11号机组
%C 3 1 1 0 0 1
%C4 1 1 1 1 2 0 0 0 0 1
%C 5 1 1 1 1 2 1 1 1 0 1 0 0 0 0 00 1
%C6 1 1 1 1 2 2 2 2 3 4 2 2 2 1 0 2 0。。。
%C 7 1 1 1 1 2 2 2 3 4 3 4 4 3 4 3 3。。。
%H Alois P.Heinz，行数n=1..13，展平
%F看起来T（n，k）=T（n-1，k），n奇数，n>1，k=0..（n-1）^2/4。
%F和{k=0..（n-1）^2}T（n，k）=A034295（n）。
%e对于n=6，有3个分区包含8个孤立节点，因此T（6,8）=3。
%e m X m正方形包含（m-1）^2个孤立节点。
%e考虑到每个分区都由1和0组成，其中1表示一个节点具有一个或多个到其邻居的链接，而0表示一个没有到其邻居链接的节点。那么这三个分区是：
%e 11 11 11 11 1 1 1 1 11 1 1 11 11 1 11 1 11 11
%e 1 0 1 0 1 1 0 0 1 1 1 0 1 10 1 0 0 0 1 0 0
%e 1 1 1 1 11 1 1 1 0 0 1 1 1 10 0 1 0 1
%e 1 0 1 0 1 1 1 1 10 1 1 1 11 1 1 1
%e 11 11 11 11 1 1 1 1 11 1 1 11 11 1 11 1 11 11
%e 1 0 1 0 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1
%e 11 11 11 11 1 1 1 1 11 1 1 11 11 1 11 1 11 11
%p b:=proc（n，l）选项记忆；局部i，k，s，t；
%p如果max（l[]）>n，则{}elif n=0或l=[]，则{0}
%p elif min（l[]）>0，则t:=min（l[]）；b（n-t，映射（h->h-t，l））
%如果l[k]=0，则p表示k do，然后打破fiod；s： ={}；
%p for i从k到nops（l），而l[i]=0做s：=s并集
%p映射（v->v+x^（1+i-k），b（n，[l[j]$j=1..k-1，
%p1+i-k$j=k.i，l[j]$j=i+1…nops（l）]）
%p od；秒
%p菲
%p端：
%pT:=n->（w->seq（系数（w，z，h），h=0..（n-1）^2））（添加（z^add(
%p系数（p，x，i）*（i-1）^2，i=2..度（p）），p=b（n，[0$n]））：
%p序列（T（n），n=1..9）；#_Alois P.Heinz，2013年6月27日
%tb[n_，l_List]：=b[n，l]=模[{i，k，s，t}，其中[Max[l]>n，{}，n==0|l=={}、{0}、Min[l]>0，t=Min[l]；b[n-t，l-t]，真，对于[k=1，k<=长度[l]，k++，如果[l[k]]==0，中断[]]]；s={}；对于[i=k，i<=Length[l]&l[i]]==0，i++，s=s~并集~映射[#+x^（1+i-k）&，b[n，连接[l[[1；；k-1]]，数组[1+i-k&，i-k+1]，l[i+1；；长度[l]]]]；s] ]；T[n_]：=函数[w，表[系数[w，z，h]，{h，0，（n-1）^2}][Sum[z^Sum[系数[p，x，i]*（i-1）^2，{i，2，指数[p，x]}]，{p，b[n，数组[0&，n]]}]；表[T[n]，{n，1，9}]//Flatten（*_Jean-François Alcover_，2016年1月24日，在_Alois P.Heinz_*之后）
%Y参考A034295。
%K nonn，标签
%O 1,13个
%2013年6月27日，克里斯托弗·亨特·格里布
