A374894 Obverse convolution (n)**(n*(-1)^n); see Comments.
0, -1, 0, -27, -256, 1875, 0, 252105, 4718592, -55801305, 0, -18415376595, -515978035200, 8479520844795, 0, 5195043369140625, 193953851139686400, -4086470036057634225, 0, -4014187339733760264075, -187280916480000000000000, 4816074142389727429287075, 0
Offset: 0
Keywords
Programs
-
Mathematica
s[n_] := n; t[n_] := (-1)^n n; u[n_] := Product[s[k] + t[n - k], {k, 0, n}] Table[u[n], {n, 0, 26}]
Comments