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,5

Comments

Row sums are A070782.

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

Links

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

Example

{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}

Mathematica

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

Crossrefs

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

Sequence in context: A268848 A365917 A365916 * A367577 A365915 A113899

Adjacent sequences: A177806 A177807 A177808 * A177810 A177811 A177812

Keyword

nonn,tabl

Author

Roger L. Bagula, Dec 13 2010

Status

approved