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.
%I A133723 #11 Apr 03 2020 09:49:07 %S A133723 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 A133723 21,1,5698,462,28,1,11586,750,36,1,21825,1155,45,1,38665,1705,55,1, %U A133723 65131,2431,66,1,105183,3367,78,1,163891,4550,91,1 %N A133723 Column 4 of triangle in A133721. %p A133723 A133723 := proc(n) %p A133723 A133721(n,4) ; %p A133723 end proc: %p A133723 seq(A133723(n),n=1..60) ; # _R. J. Mathar_, Nov 23 2011 %t A133723 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 A133723 a[m_, n_] := A133713[Ceiling[m/n], n*Ceiling[m/n] - m]; %t A133723 Table[a[m, 4], {m, 1, 60}] (* _Jean-François Alcover_, Apr 03 2020, after _R. J. Mathar_ *) %K A133723 nonn %O A133723 1,9 %A A133723 _N. J. A. Sloane_, Dec 30 2007