%I#25 2023年7月6日05:27:15

%S 1,0,281618902032824486031181464454349966814748010690367688，

%电话：1817362383203271252308324621537938310241243075876659240，

%电话：2610459340978977657430105501544968513208924265241808

%N个排列正好有6个固定点。

%H Vincenzo Librandi，n的表，n=6..200的a（n）</a>

%H FindStat-组合统计查找器，<a href=“http://www.findstat.org/St000022“>置换的不动点数</a>

%H<a href=“/index/Per#IntegerPermutationCatAuto”>与不动点置换相关的序列的索引项</a>

%F a（n）=A008290（n，6）。

%例如：exp（-x）/（1-x）*（x^6/6！）。[_Zerinvary Lajos_，2009年4月3日]

%F.O.g.F.：（1/6！）*Sum_{k>=6}k*x^k/（1+x）^（k+1）_伊利亚·古特科夫斯基，2017年4月15日

%F D-有限的递归+（-n+6）*a（n）+n*（n-7）*a_R.J.Mathar，2023年7月6日

%p a：=n->总和（n！*总和（（-1）^k/（k-5）！，j=0..n），k=5..n）：序列（-a（n）/6！，n=5..24）；

%p重新启动：G（x）：=exp（-x）/（1-x）*（x^6/6！）：f[0]：=G（x_Zerinvary Lajos，2009年4月3日

%t使用[{nn=40}，删除[CoefficientList[Series[Exp[-x]/（1-x）x^6/6！，{x，0，nn}]，x]范围[0，nn]！，6] ]（*文森佐·利班迪，2014年2月19日*）

%o（PARI）x='x+o（'x^66）；Vec（serlaplace（exp（-x）/（1-x）*（x^6/6！）））\\ Joerg Arndt_，2014年2月19日

%Y参考A008290、A008291、A170942。

%K nonn公司

%O 6,3号机组

%2007年5月25日，A_Zerinvary Lajos_

%E 2014年2月19日，由Vincenzo Librandi将偏移量从0更改为6

%E编辑_Joerg Arndt_，2014年2月19日