A177808 Triangle T(n,m) = binomial(4*n, 4*m), 0 <= m <= n, read by rows.

1, 1, 1, 1, 70, 1, 1, 495, 495, 1, 1, 1820, 12870, 1820, 1, 1, 4845, 125970, 125970, 4845, 1, 1, 10626, 735471, 2704156, 735471, 10626, 1, 1, 20475, 3108105, 30421755, 30421755, 3108105, 20475, 1, 1, 35960, 10518300, 225792840, 601080390, 225792840, 10518300, 35960, 1, 1, 58905, 30260340, 1251677700, 7307872110, 7307872110, 1251677700, 30260340, 58905, 1

Offset

0,5

Comments

Row sums are A070775(n).

Links

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

Formula

Right-left symmetric: T(n,m) = T(n,n-m).

Example

1;
1, 1;
1, 70, 1;
1, 495, 495, 1;
1, 1820, 12870, 1820, 1;
1, 4845, 125970, 125970, 4845, 1;
1, 10626, 735471, 2704156, 735471, 10626, 1;
1, 20475, 3108105, 30421755, 30421755, 3108105, 20475, 1;
1, 35960, 10518300, 225792840, 601080390, 225792840, 10518300, 35960, 1;
1, 58905, 30260340, 1251677700, 7307872110, 7307872110, 1251677700,30260340, 58905, 1;
1, 91390, 76904685, 5586853480, 62852101650, 137846528820, 62852101650, 5586853480, 76904685, 91390, 1;

Maple

A177808 := proc(n, m) binomial(4*n, 4*m) ; end proc: # R. J. Mathar, Dec 13 2010

Mathematica

t[n_, m_] = Binomial[n, 4*m];
Table[Table[t[n, m], {m, 0, Floor[n/4]}], {n, 0, 40, 4}];
Flatten[%]

Crossrefs

Cf. A086645, A034839, A070775.

Sequence in context: A278074 A075405 A365914 * A327024 A036183 A184886

Adjacent sequences: A177805 A177806 A177807 * A177809 A177810 A177811

Keyword

nonn,tabl

Author

Roger L. Bagula, Dec 13 2010

Status

approved