A133724 Column 5 of triangle in A133721.

0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 22, 13, 7, 3, 1, 226, 81, 25, 6, 1, 1371, 325, 65, 10, 1, 5901, 995, 140, 15, 1, 20097, 2541, 266, 21, 1, 57813, 5698, 462, 28, 1, 146427, 11586, 750, 36, 1, 335742, 21825, 1155, 45, 1, 710677, 38665, 1705, 55, 1

Offset

1,11

Links

Table of n, a(n) for n=1..55.

Maple

A133724 := proc(n)
        A133721(n, 5) ;
end proc:
seq(A133724(n), n=1..60) ; # R. J. Mathar, Nov 23 2011

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, 5], {m, 1, 60}] (* Jean-François Alcover, Apr 03 2020, after R. J. Mathar *)

Crossrefs

Sequence in context: A033967 A262244 A140872 * A196030 A196027 A040464

Adjacent sequences: A133721 A133722 A133723 * A133725 A133726 A133727

Keyword

nonn

Author

N. J. A. Sloane, Dec 30 2007

Status

approved