cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A133724 Column 5 of triangle in A133721.

This page as a plain text file.
%I A133724 #11 Apr 03 2020 09:50:03
%S A133724 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,
%T A133724 995,140,15,1,20097,2541,266,21,1,57813,5698,462,28,1,146427,11586,
%U A133724 750,36,1,335742,21825,1155,45,1,710677,38665,1705,55,1
%N A133724 Column 5 of triangle in A133721.
%p A133724 A133724 := proc(n)
%p A133724         A133721(n,5) ;
%p A133724 end proc:
%p A133724 seq(A133724(n),n=1..60) ; # _R. J. Mathar_, Nov 23 2011
%t A133724 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 A133724 a[m_, n_] := A133713[Ceiling[m/n], n*Ceiling[m/n] - m];
%t A133724 Table[a[m, 5], {m, 1, 60}] (* _Jean-François Alcover_, Apr 03 2020, after _R. J. Mathar_ *)
%K A133724 nonn
%O A133724 1,11
%A A133724 _N. J. A. Sloane_, Dec 30 2007