A066320 -id:A066320 - cp's OEIS frontend

A369016 Triangle read by rows: T(n, k) = binomial(n - 1, k - 1) * (k - 1)^(k - 1) * (n - k) * (n - k + 1)^(n - k - 1).

0, 0, 0, 0, 1, 0, 0, 6, 2, 0, 0, 48, 18, 12, 0, 0, 500, 192, 144, 108, 0, 0, 6480, 2500, 1920, 1620, 1280, 0, 0, 100842, 38880, 30000, 25920, 23040, 18750, 0, 0, 1835008, 705894, 544320, 472500, 430080, 393750, 326592, 0

Offset: 0

Peter Luschny, Jan 12 2024

			Triangle starts:
  [0] [0]
  [1] [0,       0]
  [2] [0,       1,      0]
  [3] [0,       6,      2,      0]
  [4] [0,      48,     18,     12,      0]
  [5] [0,     500,    192,    144,    108,      0]
  [6] [0,    6480,   2500,   1920,   1620,   1280,      0]
  [7] [0,  100842,  38880,  30000,  25920,  23040,  18750,      0]
  [8] [0, 1835008, 705894, 544320, 472500, 430080, 393750, 326592, 0]

A368849, A368982 and this sequence are alternative sum representation for A001864 with different normalizations.
T(n, k) = A368849(n, k) / n for n >= 1.
T(n, 1) = A053506(n) for n >= 1.
T(n, n - 1) = A055897(n - 1) for n >= 2.
Sum_{k=0..n} T(n, k) = A000435(n) for n >= 1.
Sum_{k=0..n} (-1)^(k+1)*T(n, k) = A368981(n) / n for n >= 1.
Cf. A066320, A369017.

T := (n, k) -> binomial(n-1, k-1)*(k-1)^(k-1)*(n-k)*(n-k+1)^(n-k-1):
seq(seq(T(n, k), k = 0..n), n=0..9);

A369016[n_, k_] := Binomial[n-1, k-1] If[k == 1, 1, (k-1)^(k-1)] (n-k) (n-k+1)^(n-k-1); Table[A369016[n, k], {n, 0, 10}, {k, 0, n}] (* Paolo Xausa, Jan 28 2024 *)

def T(n, k): return binomial(n-1, k-1)*(k-1)^(k-1)*(n-k)*(n-k+1)^(n-k-1)
for n in range(0, 9): print([T(n, k) for k in range(n + 1)])

T = B066320 - A369017 (where B066320 = A066320 after adding a 0-column to the left and then setting offset to (0, 0)).

A369017 Triangle read by rows: T(n, k) = binomial(n-1, k-1) * (k - 1)^(k - 1) * k * (n - k + 1)^(n - k - 1).

Original entry on oeis.org

0, 0, 1, 0, 1, 2, 0, 3, 4, 12, 0, 16, 18, 36, 108, 0, 125, 128, 216, 432, 1280, 0, 1296, 1250, 1920, 3240, 6400, 18750, 0, 16807, 15552, 22500, 34560, 57600, 112500, 326592, 0, 262144, 235298, 326592, 472500, 716800, 1181250, 2286144, 6588344

Offset: 0

Peter Luschny, Jan 12 2024

			Triangle starts:
[0][0]
[1][0,      1]
[2][0,      1,      2]
[3][0,      3,      4,     12]
[4][0,     16,     18,     36,    108]
[5][0,    125,    128,    216,    432,   1280]
[6][0,   1296,   1250,   1920,   3240,   6400,   18750]
[7][0,  16807,  15552,  22500,  34560,  57600,  112500,  326592]
[8][0, 262144, 235298, 326592, 472500, 716800, 1181250, 2286144, 6588344]

Winston de Greef, Table of n, a(n) for the first 150 rows, flattened (n = 0..11324)

Cf. A066320, A369016.

T(n, k) = binomial(n-1, k-1)*(k-1)^(k-1)*k*(n-k+1)^(n-k-1)
for n in 0:9 (println([T(n, k) for k in 0:n])) end

T := (n, k) -> binomial(n-1, k-1)*(k-1)^(k-1)*k*(n-k+1)^(n-k-1):
seq(seq(T(n, k), k = 0..n), n=0..9);

A369017[n_, k_] := Binomial[n-1, k-1] If[k == 1, 1, (k-1)^(k-1)] k (n-k+1)^(n-k-1);
Table[A369017[n, k], {n, 0, 10}, {k, 0, n}] (* Paolo Xausa, Jan 28 2024 *)

T(n, k) = binomial(n-1, k-1) * (k - 1)^(k - 1) * k * (n - k + 1)^(n - k - 1) \\ Winston de Greef, Jan 27 2024

T = B066320 - A369016 (where B066320 = A066320 after adding a 0-column to the left and then setting offset to (0, 0)).

cp's OEIS Frontend

A369016 Triangle read by rows: T(n, k) = binomial(n - 1, k - 1) * (k - 1)^(k - 1) * (n - k) * (n - k + 1)^(n - k - 1).

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple

Mathematica

SageMath

Formula