|
%I #8 Nov 20 2017 22:01:18
%S 1,3,1,5,8,1,7,27,15,1,9,64,84,24,1,11,125,300,200,35,1,13,216,825,
%T 1000,405,48,1,15,343,1911,3675,2695,735,63,1,17,512,3920,10976,12740,
%U 6272,1232,80,1,19,729,7344,28224,47628,37044,13104,1944,99,1,21,1000,12825
%N Triangle of number of partitions that fit in an n X n box (but not in an (n-1) X (n-1) box) with Durfee square k.
%H G. C. Greubel, <a href="/A116647/b116647.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DurfeeSquare.html">Durfee Square.</a>
%F T(n,k) = binomial(n,k)^2 - binomial(n-1,k)^2.
%e Triangle begins
%e 1;
%e 3, 1;
%e 5, 8, 1;
%e 7, 27, 15, 1;
%e 9, 64, 84, 24, 1;
%e 11, 125, 300, 200, 35, 1;
%t Table[Binomial[n, k]^2 - Binomial[n - 1, k], {n, 1, 10}, {k, 1, n}] // Flatten (* _G. C. Greubel_, Nov 20 2017 *)
%o (PARI) for(n=1,10, for(k=0,n, print1(binomial(n,k)^2 - binomial(n-1,k)^2, ", "))) \\ _G. C. Greubel_, Nov 20 2017
%Y Cf. A008459; row sums A051924.
%K easy,nonn,tabl
%O 1,2
%A _Franklin T. Adams-Watters_, Feb 20 2006
|
