OFFSET
0,3
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}]];
Array[A367273, 30, 0] (* Paolo Xausa, Nov 29 2023 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Peter Luschny, Nov 11 2023
STATUS
approved