A350308 a(n) is the constant term in the expansion of Product_{j=1..n} (Sum_{k=-j..j} x^k)^j.

1, 1, 13, 2431, 10027503, 1107781071903, 3893880730064443963, 506016205547402043327062969, 2774765502272595019563619139799271431, 722310089115924894687149792741562790592722949523

Offset

0,3

Links

Table of n, a(n) for n=0..9.

Mathematica

a[n_] := Coefficient[Series[Product[Sum[x^k, {k, -j, j}]^j, {j, 1, n}], {x, 0, 0}], x, 0]; Array[a, 10, 0] (* Amiram Eldar, Dec 24 2021 *)

Prog

(PARI) a(n) = polcoef(prod(j=1, n, sum(k=-j, j, x^k)^j), 0);

Crossrefs

Cf. A350283, A350306, A350307.

Sequence in context: A096721 A301466 A229267 * A283099 A348817 A195537

Adjacent sequences: A350305 A350306 A350307 * A350309 A350310 A350311

Keyword

nonn

Author

Seiichi Manyama, Dec 23 2021

Status

approved