A114089 -id:A114089 - cp's OEIS frontend

A114088 Triangle read by rows: T(n,k) is number of partitions of n whose tail below its Durfee square has k parts (n >= 1; 0 <= k <= n-1).

1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 3, 3, 2, 1, 1, 1, 3, 4, 3, 2, 1, 1, 1, 4, 5, 5, 3, 2, 1, 1, 1, 5, 6, 6, 5, 3, 2, 1, 1, 1, 6, 8, 8, 7, 5, 3, 2, 1, 1, 1, 7, 10, 10, 9, 7, 5, 3, 2, 1, 1, 1, 9, 13, 13, 12, 10, 7, 5, 3, 2, 1, 1, 1, 10, 16, 17, 15, 13, 10, 7, 5, 3, 2, 1, 1, 1, 12, 20, 22, 20, 17

Offset: 1

Emeric Deutsch, Feb 12 2006

From Gus Wiseman, May 21 2022: (Start)
Also the number of integer partitions of n with k parts below the diagonal. For example, the partition (3,2,2,1) has two parts (at positions 3 and 4) below the diagonal (1,2,3,4). Row n = 8 counts the following partitions:
  8    71    611    5111    41111    311111   2111111   11111111
  44   332   2222   22211   221111
  53   422   3221   32111
  62   431   3311
       521   4211
Indices of parts below the diagonal are also called strong nonexcedances.
(End)

			T(7,2)=3 because we have [5,1,1], [3,2,1,1] and [2,2,2,1] (the bottom tails are [1,1], [1,1] and [2,1], respectively).
Triangle starts:
  1;
  1, 1;
  1, 1, 1;
  2, 1, 1, 1;
  2, 2, 1, 1, 1;
  3, 3, 2, 1, 1, 1;
  3, 4, 3, 2, 1, 1, 1;

G. E. Andrews, The Theory of Partitions, Addison-Wesley, 1976 (pp. 27-28).
G. E. Andrews and K. Eriksson, Integer Partitions, Cambridge Univ. Press, 2004 (pp. 75-78).

John Tyler Rascoe, Rows n = 1..140, flattened
Findstat, St000183: The side length of the Durfee square of an integer partition

Cf. A114087, A114089, A115995, A116365.
Row sums: A000041.
Column k = 0: A003114.
Weak opposite: A115994.
Permutations: A173018, weak A123125.
Ordered: A352521, rank stat A352514, weak A352522.
Opposite ordered: A352524, first col A008930, rank stat A352516.
Weak opposite ordered: A352525, first col A177510, rank stat A352517.
Weak: A353315.
Opposite: A353318.
A000700 counts self-conjugate partitions, ranked by A088902.
A115720 counts partitions by Durfee square, rank stat A257990.
A352490 gives the (strong) nonexcedance set of A122111, counted by A000701.
Cf. A002620, A006918, A219282, A238352, A238874, A325039, A330644, A352487.

g:=sum(z^(k^2)/product((1-z^j)*(1-t*z^j),j=1..k),k=1..20): gserz:=simplify(series(g,z=0,30)): for n from 1 to 14 do P[n]:=coeff(gserz,z^n) od: for n from 1 to 14 do seq(coeff(t*P[n],t^j),j=1..n) od; # yields sequence in triangular form

