A177809 Symmetrical sequence:Binomial(n,5*m).

1, 1, 1, 1, 252, 1, 1, 3003, 3003, 1, 1, 15504, 184756, 15504, 1, 1, 53130, 3268760, 3268760, 53130, 1, 1, 142506, 30045015, 155117520, 30045015, 142506, 1, 1, 324632, 183579396, 3247943160, 3247943160, 183579396, 324632, 1, 1, 658008, 847660528, 40225345056

Offset: 0

Author

Roger L. Bagula, Dec 13 2010

Keywords

• nonn
• tabl

Comments

Row sums are A070782.

5th in the sequence of sequence Binomial(n,k*m),k=1,2,3,4,5,...

Examples

			{1},
{1, 1},
{1, 252, 1},
{1, 3003, 3003, 1},
{1, 15504, 184756, 15504, 1},
{1, 53130, 3268760, 3268760, 53130, 1},
{1, 142506, 30045015, 155117520, 30045015, 142506, 1},
{1, 324632, 183579396, 3247943160, 3247943160, 183579396, 324632, 1},
{1, 658008, 847660528, 40225345056, 137846528820, 40225345056, 847660528, 658008, 1},
{1, 1221759, 3190187286, 344867425584, 3169870830126, 3169870830126, 344867425584, 3190187286, 1221759, 1},
{1, 2118760, 10272278170, 2250829575120, 47129212243960, 126410606437752, 47129212243960, 2250829575120, 10272278170, 2118760, 1}
		

Crossrefs

Cf. A086645, A034839, A070775, A177808, A139459, A070782.

Programs

Mathematica

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