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.

Showing 1-3 of 3 results.

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).

Original entry on oeis.org

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

Views

Author

Emeric Deutsch, Feb 12 2006

Keywords

Comments

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)

Examples

			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;
		

References

  • 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).

Crossrefs

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.

Programs

  • Maple
    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
  • Mathematica
    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 *)
  • PARI
    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

Formula

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).

A353319 Irregular triangle read by rows where T(n,k) is the number of reversed integer partitions of n with k excedances (parts above the diagonal), all zeros removed.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 3, 4, 2, 1, 5, 4, 2, 7, 6, 2, 10, 6, 6, 15, 7, 7, 1, 18, 14, 7, 3, 26, 15, 11, 4, 35, 17, 19, 6, 47, 24, 19, 11, 61, 33, 22, 18, 1, 80, 44, 28, 20, 4, 103, 54, 42, 25, 7, 138, 60, 57, 31, 11, 175, 85, 58, 52, 15, 224, 112, 66, 64, 24
Offset: 1

Views

Author

Gus Wiseman, May 21 2022

Keywords

Examples

			Triangle begins:
   1
   1  1
   2  1
   2  3
   4  2  1
   5  4  2
   7  6  2
  10  6  6
  15  7  7  1
  18 14  7  3
  26 15 11  4
  35 17 19  6
  47 24 19 11
  61 33 22 18  1
  80 44 28 20  4
For example, row n = 9 counts the following reversed partitions:
  (1134)       (9)     (27)   (234)
  (1224)       (18)    (36)
  (1233)       (117)   (45)
  (11115)      (126)   (135)
  (11124)      (1116)  (144)
  (11133)      (1125)  (225)
  (11223)      (2223)  (333)
  (12222)
  (111114)
  (111123)
  (111222)
  (1111113)
  (1111122)
  (11111112)
  (111111111)
		

Crossrefs

Row sums are A000041.
Row lengths are A003056.
The version for permutations is A008292, opposite A123125.
The weak unreversed version is A115720/A115994, rank statistic A257990.
For fixed points instead of excedances we have A238352, rank stat A352822.
Column k = 0 is A238875.
The version for compositions is A352524, weak A352525.
The version for unreversed partitions is A353318.
A000700 counts self-conjugate partitions, ranked by A088902.
A001522 counts partitions with a fixed point, ranked by A352827 (unproved).
A064428 counts partitions w/o a fixed point, ranked by A352826 (unproved).

Programs

  • Mathematica
    partsabove[y_]:=Length[Select[Range[Length[y]],#
    				

A353315 Triangle read by rows where T(n,k) is the number of integer partitions of n with k parts on or below the diagonal (weak non-excedances).

Original entry on oeis.org

1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 2, 1, 0, 1, 1, 2, 2, 1, 0, 1, 2, 2, 3, 2, 1, 0, 1, 2, 3, 3, 3, 2, 1, 0, 1, 3, 4, 4, 4, 3, 2, 1, 0, 1, 3, 6, 5, 5, 4, 3, 2, 1, 0, 1, 4, 7, 8, 6, 6, 4, 3, 2, 1, 0, 1, 4, 9, 10, 9, 7, 6, 4, 3, 2, 1, 0, 1, 6, 10, 14, 12, 10, 8, 6, 4, 3, 2, 1, 0, 1
Offset: 0

Views

Author

Gus Wiseman, May 15 2022

Keywords

Examples

			Triangle begins:
  1
  0  1
  1  0  1
  1  1  0  1
  1  2  1  0  1
  1  2  2  1  0  1
  2  2  3  2  1  0  1
  2  3  3  3  2  1  0  1
  3  4  4  4  3  2  1  0  1
  3  6  5  5  4  3  2  1  0  1
  4  7  8  6  6  4  3  2  1  0  1
  4  9 10  9  7  6  4  3  2  1  0  1
  6 10 14 12 10  8  6  4  3  2  1  0  1
  6 13 16 17 13 11  8  6  4  3  2  1  0  1
  8 15 21 21 19 14 12  8  6  4  3  2  1  0  1
  9 19 24 28 24 20 15 12  8  6  4  3  2  1  0  1
For example, row n = 9 counts the following partitions (empty column indicated by dot):
  9   72   522   3222   22221  222111  2211111  21111111  .  111111111
  54  81   621   4221   32211  321111  3111111
  63  333  711   5211   42111  411111
      432  3321  6111   51111
      441  4311  33111
      531
		

Crossrefs

Row sums are A000041.
Column k = 0 is A003106.
The strong version is A114088.
The opposite version is A115720/A115994, rank statistic A257990.
The version for permutations is A123125, strong A173018.
The version for compositions is A352522, rank statistic A352515.
The strong opposite version is A353318.
A000700 counts self-conjugate partitions, ranked by A088902.
A001522 counts partitions with a fixed point, ranked by A352827 (unproved).
A008292 is the triangle of Eulerian numbers.
A064428 counts partitions w/o a fixed point, ranked by A352826 (unproved).
A238352 counts reversed partitions by fixed points, rank statistic A352822.
A352490 gives the nonexcedance set of A122111, counted by A000701.

Programs

  • Mathematica
    pgeq[y_]:=Length[Select[Range[Length[y]],#>=y[[#]]&]];
    Table[Length[Select[IntegerPartitions[n],pgeq[#]==k&]],{n,0,15},{k,0,n}]
Showing 1-3 of 3 results.