A133733 Column 6 of triangle in A133721.

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

Author

N. J. A. Sloane, Dec 30 2007

Keywords

• nonn

Programs

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 *)

Extensions

More terms from Jean-François Alcover, Apr 03 2020