subdiags[y_]:=Length[Select[Range[Length[y]],#>y[[#]]&]];
Table[Length[Select[IntegerPartitions[n],subdiags[#]==k&]],{n,1,15},{k,0,n-1}] (* Gus Wiseman, May 21 2022 *)

T_qt(max_row) = {my(N=max_row+1, q='q+O('q^N), h = sum(k=1,N, q^(k^2)/prod(j=1,k, (1-q^j)*(1-t*q^j))) ); for(i=1, N-1, print(Vecrev(polcoef(h, i))))}
T_qt(10) \\ John Tyler Rascoe, Oct 24 2024

G.f. = Sum_{k>=1} q^(k^2) / Product_{j=1..k} (1 - q^j)*(1 - t*q^j).

Sum_{k=0..n-1} k*T(n,k) = A114089(n).

A116365 Sum of the sizes of the tails below the Durfee squares of all partitions of n.

Original entry on oeis.org

0, 1, 3, 6, 11, 20, 33, 56, 86, 136, 200, 301, 429, 621, 868, 1219, 1669, 2297, 3091, 4171, 5542, 7357, 9648, 12652, 16402, 21250, 27298, 35003, 44556, 56637, 71515, 90160, 113046, 141464, 176189, 219053, 271149, 335044, 412447, 506787, 620597

Offset: 1

Emeric Deutsch, Feb 12 2006

nonn

			a(4) = 6 because the bottom tails of the five partitions of 4, namely [4], [3,1], [2,2], [2,1,1] and [1,1,1,1], are { }, [1], { }, [1,1] and [1,1,1], respectively, having total size 0+1+0+2+3=6.

G. E. Andrews, The Theory of Partitions, Addison-Wesley, 1976 (pp. 27-28).
G. E. Andrews and K. Eriksson, Integer Partitions, Cambridge Univ. Press, 2004 (pp. 75-78).

Vaclav Kotesovec, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Alois P. Heinz)

Cf. A115994, A115995, A114087, A114088, A114089.

g:=sum(z^(k^2)/product((1-z^j)*(1-(t*z)^j),j=1..k),k=1..10): dgdt1:=simplify(subs(t=1,diff(g,t))): dgdt1ser:=series(dgdt1,z=0,55): seq(coeff(dgdt1ser,z,n),n=1..48);
# second Maple program:
b:= proc(n, i) option remember;
      `if`(n=0, 1, `if`(i<1, 0, b(n, i-1)+`if`(i>n, 0, b(n-i, i))))
    end:
a:= n-> add(k*add(b(k, d) *b(n-d^2-k, d),
            d=0..floor(sqrt(n))), k=0..n-1):
seq(a(n), n=1..40);  # Alois P. Heinz, Apr 2012

b[n_, i_] := b[n, i] = If[n==0, 1, If[i<1, 0, b[n, i-1] + If[i>n, 0, b[n-i, i]]]]; a[n_] := Sum[k*Sum[b[k, d]*b[n-d^2-k, d], {d, 0, Floor[Sqrt[n]]}], {k, 0, n-1}]; Table[a[n], {n, 1, 40}] (* Jean-François Alcover, Mar 31 2015, after Alois P. Heinz *)

a(n) = Sum_{k=0..n-1} k*A114087(n,k).
G.f.: [(d/dt){sum(q^(k^2)/product((1-q^j)(1-(tq)^j), j=1..k), k=1..oo)}]_{t=1}.
a(n) = (n*A000041(n)-A116503(n))/2. - Vladeta Jovovic, Feb 18 2006
a(n) ~ (1/(8*sqrt(3)) - sqrt(3) * (log(2))^2 / (4*Pi^2)) * exp(Pi*sqrt(2*n/3)). - Vaclav Kotesovec, Jan 03 2019

A114087 Triangle read by rows: T(n,k) is the number of partitions of n whose tails below their Durfee squares have size k (n>=1; 0<=k<=n-1).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 3, 2, 3, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 4, 3, 5, 3, 4, 1, 1, 1, 5, 4, 5, 5, 4, 4, 1, 1, 1, 6, 5, 7, 5, 7, 4, 5, 1, 1, 1, 7, 6, 9, 7, 7, 7, 5, 5, 1, 1, 1, 9, 7, 11, 10, 10, 7, 9, 5, 6, 1, 1, 1, 10, 9, 13, 12, 14, 10, 9, 9, 6, 6, 1, 1, 1, 12, 10, 17, 15, 17, 15

Offset: 1

Emeric Deutsch, Feb 12 2006

Row sums yield A000041. Column 0 is A003114. Sum_{k=0..n-1} k*T(n,k) = A116365(n).

			T(6,2) = 3 because we have [4,1,1], [2,2,2] and [2,2,1,1] (the bottom tails are [1,1], [2] and [1,1], respectively, each being a partition of 2).

G. E. Andrews, The Theory of Partitions, Addison-Wesley, 1976 (pp. 27-28).
G. E. Andrews and K. Eriksson, Integer Partitions, Cambridge Univ. Press, 2004 (pp. 75-78).

Alois P. Heinz, Rows n = 1..141, flattened

Cf. A000041, A003114, A115994, A115995, A116365, A114088, A114089.

g:=sum(z^(k^2)/product((1-z^j),j=1..k)/product((1-(t*z)^i),i=1..k),k=1..20): gserz:=simplify(series(g,z=0,30)): for n from 1 to 14 do P[n]:=coeff(gserz,z^n) od: for n from 1 to 14 do seq(coeff(t*P[n],t^j),j=1..n) od; # yields sequence in triangular form
# second Maple program:
b:= proc(n, i) option remember;
      `if`(n=0, 1, `if`(i<1, 0, b(n, i-1)+`if`(i>n, 0, b(n-i, i))))
    end:
T:= (n, k)-> add(b(k, d)*b(n-d^2-k, d), d=0..floor(sqrt(n))):
seq(seq(T(n, k), k=0..n-1), n=1..20); # Alois P. Heinz, Apr 09 2012

b[n_, i_] := b[n, i] = If[n == 0, 1, If[i<1, 0, b[n, i-1] + If[i>n, 0, b[n-i, i]]] ]; T[n_, k_] := Sum[b[k, d]*b[n-d^2-k, d], {d, 0, Floor[Sqrt[n]]}]; Table[Table[ T[n, k], {k, 0, n-1}], {n, 1, 20}] // Flatten (* Jean-François Alcover, Feb 19 2015, after Alois P. Heinz *)

G.f.: Sum_(q^(k^2)/Product_((1-q^j)(1-(t*q)^j), j=1..k), k=1..infinity).

A330376 Irregular triangle read by rows: T(n,k) is the total number of parts in all partitions of n with Durfee square of size k (n>=1; 1<=k<=floor(sqrt(n))).

Original entry on oeis.org

1, 3, 6, 10, 2, 15, 5, 21, 14, 28, 26, 36, 50, 45, 80, 3, 55, 130, 7, 66, 190, 19, 78, 280, 41, 91, 385, 80, 105, 532, 143, 120, 700, 248, 136, 924, 399, 4, 153, 1176, 627, 9, 171, 1500, 949, 24, 190, 1860, 1397, 51, 210, 2310, 2003, 107, 231, 2805, 2823, 193

Offset: 1

Omar E. Pol, Dec 22 2019

			Triangle begins:
   1;
   3;
   6;
  10,  2;
  15,  5;
  21, 14;
  28, 26;
  36, 50;
  45, 80, 3;

Andrew Howroyd, Table of n, a(n) for n = 1..1799 (rows 1..200)
Eric Weisstein's World of Mathematics, Durfee Square

Row sums give A006128, n >= 1.
Column 1 gives A000217, n >= 1.
Cf. A114089, A115721, A115722, A115994, A116858, A118198, A208474, A330369, A330640, A330641, A330642, A330643.
Cf. A330369.

\\ by enumeration over partitions.
ds(p)={for(i=2, #p, if(p[#p+1-i]Andrew Howroyd, Feb 02 2022

\\ by generating function.
P(n,k,y)={1/prod(j=1, k, 1 - y*x^j + O(x*x^n))}
T(n,k)={my(r=n-k^2); if(r<0, 0, subst(deriv(polcoef(y^k*P(r,k,1)*P(r,k,y), r)), y, 1))}
{ for(n=1, 10, print(vector(sqrtint(n), k, T(n,k)))) } \\ Andrew Howroyd, Feb 02 2022

Terms a(10) and beyond from Andrew Howroyd, Feb 02 2022

cp's OEIS Frontend

A114088 Triangle read by rows: T(n,k) is number of partitions of n whose tail below its Durfee square has k parts (n >= 1; 0 <= k <= n-1).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A116365 Sum of the sizes of the tails below the Durfee squares of all partitions of n.

Views

Author

Keywords

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A114087 Triangle read by rows: T(n,k) is the number of partitions of n whose tails below their Durfee squares have size k (n>=1; 0<=k<=n-1).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A330376 Irregular triangle read by rows: T(n,k) is the total number of parts in all partitions of n with Durfee square of size k (n>=1; 1<=k<=floor(sqrt(n))).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

PARI

PARI

Extensions