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

Author

Roger L. Bagula, Dec 13 2010

Keywords

• nonn
• tabl

Comments

Row sums are A070775(n).

Examples

			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;
		

Crossrefs

Cf. A086645, A034839, A070775.

Programs

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[%]

Formula

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