OFFSET
0,2
LINKS
Frank Schmidt and Rodica Simion, Card shuffling and a transformation on S_n, Aequationes Math. 44 (1992), no. 1, 11-34.
FORMULA
The reference gives a generating function.
MAPLE
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
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Emeric Deutsch, Mar 09 2004
STATUS
approved