login
A133733
Column 6 of triangle in A133721.
1
0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 34, 22, 13, 7, 3, 1, 561, 226, 81, 25, 6, 1, 5087, 1371, 325, 65, 10, 1, 30569, 5901, 995, 140, 15, 1, 138103, 20097, 2541, 266, 21, 1, 507360, 57813, 5698, 462, 28, 1, 1594272, 146427, 11586, 750, 36, 1, 4433484, 335742, 21825, 1155, 45, 1
OFFSET
1,13
MATHEMATICA
A133713[l_, cl_] := Module[{g, k, s}, g = 1; For[k = 1, k <= cl + 1, k++, s = Sum[Binomial[Binomial[l, k + 1] + i - 1, i]*t^(i*k), {i, 0, Ceiling[ cl/k]}]; g = g*s]; SeriesCoefficient[g, {t, 0, cl}]];
a[m_, n_] := A133713[Ceiling[m/n], n*Ceiling[m/n] - m];
Table[a[m, 6], {m, 1, 60}] (* Jean-François Alcover, Apr 03 2020, after R. J. Mathar *)
CROSSREFS
Sequence in context: A033972 A298086 A114031 * A214038 A070727 A298894
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 30 2007
EXTENSIONS
More terms from Jean-François Alcover, Apr 03 2020
STATUS
approved