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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 30 2007
EXTENSIONS
More terms from Jean-François Alcover, Apr 03 2020
STATUS
approved