OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..57
MATHEMATICA
a[n_] := Sum[If[n == k == 0, 1, (-n)^k] * Binomial[n, k]^n, {k, 0, n}]; Array[a, 14, 0] (* Amiram Eldar, May 01 2021 *)
PROG
(PARI) {a(n) = sum(k=0, n, (-n)^k*binomial(n, k)^n)}
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Jul 11 2020
STATUS
approved