A177809 - OEIS

%I #8 Mar 12 2014 16:37:17

%S 1,1,1,1,252,1,1,3003,3003,1,1,15504,184756,15504,1,1,53130,3268760,

%T 3268760,53130,1,1,142506,30045015,155117520,30045015,142506,1,1,

%U 324632,183579396,3247943160,3247943160,183579396,324632,1,1,658008,847660528,40225345056

%N Symmetrical sequence:Binomial(n,5*m)

%C Row sums are A070782.

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

%e {1},

%e {1, 1},

%e {1, 252, 1},

%e {1, 3003, 3003, 1},

%e {1, 15504, 184756, 15504, 1},

%e {1, 53130, 3268760, 3268760, 53130, 1},

%e {1, 142506, 30045015, 155117520, 30045015, 142506, 1},

%e {1, 324632, 183579396, 3247943160, 3247943160, 183579396, 324632, 1},

%e {1, 658008, 847660528, 40225345056, 137846528820, 40225345056, 847660528, 658008, 1},

%e {1, 1221759, 3190187286, 344867425584, 3169870830126, 3169870830126, 344867425584, 3190187286, 1221759, 1},

%e {1, 2118760, 10272278170, 2250829575120, 47129212243960, 126410606437752, 47129212243960, 2250829575120, 10272278170, 2118760, 1}

%t t[n_, m_] = Binomial[n, 5*m];

%t Table[Table[t[n, m], {m, 0, Floor[n/5]}], {n, 0, 50, 5}];

%t Flatten[%]

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

%K nonn,tabl

%O 0,5

%A _Roger L. Bagula_, Dec 13 2010