%I #19 Dec 26 2021 14:37:49
%S 0,0,0,6,36,200,1230,8652,69272,623520,6235290,68588300,823059732,
%T 10699776672,149796873590,2246953104060,35951249665200,
%U 611171244308672,11001082397556402,209020565553571980,4180411311071439980,87788637532500240000
%N a(n) = n! * Sum_{k=1..n-2} 1/k!.
%H Harvey P. Dale, <a href="/A038157/b038157.txt">Table of n, a(n) for n = 0..449</a>
%H <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a>
%F a(n) = floor(n!*exp(1)) - n - 1 - n! for n>1. - _Mark van Hoeij_, Oct 30 2011
%t a=1;Table[a=(a-n)*(n+1);Abs[a],{n,0,40}] (* _Vladimir Joseph Stephan Orlovsky_, Nov 20 2009 *)
%t Table[n!Sum[1/k!,{k,n-2}],{n,0,30}] (* _Harvey P. Dale_, Dec 26 2021 *)
%K nonn
%O 0,4
%A _N. J. A. Sloane_