%I#24 2023年2月12日06:14:17

%S 1,2,1,22,3,4,6,8,12,16,24,33,44,48,66,88132176264528,7,14,77,79，

%电话：15415855386911061738608312166,5,10,15,20,30,32,40,53,55,60,80，

%电话9610611012015916016521222024026531833035242440

%GF（23）上N次不可约多项式阶的三角T（N，k）按升序列出。

%H Alois P.Heinz，行n=1..17，扁平</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/IrreduciblePolynomial.html“>不可约多项式</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/PolynomialOrder.html“>多项式顺序</a>

%F T（n，k）=M（n）的第k个最小元素={d:d|（23^n-1）}\U（n-1），其中U（n）=M。

%e三角形开始：

%e 1、2、11、22；

%e 3、4、6、8、12、16、24、33、44。。。

%e 7、14、77、79、154、158、553、869、1106。。。

%e 5、10、15、20、30、32、40、53、55。。。

%电子邮箱292561、585122、3218171、6436342；

%e。。。

%p（数字理论）：

%p M：=proc（n）M（n）：=除数（23^n-1）减去U（n-1）结束：

%p U：=进程（n）U（n）：=`if`（n=0，{}，M（n）联合U（n-1））结束：

%p T：=n->排序（[M（n）[]]）[]：

%p序列（T（n），n=1..5）；

%tM[n_]：=M[n]=除数[23^n-1]~补~U[n-1]；

%tU[n_]：=U[n]=如果[n==0，{}，M[n]~联合~U[n-1]]；

%t t[n_]：=排序[M[n]]；

%t表[t[n]，{n，1，5}]//Flatten（*_Jean-François Alcover_，2023年2月12日，在_Alois P.Heinz_*之后）

%A212737的Y列k=9。

%Y列k=1给出：A218363。

%Y行长度为A212957（n，23）。

%K nonn，tabf，看

%O 1,2号机组

%A _Alois P.Heinz，2012年10月26日