|
|
A367273
|
|
a(n) = Sum_{k=0..n} binomial(n, k)^2 * (k - n)^k.
|
|
1
|
|
|
1, 1, -3, -8, 81, 26, -3815, 17494, 178241, -2817746, 3552201, 315952418, -3635118575, -11060115936, 782886068497, -7772807719574, -66097429593855, 2841563213504406, -26634464325602135, -375731325639156710, 14734035378180288401, -142992751647059748944
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=0..n} (-1)^k * binomial(n, k) * A059297(n, n - k).
|
|
MAPLE
|
a := n -> add(binomial(n, k)^2 * (k - n)^k, k = 0..n):
seq(a(n), n = 0..22);
|
|
MATHEMATICA
|
A367273[n_]:=If[n==0, 1, Sum[Binomial[n, k]^2(k-n)^k, {k, 0, n}]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|