%I#18 2023年1月22日02:36:51

%S 2,6,12,481447202880172808640060480032880029030400203212800，

%电话182891520014631321600146313216000131681894400014485008384000，

%电话：1448500838400001738201006080000191202110668800002485627438694400002827529264332800004175409700659200000

%N具有单次偶数项运行的{1,2，…，N}（N>=2）的排列数。例如，排列513284679有一个单次偶数项运行：2846。

%F a（n）=A152667（n，1）。

%F a（2n）=（n+1）（n！）^2；

%F a（2n+1）=n！（n+2）！

%例如：24*sqrt（4-x^2）*arcsin（x/2）/[（2-x）^3*（2+x）^2]-x（6-8x-3x^2+2x^3）/[。

%F G.F:G（0）/x^2-1/x^2-2/x，其中G（k）=1+x*（k+2）/（1-x*（k+1）/（x*（k+1）+1/G（k+1））；（连分数）。-_谢尔盖·格拉德科夫斯基（Sergei N.Gladkovskii），2013年6月7日

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

%F和{n>=2}1/a（n）=BesselI（1,2）+Bessel（2,2）-3/2=A096789+A229020-3/2_Amiram Eldar，2023年1月22日

%e a（4）=12，因为我们有2413、2431、4213、4231、1243、1423及其背面图案。

%p ae:=proc（n）选项操作符，箭头：阶乘（n）^2*（n+1）end proc:ao:=proc；seq（a（n），n=2。。23);

%t a[n_]：=如果[OddQ[n]，（（n-1）/2）*（（n+3）/2）！，（n/2+1）（（n/2）！）^2]; 阵列[a，25，2]（*_Amiram Eldar_，2023年1月22日*）

%Y参考A152667。

%Y参考A096789，A229020。

%K nonn公司

%O 2.1个

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