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-10 of 17 results. Next

A323429 Number of rectangular plane partitions of n.

Original entry on oeis.org

1, 1, 3, 5, 10, 14, 26, 35, 58, 81, 124, 169, 257, 345, 501, 684, 968, 1304, 1830, 2452, 3387, 4541, 6188, 8257, 11193, 14865, 19968, 26481, 35341, 46674, 62007, 81611, 107860, 141602, 186292, 243800, 319610, 416984, 544601, 708690, 922472, 1197018, 1553442
Offset: 0

Views

Author

Gus Wiseman, Jan 15 2019

Keywords

Comments

Number of ways to fill a (not necessarily square) matrix with the parts of an integer partition of n so that the rows and columns are weakly decreasing.

Examples

			The a(5) = 14 matrices:
  [5] [4 1] [3 2] [3 1 1] [2 2 1] [2 1 1 1] [1 1 1 1 1]
.
  [4] [3] [2 1]
  [1] [2] [1 1]
.
  [3] [2]
  [1] [2]
  [1] [1]
.
  [2]
  [1]
  [1]
  [1]
.
  [1]
  [1]
  [1]
  [1]
  [1]
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[Length[Select[Union[Sort/@Tuples[IntegerPartitions[#,{k}]&/@ptn]],And@@OrderedQ/@Transpose[#]&]],{ptn,IntegerPartitions[n]},{k,Min[ptn]}],{n,30}]

A323436 Number of plane partitions whose parts are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 3, 1, 2, 2, 5, 1, 4, 1, 3, 2, 2, 1, 5, 2, 2, 3, 3, 1, 4, 1, 7, 2, 2, 2, 8, 1, 2, 2, 5, 1, 4, 1, 3, 3, 2, 1, 7, 2, 4, 2, 3, 1, 7, 2, 5, 2, 2, 1, 8, 1, 2, 3, 11, 2, 4, 1, 3, 2, 4, 1, 12, 1, 2, 4, 3, 2, 4, 1, 7, 5, 2, 1, 8, 2, 2
Offset: 0

Views

Author

Gus Wiseman, Jan 15 2019

Keywords

Comments

Number of ways to fill a Young diagram with the prime indices of n such that all rows and columns are weakly decreasing.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The a(120) = 12 plane partitions:
  32111
.
  311   321   3111   3211
  21    11    2      1
.
  31   32   311   321
  21   11   2     1
  1    1    1     1
.
  31   32
  2    1
  1    1
  1    1
.
  3
  2
  1
  1
  1
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    ptnplane[n_]:=Union[Map[Reverse@*primeMS,Join@@Permutations/@facs[n],{2}]];
    Table[Length[Select[ptnplane[y],And[And@@GreaterEqual@@@#,And@@(GreaterEqual@@@Transpose[PadRight[#]])]&]],{y,100}]

A323438 Number of ways to fill a Young diagram with the prime indices of n such that all rows and columns are weakly increasing.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 5, 1, 3, 1, 4, 2, 2, 1, 7, 2, 2, 3, 4, 1, 4, 1, 7, 2, 2, 2, 8, 1, 2, 2, 7, 1, 4, 1, 4, 4, 2, 1, 12, 2, 3, 2, 4, 1, 5, 2, 7, 2, 2, 1, 10, 1, 2, 4, 11, 2, 4, 1, 4, 2, 4, 1, 13, 1, 2, 3, 4, 2, 4, 1, 12, 5, 2, 1, 10, 2
Offset: 1

Views

Author

Gus Wiseman, Jan 16 2019

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The a(96) = 19 tableaux:
  111112
.
  111   1111   1112   11111   11112
  112   12     11     2       1
.
  11   111   111   112   1111   1112
  11   11    12    11    1      1
  12   2     1     1     2      1
.
  11   11   111   112
  11   12   1     1
  1    1    1     1
  2    1    2     1
.
  11   12
  1    1
  1    1
  1    1
  2    1
.
  1
  1
  1
  1
  1
  2
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    ptnplane[n_]:=Union[Map[primeMS,Join@@Permutations/@facs[n],{2}]];
    Table[Length[Select[ptnplane[y],And[And@@LessEqual@@@#,And@@(LessEqual@@@Transpose[PadRight[#]/.(0->Infinity)])]&]],{y,100}]

Formula

Sum_{A056239(n) = k} a(k) = A323450(n).

A323430 Number of rectangular plane partitions of n with strictly decreasing rows and columns.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 7, 9, 12, 16, 22, 27, 36, 44, 57, 72, 89, 110, 139, 170, 210, 261, 318, 390, 478, 581, 705, 860, 1036, 1252, 1511, 1816, 2178, 2618, 3127, 3743, 4471, 5330, 6347, 7564, 8984, 10674, 12669, 15016, 17780, 21050, 24868, 29371, 34655, 40836, 48080
Offset: 0

Views

Author

Gus Wiseman, Jan 15 2019

Keywords

Comments

Number of ways to fill a (not necessarily square) matrix with the parts of an integer partition of n so that the rows and columns are strictly decreasing.

Examples

			The a(8) = 12 matrices:
  [8] [7 1] [6 2] [5 3] [5 2 1] [4 3 1]
.
  [7] [6] [5] [3 2]
  [1] [2] [3] [2 1]
.
  [5] [4]
  [2] [3]
  [1] [1]
The a(10) = 22 matrices:
  [10] [9 1] [8 2] [7 3] [7 2 1] [6 4] [6 3 1] [5 4 1] [5 3 2] [4 3 2 1]
.
  [9] [8] [7] [6] [5 2] [4 2] [4 3]
  [1] [2] [3] [4] [2 1] [3 1] [2 1]
.
  [7] [6] [5] [5]
  [2] [3] [4] [3]
  [1] [1] [1] [2]
.
  [4]
  [3]
  [2]
  [1]
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[Length[Select[Union[Tuples[Select[IntegerPartitions[#,{k}],UnsameQ@@#&]&/@ptn]],And@@(OrderedQ[#,Greater]&/@Transpose[#])&]],{ptn,IntegerPartitions[n]},{k,Min[ptn]}],{n,30}]

A323432 Number of semistandard rectangular plane partitions of n.

Original entry on oeis.org

1, 1, 2, 4, 6, 9, 15, 20, 30, 42, 59, 79, 112, 146, 199, 264, 350, 455, 603, 774, 1010, 1297, 1668, 2124, 2724, 3441, 4372, 5513, 6955, 8718, 10960, 13670, 17091, 21264, 26454, 32786, 40667, 50215, 62048, 76435, 94126
Offset: 0

Views

Author

Gus Wiseman, Jan 16 2019

Keywords

Comments

Number of ways to fill a (not necessarily square) matrix with the parts of an integer partition of n so that the rows are weakly decreasing and the columns are strictly decreasing.

Examples

			The a(6) = 15 matrices:
  [6] [51] [42] [411] [33] [321] [3111] [222] [2211] [21111] [111111]
.
  [5] [4] [22]
  [1] [2] [11]
.
  [3]
  [2]
  [1]
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[Length[Select[Union[Tuples[IntegerPartitions[#,{k}]&/@ptn]],And@@(OrderedQ[#,Greater]&/@Transpose[#])&]],{ptn,IntegerPartitions[n]},{k,Min[ptn]}],{n,30}]

A323439 Number of ways to fill a Young diagram with the prime indices of n such that all rows and columns are strictly increasing.

Original entry on oeis.org

1, 1, 1, 0, 1, 2, 1, 0, 0, 2, 1, 0, 1, 2, 2, 0, 1, 1, 1, 0, 2, 2, 1, 0, 0, 2, 0, 0, 1, 4, 1, 0, 2, 2, 2, 0, 1, 2, 2, 0, 1, 4, 1, 0, 0, 2, 1, 0, 0, 1, 2, 0, 1, 0, 2, 0, 2, 2, 1, 0, 1, 2, 0, 0, 2, 4, 1, 0, 2, 4, 1, 0, 1, 2, 1, 0, 2, 4, 1, 0, 0, 2, 1, 0, 2, 2, 2
Offset: 1

Views

Author

Gus Wiseman, Jan 16 2019

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The a(630) = 8 tableaux:
  123   124   1234
  24    23    2
.
  12   12   123   124
  23   24   2     2
  4    3    4     3
.
  12
  2
  3
  4
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    ptnplane[n_]:=Union[Map[primeMS,Join@@Permutations/@facs[n],{2}]];
    Table[Length[Select[ptnplane[y],And[And@@Less@@@#,And@@(Less@@@DeleteCases[Transpose[PadRight[#]],0,{2}]),And@@(LessEqual@@@Transpose[PadRight[#]/.(0->Infinity)])]&]],{y,100}]

Formula

Sum_{A056239(n) = k} a(k) = A323451(n).

A323431 Number of strict rectangular plane partitions of n.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 7, 9, 11, 15, 21, 25, 33, 41, 53, 65, 81, 97, 121, 143, 173, 215, 255, 305, 367, 441, 527, 637, 751, 899, 1067, 1269, 1491, 1775, 2071, 2439, 2875, 3357, 3911, 4577, 5309, 6177, 7171, 8305, 9609, 11151
Offset: 0

Views

Author

Gus Wiseman, Jan 16 2019

Keywords

Comments

Number of ways to fill a (not necessarily square) matrix with the parts of a strict integer partition of n so that the rows and columns are strictly decreasing.

Examples

			The a(10) = 21 matrices:
  [10] [9 1] [8 2] [7 3] [7 2 1] [6 4] [6 3 1] [5 4 1] [5 3 2] [4 3 2 1]
.
  [9] [8] [7] [6] [4 2] [4 3]
  [1] [2] [3] [4] [3 1] [2 1]
.
  [7] [6] [5] [5]
  [2] [3] [4] [3]
  [1] [1] [1] [2]
.
  [4]
  [3]
  [2]
  [1]
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[Length[Select[Union[Sort/@Tuples[IntegerPartitions[#,{k}]&/@ptn]],UnsameQ@@Join@@#&&And@@OrderedQ/@Transpose[#]&]],{ptn,IntegerPartitions[n]},{k,Min[ptn]}],{n,30}]

A323582 Number of generalized Young tableaux with constant rows, weakly increasing columns, and entries summing to n.

Original entry on oeis.org

1, 1, 3, 5, 11, 16, 33, 47, 85, 126, 208, 299, 486, 685, 1050, 1496, 2221, 3097, 4523, 6239, 8901, 12219, 17093, 23202, 32120, 43200, 58899, 78761, 106210, 140786, 188192, 247689, 327965, 429183, 563592, 732730, 955851, 1235370, 1600205, 2057743, 2649254
Offset: 0

Views

Author

Gus Wiseman, Jan 19 2019

Keywords

Comments

For strictly increasing columns, see A100883.

Examples

			The a(5) = 16 tableaux:
  5   1 1 1 1 1
.
  1   2    1 1   1 1 1   1 1 1   1 1 1 1
  4   3    3     2       1 1     1
.
  1   1    1 1   1 1     1 1 1
  1   2    1     1 1     1
  3   2    2     1       1
.
  1   1 1
  1   1
  1   1
  2   1
.
  1
  1
  1
  1
  1
		

Crossrefs

Programs

  • Mathematica
    comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
    Table[Sum[Length[Select[comps[ptn],And@@SameQ@@@#&&GreaterEqual@@Length/@#&]],{ptn,Sort/@IntegerPartitions[n]}],{n,10}]

Extensions

a(21)-a(40) from Seiichi Manyama, Aug 20 2020

A323450 Number of ways to fill a Young diagram with positive integers summing to n such that all rows and columns are weakly increasing.

Original entry on oeis.org

1, 1, 3, 6, 14, 26, 56, 103, 203, 374, 702, 1262, 2306, 4078, 7242, 12628, 21988, 37756, 64682, 109606, 185082, 309958, 516932, 856221, 1412461, 2316416, 3783552
Offset: 0

Views

Author

Gus Wiseman, Jan 16 2019

Keywords

Comments

A generalized Young tableau of shape y is an array obtained by replacing the dots in the Ferrers diagram of y with positive integers.

Examples

			The a(4) = 14 generalized Young tableaux:
  4   1 3   2 2   1 1 2   1 1 1 1
.
  1   2   1 1   1 2   1 1   1 1 1
  3   2   2     1     1 1   1
.
  1   1 1
  1   1
  2   1
.
  1
  1
  1
  1
The a(5) = 26 generalized Young tableaux:
  5   1 4   2 3   1 1 3   1 2 2   1 1 1 2   1 1 1 1 1
.
  1   2   1 1   1 3   1 2   1 1   1 1 1   1 1 2   1 1 1   1 1 1 1
  4   3   3     1     2     1 2   2       1       1 1     1
.
  1   1   1 1   1 2   1 1   1 1 1
  1   2   1     1     1 1   1
  3   2   2     1     1     1
.
  1   1 1
  1   1
  1   1
  2   1
.
  1
  1
  1
  1
  1
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    ptnplane[n_]:=Union[Map[primeMS,Join@@Permutations/@facs[n],{2}]];
    Table[Sum[Length[Select[ptnplane[Times@@Prime/@y],And@@(LessEqual@@@Transpose[PadRight[#]/.(0->Infinity)])&]],{y,IntegerPartitions[n]}],{n,10}]

Extensions

a(16)-a(26) from Seiichi Manyama, Aug 19 2020

A323435 Number of rectangular plane partitions of n with no repeated rows or columns.

Original entry on oeis.org

1, 1, 1, 3, 3, 6, 8, 13, 15, 28, 33, 52, 69, 101, 133, 202, 256, 369, 506, 688, 935, 1295, 1736, 2355, 3184, 4284, 5745, 7722, 10281, 13691, 18316, 24168, 32058, 42389, 55915, 73542, 96753, 126709, 166079, 217017, 283258
Offset: 0

Views

Author

Gus Wiseman, Jan 15 2019

Keywords

Comments

Number of ways to fill a (not necessarily square) matrix with the parts of an integer partition of n so that the rows and columns are weakly decreasing and with no repeated rows or columns.

Examples

			The a(7) = 13 plane partitions:
  [7] [4 3] [5 2] [6 1] [4 2 1]
.
  [6] [5] [3 2] [4 1] [4] [2 2] [3 1]
  [1] [2] [1 1] [1 1] [3] [2 1] [2 1]
.
  [4]
  [2]
  [1]
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[Length[Select[Union[Tuples[IntegerPartitions[#,{k}]&/@ptn]],And[UnsameQ@@#,UnsameQ@@Transpose[#],And@@(OrderedQ[#,GreaterEqual]&/@Transpose[#])]&]],{ptn,IntegerPartitions[n]},{k,Min[ptn]}],{n,20}]
Showing 1-10 of 17 results. Next