%I#44 2021年4月18日09:04:48

%S 1,1,1,1,2,1,1,6,1,1,7,7,1,1,19,11,1,47,15,1111,15,1112126，

%电话：16,1,1324166,20,1776222,24,11736286,24,13708358,28,1,1，

%电话：7740422,28,1,115868486,28,1132252486,28,13225332738514,29,1

%N具有k个二进制进位连接分量的[N]子集的N个T（N，k）；三角形T（n，k），n>=0，0<=k<=A029837（n+1），按行读取。

%如果两个整数的位“与”不为零，则它们是二进制进位连接的。

%C T（n，k）定义为所有n，k>=0。三角形只包含正项。如果k>A029837（n+1），T（n，k）=0。

%H Alois P.Heinz，<a href=“/A306297/b306297.txt”>行n=0..1023</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Bitwise网站操作“>按位操作</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Partition_of_a_set（英文）“>集合的分区</a>

%F（n，0）+T（n，1）=A325105（n）。

%F T（n，A029837（n+1））=1。

%e T（4,0）=1:{}。

%e T（4,1）=7:1、2、3、13、23、123、4。

%e T（4,2）=7:1|2，1|4，2|4，3|4，13|4，23|4，123|4。

%e T（4,3）=1:1|2|4。

%e（连接的组件显示为集合分区的块。）

%e三角形T（n，k）开始：

%e 1；

%e 1，1；

%e 1、2、1；

%e 1、6、1；

%e 1、7、7、1；

%e 1、19、11、1；

%e 1、47、15、1；

%e 1、111、15、1；

%e 1、112、126、16、1；

%e 1、324、166、20、1；

%e 1776、222、24、1；

%e 1173628624,1；

%e 1、3708、358、28、1；

%e。。。

%p h：=过程（n，s）局部i，m；m： =n；

%p代表s中的i do m：=位[或]（m，i）od；{米}

%p端：

%pg:=（n，s）->（w->`if`（w={}，s并集{n}，s-减去w并集

%p h（n，w）））（选择（x->Bits[And]（n，x）>0，s）：

%p b:=proc（n，s）选项记忆`如果`（n=0，x^nops（s），

%p b（n-1，s）+b（n-1，g（n，s））

%p端：

%pT:=n->（p->seq（系数（p，x，i），i=0..度（p））（b（n，{}））：

%p序列（T（n），n=0..23）；

%th[n_，s_List]：=模[{i，m=n}，对于[i=1，i<=长度[s]，i++，m=BitOr[m，s[i]]]；m] ；

%t g[n_，s_List]：=函数[w，如果[w=={}，s~Union~{n}，s~Complement~w~Union={h[n，w]}]][选择[s，BitAnd[n，#]>0&]]；

%tb[n_，s_List]：=b[n，s]=如果[n==0，x^长度[s]，b[n-1，s]+b[n-1，g[n，s]]]；

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

%t t/@范围[0，23]//压扁（*_Jean-François Alcover_，2021年4月18日，在_Alois P.Heinz_*之后）

%Y列k=0-1给出：A00007，-1+A225105。

%Y行总和表示A000079。

%Y第n行中的术语数表示A070941。

%Y参考A029837，A325105。

%K nonn看tabf

%0、5

%A _Alois P.Heinz，2019年3月31日