login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A133723 Column 4 of triangle in A133721. 2

%I #11 Apr 03 2020 09:49:07

%S 0,0,0,1,1,1,1,1,13,7,3,1,81,25,6,1,325,65,10,1,995,140,15,1,2541,266,

%T 21,1,5698,462,28,1,11586,750,36,1,21825,1155,45,1,38665,1705,55,1,

%U 65131,2431,66,1,105183,3367,78,1,163891,4550,91,1

%N Column 4 of triangle in A133721.

%p A133723 := proc(n)

%p A133721(n,4) ;

%p end proc:

%p seq(A133723(n),n=1..60) ; # _R. J. Mathar_, Nov 23 2011

%t 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}]];

%t a[m_, n_] := A133713[Ceiling[m/n], n*Ceiling[m/n] - m];

%t Table[a[m, 4], {m, 1, 60}] (* _Jean-Fran├žois Alcover_, Apr 03 2020, after _R. J. Mathar_ *)

%K nonn

%O 1,9

%A _N. J. A. Sloane_, Dec 30 2007

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 21 12:17 EST 2024. Contains 370235 sequences. (Running on oeis4.)