%I#32 2017年6月4日08:01:16

%S 0,0,1,6,30160975684654796493200493204554252550651030666，

%电话8463398736118487582395177731373603028437019776600483429336202336，

%电话：87017280516422011653328329812019903306656596240399990694397852104840000

%N a（N）=（N！/2）*和{k=0..N-2}1/k！。

%C对于n>=2，a（n）给出了使用Knuth的《计算机编程的艺术》第4卷第7.2.1.2章中的算法L（字典排列生成）创建n个不同元素的所有排列的运算计数。序列给出了在步骤L3中找到第一个可互换元件所需的比较次数（参见练习5的答案）_雨果·普福尔特纳，2003年1月27日

%C a（n）模块5=A011658（n+1）。-_G.C.Greubel，2016年4月13日

%C a（450）有1001个十进制数字_Michael De Vlieger_，2016年4月13日

%C以及完整图K_n.-_Eric W.Weisstein_中的（无向）路径数，2017年6月4日

%D D.E.Knuth：《计算机编程的艺术》，第4卷，组合算法，第4A卷，枚举和回溯。章程细则前2B，第7.2.1.2节草案：生成所有排列。在线可用；请参阅链接。

%H Michael De Vlieger，<a href=“/A038155/b038155.txt”>n的表，a（n）表示n=0..449</a>

%H D.E.Knuth，<a href=“http://www-cs-factory.stanford.edu/~knuth/fasc2b.ps.gz“>TAOCP第4卷，血管前2b（生成所有排列）</a>。

%H Hugo Pfoertner，<a href=“http://www.randomwalk.de/sequences/lpure.txt“>Knuth算法L用于字典置换生成的FORTRAN实现。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/CompleteGraph.html“>完整图形</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/GraphPath.html“>图形路径</a>

%F a（n）=1/2*楼层（n！*exp（1）-n-1），n>0.-_Vladeta Jovovic_，2002年8月18日

%F例如：x^2/2*exp（x）/（1-x）.-_Vladeta Jovovic_，2002年8月25日

%F a（n）=和{k=0..n-1}a（n-1）+k，a（0）=0.-_伊利亚·古特科夫斯基，2016年4月13日

%F a（n）=A038154（n）/2.-_Alois P.Heinz，2017年1月26日

%p A038155:=n->（n！/2）*加（1/k！，k=0..n-2）：序列（A038155（n），n=0..30）；#_韦斯利·伊万·赫特，2016年4月16日

%t循环表[{a[0]==0，a[n]==总和[a[n-1]+k，{k，0，n-1}]}，a，{n，21}]（*_Ilya Gutkovskiy_，2016年4月13日*）

%t表[（n！/2）总和[1/k！，{k，0，n-2}]，{n，0，21}]（*Michael De Vlieger_，2016年4月13日*）

%t表[1/2 E（n-1）nγ[n-1，1]，{n，0，20}]（*_Eric W.Weisstein_，2017年6月4日*）

%t表[如果[n==0，0，Floor[n！E-n-1]/2]，{n，0，20}]（*_Eric W.Weisstein_，2017年6月4日*）

%Y参见A011658、A038154、A038156、A056542、A079752、A079 884、A080047、A080048、A080049。

%K nonn，简单

%0、4

%A _N.J.A.斯隆_