OFFSET
0,3
COMMENTS
a(n) = Sum_{k=1..n} A217580(n,k) * k.
a(n) is also the number of labeled directed graphs on n nodes with an "Emperor". - Rémy-Robert Joseph, Nov 12 2012
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..40
FORMULA
E.g.f.: x * A(x) where A(x) is the e.g.f. for A053763.
a(n) = 2^(n^2-3*n+2)*n. - Alois P. Heinz, Oct 09 2012
MAPLE
a:= n-> 2^(n^2-3*n+2)*n:
seq (a(n), n=0..15); # Alois P. Heinz, Oct 09 2012
MATHEMATICA
nn=15; s=Sum[2^(n^2-n)x^n/n!, {n, 0, nn}]; Range[0, nn]! CoefficientList[Series[x s, {x, 0, nn}], x]
PROG
(Maxima) A217652(n):=2^(n^2-3*n+2)*n$ makelist(A217652(n), n, 0, 10); /* Martin Ettl, Nov 13 2012 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Oct 09 2012
STATUS
approved