%I#24 2023年8月16日12:28:21

%S 1,1,2,4,8,24,7228811525760288001728001036800725760050803200，

%电话4064256003251404800292626432002633637888002633737888000，

%电话：26336378880002897001676800003186701844480000382404221337600004588850651200059655000

%{1,2，…，N}的排列数，所有奇数项在所有偶数项之前，或所有偶数项目在所有奇数项目之前。

%C a（n）=A152874（n，1）。

%H Alois P.Heinz，n的表格，n=0..506的a（n）</a>

%F a（2n）=2n^2; a（2n+1）=2n！（n+1）！（对于n>=2）。

%例如：1+x+2*（4*sqrt（4-x^2）*arcsin（x/2）-4x+4x^2+x^3-x^4）/（（2+x）*（2-x）^2）。

%F D-有限递归4*a（n）-2*a（n-1）-n*（n-1_R.J.Mathar，2022年7月22日

%e a（4）=8，因为我们有1324、1342、3124、3142、2413、2431、4213和4231。

%p a：=proc（n）如果`mod`（n，2）=0，则2*阶乘（（1/2）*n）^2其他2*阶除（（1/2。。25);

%p#第二个Maple程序：

%p a：=n->（h->2^符号（h）*h*（n-h）！）（iquo（n，2））：

%p序列（a（n），n=0..27）；#_阿洛伊斯·海因茨，2023年5月23日

%p#第三个Maple程序：

%p a：=proc（n）选项记住`如果`（n<4，n*（n-1）/2+1，

%p n*（n-1）*a（n-2）/4+a（n-1）/2）

%p端：

%p序列（a（n），n=0..27）；#_阿洛伊斯·海因茨，2023年5月23日

%t a[n_]：=其中[n<2，1，EvenQ[n]，2（n/2）^2，正确，2（n-1）/2）*（（n+1）/2）！]；

%t表[a[n]，{n，0，27}]（*Jean-François Alcover_，2023年8月16日*）

%Y参见A124419、A152874。

%K nonn，简单

%0、3

%德国电子报，2008年12月15日

%E a（0）=a（1）=1，由_Alois P.Heinz_编写，2023年5月23日