%I #11 Dec 22 2014 02:53:22
%S 0,2,9,100,1237,18896,337663,6941194,161357425,4186540456,
%T 119942830785,3761004532550,128121728853479,4711881688294652,
%U 186065500280409423,7852240169544076190,352684377274345906213,16798134072300013751064
%N A problem in derangements.
%H Frank Schmidt and Rodica Simion, <a href="http://dx.doi.org/10.1007/BF01834201">Card shuffling and a transformation on S_n</a>, Aequationes Math. 44 (1992), no. 1, 11-34.
%F The reference gives a generating function.
%p a := n->simplify((n-1)!*sum(n^k/k!,k=0..n-1)-2*(n-1)^(n-1)): b := simplify(x^2+sum(a(n)*x^n/n!,n=3..70)): f := simplify(exp(b)): fser := simplify(series(f,x=0,27)): s := seq(simplify(n!*coeff(fser,x^n)),n=1..25); # _Emeric Deutsch_, Mar 09 2004
%K nonn
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Emeric Deutsch_, Mar 09 2004