|
|
A156741
|
|
Triangle T(n, k, m) = round( Product_{j=0..m} binomial(2*(n+j), 2*(k+j))/binomial( 2*(n-k+j), 2*j) ), where m = 8, read by rows.
|
|
5
|
|
|
1, 1, 1, 1, 190, 1, 1, 7315, 7315, 1, 1, 134596, 5181946, 134596, 1, 1, 1562275, 1106715610, 1106715610, 1562275, 1, 1, 13123110, 107904771975, 1985447804340, 107904771975, 13123110, 1, 1, 86493225, 5974000557525, 1275875833357125, 1275875833357125, 5974000557525, 86493225, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
FORMULA
|
T(n, k, m) = round( Product_{j=0..m} b(n+j, k+j)/b(n-k+j, j) ), where b(n, k) = binomial(2*n, 2*k) and m = 8.
|
|
EXAMPLE
|
Triangle begins as:
1;
1, 1;
1, 190, 1;
1, 7315, 7315, 1;
1, 134596, 5181946, 134596, 1;
1, 1562275, 1106715610, 1106715610, 1562275, 1;
1, 13123110, 107904771975, 1985447804340, 107904771975, 13123110, 1;
|
|
MATHEMATICA
|
b[n_, k_]:= Binomial[2*n, 2*k];
T[n_, k_, m_]:= Round[Product[b[n+j, k+j]/b[n-k+j, j], {j, 0, m}]];
Table[T[n, k, 8], {n, 0, 12}, {k, 0, n}]//Flatten (* G. C. Greubel, Jun 19 2021 *)
|
|
PROG
|
(Magma)
A156741:= func< n, k | Round( (&*[Binomial(2*(n+j), 2*(k+j))/Binomial(2*(n-k+j), 2*j): j in [0..8]]) ) >;
(Sage)
def A156741(n, k): return round( product( binomial(2*(n+j), 2*(k+j))/binomial(2*(n-k+j), 2*j) for j in (0..8)) )
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition corrected to give integral terms and edited by G. C. Greubel, Jun 19 2021
|
|
STATUS
|
approved
|
|
|
|