%I#16 2019年6月15日10:31:56

%S 1,1,1,1,2,1,1,2,3,1,1,2,1,1,1,2,1,2,3,1,3,1,5,1,1,2,1,2,2,1,1,1,1,1,1，

%第7,1,1,2,1,2,1,1,1,1,1,1,1,1,2,3,1,5,1,1,1,1,1,1,1,11,2,1,2,1,1,11,2页，

%U 3,1,1,1,1,1,1,1,11,1,2,1,1,1,1,1,1,1,11,1,1,1

%N按行读取的三角形，有理多项式P（N，x）的系数的分母（以升幂表示），使得Integral_{x=0..1}P'（N，x）=Bernoulli（N，1）。

%C注释见A290694。

%F T（n，k）=分母（[x^k]积分（Sum_{j=0..n}（-1）^（n-j）*Stirling2（n，j）*j！*x^j）^m），对于m=1和k=0..n+1。

%e三角形开始：

%e[1，1]

%e[1、1、2]

%e[1、1、2、3]

%e[1、1、2、1、2]

%e[1、1、2、3、1、5]

%e[1,1,2,1,2,1,1]

%e[1,1,2,3,1,1,1,7]

%e[1,1,2,1,2,1,1,1,1]

%p T_row:=n->denom（多项式工具：-系数列表（添加（（-1）^（n-j+1）*Stirling2（n，j-1）*（j-1）*x^j/j，j=1..n+1），x））：对于从0到7的n，执行T_row（n）od；

%t t[n_]：=分母[系数表[总和[（-1）^（n-j+1）箍筋S2[n，j-1]（j-1）！x^j/j，{j，1，n+1}]，x]]；

%t表[t[n]，{n，0，7}]（*_Jean-François Alcover_，2019年6月15日，摘自Maple*）

%Y参考A164555/A027642、A212196/A181131、A291449/A291450、A290694/A290695、A2911447/A291448。

%K non，tabf，压裂

%0、5

%A _彼得·卢什尼，2017年8月24日