%I#39 2023年5月9日10:18:34

%S 1,1,2,4,13,57322217617009150505148546616170036192384877，

%电话：2483177809345542788585156207945928212685046337139062777326001，

%电话：2494364438359954472450959980050609422597271907181973756698224185172143323432659362631602

%N A000166的部分金额。

%子因子或伦次数或错位的部分和（n个元素无固定点的排列数）。素数的子序列开始于：213192384877。

%F G.F.：1/U（0）/（1-x），其中U（k）=1+x-x*（k+1）/（1-x*（k+1）/U（k+1））；（连分数）。-_谢尔盖·格拉德科夫斯基（Sergei N.Gladkovskii），2012年10月15日

%计算公式：1/（1-x^2）+（1/（1-x））*Sum_{k>=1}k^k*x^k/（1+（k+1）*x）^（k+1_伊利亚·古特科夫斯基，2017年4月13日

%F From _Emanuele Munarini，2017年10月6日：（开始）

%例如：exp（-t）/（1-t）-exp（t-2）*（coshIntegral（2-2*t）+sinhIntegral（2-2*t）-extIntegralEi（2））。

%F a（n+2）-（n+3）*a（n+1）+

%具有递推的F D-有限a（n+3）-（n+3）*a（n+2）+（n+2）*a（n）=0_伊曼纽尔·穆纳里尼，2017年8月24日

%e a（3）=1+0+1+2=4。

%ta[0]=1；a[n]：=a[n]=n*a[n-1]+（-1）^n；累积@数组[a，21，0]（*_Robert G.Wilson v_1011年4月1日*）

%t dr[{n，a1，a2}]：={n+1，a2，n（a1+a2）}；累加[Transpose[NestList[dr，{0,0,1}，30]][[3]]]（*哈维·P·达尔，2014年7月17日*）

%t表[总和[次阶乘[k]，{k，0，n}]，{n，0，100}]（*_Emanuele Munarini_，2017年8月24日*）

%o（最大值）

%o s[0]：1$

%o s[n]：=n*s[n-1]+（-1）^n$

%o清单（总和（s[k]，k，0，n），n，0,12）；/*_伊曼纽尔·穆纳里尼，2017年8月24日*/

%Y参考A000166、A001277。

%K nonn公司

%0、3

%A _Jonathan Vos Post，2010年2月12日