%I #8 Nov 29 2023 08:51:43
%S 1,1,-3,-8,81,26,-3815,17494,178241,-2817746,3552201,315952418,
%T -3635118575,-11060115936,782886068497,-7772807719574,-66097429593855,
%U 2841563213504406,-26634464325602135,-375731325639156710,14734035378180288401,-142992751647059748944
%N a(n) = Sum_{k=0..n} binomial(n, k)^2 * (k - n)^k.
%F a(n) = Sum_{k=0..n} (-1)^k * binomial(n, k) * A059297(n, n - k).
%p a := n -> add(binomial(n, k)^2 * (k - n)^k, k = 0..n):
%p seq(a(n), n = 0..22);
%t A367273[n_]:=If[n==0,1,Sum[Binomial[n,k]^2(k-n)^k,{k,0,n}]];
%t Array[A367273,30,0] (* _Paolo Xausa_, Nov 29 2023 *)
%Y Cf. A059297.
%K sign
%O 0,3
%A _Peter Luschny_, Nov 11 2023
|