A336182 -id:A336182 - cp's OEIS frontend

A336179 Square array T(n,k), n >= 0, k >= 0, read by antidiagonals, where T(n,k) = Sum_{j=0..n} (-k)^j * binomial(n,j)^3.

1, 1, 1, 1, 0, 1, 1, -1, -6, 1, 1, -2, -11, 0, 1, 1, -3, -14, 47, 90, 1, 1, -4, -15, 136, 241, 0, 1, 1, -5, -14, 261, 106, -2281, -1680, 1, 1, -6, -11, 416, -639, -8492, -3779, 0, 1, 1, -7, -6, 595, -2294, -17523, 35344, 104831, 34650, 1, 1, -8, 1, 792, -5135, -25624, 188049, 395008, -110207, 0, 1

Offset: 0

Seiichi Manyama, Jul 10 2020

Column k is the diagonal of the rational function 1 / (1 + y + z + x*y + y*z - k*z*x - (k-1)*x*y*z).

Column k is the diagonal of the rational function 1 / ((1-x)*(1-y)*(1-z) + k*x*y*z).

			Square array begins:
  1,  1,     1,     1,      1,      1, ...
  1,  0,    -1,    -2,     -3,     -4, ...
  1, -6,   -11,   -14,    -15,    -14, ...
  1,  0,    47,   136,    261,    416, ...
  1, 90,   241,   106,   -639,  -2294, ...
  1,  0, -2281, -8492, -17523, -25624, ...

Seiichi Manyama, Antidiagonals n = 0..139, flattened

Columns k=0-3 give: A000012, A245086, A336181, A336182.
Main diagonal gives A336180.
Cf. A307884, A336163.

Unprotect[Power]; 0^0 = 1; T[n_, k_] := Sum[(-k)^j * Binomial[n, j]^3, {j, 0, n}]; Table[T[k, n - k], {n, 0, 10}, {k, 0, n}] // Flatten (* Amiram Eldar, Jul 11 2020 *)

A336201 Square array T(n,k), n >= 0, k >= 0, read by antidiagonals, where T(n,k) = Sum_{j=0..n} (-k)^j * binomial(n,j)^k.

Original entry on oeis.org

1, 1, 1, 1, 0, 1, 1, -1, 0, 1, 1, -2, -3, 0, 1, 1, -3, -14, 11, 0, 1, 1, -4, -47, 136, 1, 0, 1, 1, -5, -134, 909, 106, -81, 0, 1, 1, -6, -347, 4736, 3585, -8492, 141, 0, 1, 1, -7, -846, 21655, 61906, -323523, 35344, 363, 0, 1, 1, -8, -1983, 91512, 771601, -8065624, 2201809, 395008, -1791, 0, 1

Offset: 0

Seiichi Manyama, Jul 11 2020

Column k is the diagonal of the rational function 1 / (Product_{j=1..k} (1-x_j) + k * Product_{j=1..k} x_j) for k>0.

			Square array begins:
  1, 1,   1,     1,       1,        1, ...
  1, 0,  -1,    -2,      -3,       -4, ...
  1, 0,  -3,   -14,     -47,     -134, ...
  1, 0,  11,   136,     909,     4736, ...
  1, 0,   1,   106,    3585,    61906, ...
  1, 0, -81, -8492, -323523, -8065624, ...

Columns k=0-3 give: A000012, A000007, (-1)^n*A098332(n), A336182.
Main diagonal gives A336202.
Cf. A309010, A336179, A336187.

T[n_, k_] := Sum[If[k == j == 0, 1, (-k)^j] * Binomial[n, j]^k, {j, 0, n}]; Table[T[k, n-k], {n, 0, 10}, {k, 0, n}] // Flatten (* Amiram Eldar, May 01 2021 *)

cp's OEIS Frontend

A336179 Square array T(n,k), n >= 0, k >= 0, read by antidiagonals, where T(n,k) = Sum_{j=0..n} (-k)^j * binomial(n,j)^3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica