A336202 a(n) = Sum_{k=0..n} (-n)^k * binomial(n,k)^n.

1, 0, -3, 136, 3585, -8065624, 985282165, 102324513620736, -758462117693095935, -310124007268556369914448, 59000420766060452235999162501, 231739512209034254162941881236647760, -948238573709799908746228205852168505192191, -43263440520748047736633474769642007589423961473152

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

Main diagonal of A336201.

Cf. A167010, A336188, A336204.

Sequence in context: A193136 A037120 A082923 * A231904 A049677 A030247

Adjacent sequences: A336199 A336200 A336201 * A336203 A336204 A336205

Keyword

sign

Author

Seiichi Manyama, Jul 11 2020

Status

approved