%I#12 2021年5月22日08:32:29

%S 1,0,1,14,30540180640824186480510300029607600953029440，

%电话：6711344640248619571200206005631832086355926616960823172919528960，

%电话：38528927611574400415357557749984002147373231974006400025838656585787200001462082533073903204800

%N a（N）=箍筋2（N，地板（N/2））*地板（N/3）！。

%F a（n）=[x^（floor（n/2）]F（n，x），Fubini多项式的中间系数。

%F a（n）=和{k=0..n/2}（-1）^k*二项式（（2*n-1）/4+（-1）*n/4，k）*（2*n-1）/4+。

%p a:=n->加上（（-1）^k*二项式（（2*n-1）/4+（-1）*n/4，k）*（2*n-1）/4+（-1-）^n/4-k）^n，k=0..n/2）：

%p#替代方案，通过Fubini循环：

%p F:=proc（n）选项记忆；如果n=0，则返回1 fi；

%p展开（加上（二项式（n，k）*F（n-k）*x，k=1..n））结束：

%p a:=n->系数（F（n），x，iquo（n，2））；

%p序列（a（n），n=0..22）；

%t a[n_]：=箍筋S2[n，地板[n/2]]*地板[n/2]！；数组[a，23，0]（*_Amiram Eldar_，2021年5月22日*）

%o（SageMath）

%o定义a（n）：返回stirling_number2（n，n//2）*阶乘

%o打印（[a（n）代表范围（23）中的n]）

%Y参见A131689、A210029、A019538、A090582。

%K nonn公司

%0、5

%阿佩特·卢什尼，2021年5月21日