%I#8 2023年2月17日11:49:36

%S 1,0,1,0,1,2,0,1,6,3,0,1,14,14,5,0,13,45,32,8,0,16,6214131,65,13，

%电话：0,1126315438323128,21,125476213051270747243,34,0,1510，

%电话：1785361243463701629452,55

%N按行读取的三角形，其中T（N，k）是其非相邻块成对增加的{1..N}的长度-k有序集分区数。

%换句话说，部分后续的非成功区块正在增加。

%e三角形开始：

%第1页

%e 0 1

%e 0 1 2

%e 0 1 6 3

%电子0 1 14 14 5

%电子0 1 30 45 32 8

%电话：0 1 62 124 131 65 13

%电话0 1 126 315 438 323 128 21

%电话：0 1 254 762 1305 1270 747 243 34

%e。。。

%e行n=4统计以下有序集分区：

%电子{1234}{1}{234}{2}{34}{1{2}}{3}{4}

%e{12}{34}{1}{23}{4}{1{2}{4{3}

%e｛123｝｛4｝｛12｝｛3｝｛4｝｛1｝｛3｝｛2｝｛4｝

%e｛124｝｛3｝｛1｝｛24｝｛3｝｛2｝｛1｝｛3｝｛4｝

%e{13}{24}{12}{4}{3}{2}{1}{4{3}

%电子{134}{2}{1}{3}{24}

%电子{14}{23}{13}{2}{4}

%电子{2}{134}{1}{34}{2}

%电子{23}{14}{1}{4}{23}

%电子{234}{1}{2}{1{34}

%电子{24}{13}{2}{13{4}

%电子{3}{124}{2}{14}{3}

%电子{34}{12}{23}{1}{4}

%电子{4}{123}{3}{12}{4}

%sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；

%t表[Length[Select[Join@@Permutations/@sps[Range[n]]，Length[#]==k&&！匹配Q[#，{___，{__，a_，___}，__，{_____，b_，___}，___}/；a>b]&]]，{n，0,5}，{k，0，n}]

%Y一个明显相关的三角形是A056242。

%Y列k=n-1为A332724。

%Y行总和是A332872，似乎是A007052右移了一次。

%Y有序的设置部分为A000670。

%Y单峰成分为A001523。

%Y非单峰正态序列为A328509。

%Y参见A072704、A097805、A107429、A227038、A332280、A332283、A33228、A332577。

%K nonn，表

%0、6

%A _ Gus Wiseman_，2020年3月2日