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.

Previous Showing 11-17 of 17 results.

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

Cf. A000085, A000219, A003293, A006951, A100883, A138178, A279784, A299968, A323432, A323436, A323437, A323438, A323450.

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

Links

Crossrefs

Cf. A000085, A000219, A003293, A053529, A114736, A138178, A296188, A299968.
Cf. A323436, A323437, A323438, A323439, A323451.

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

Cf. A000219, A003293, A047966, A101509, A114736, A117433, A299968, A319066.
Cf. A323301, A323307, A323429, A323430, A323431, A323432, A323436, A323438.

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}]

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

Original entry on oeis.org

1, 1, 1, 3, 3, 6, 9, 12, 19, 27, 39, 54, 79, 107, 150, 209, 282, 387, 525, 707, 949, 1272, 1688, 2244, 2968, 3902, 5125, 6712, 8752, 11383, 14780, 19109, 24671, 31768, 40791, 52280, 66860, 85296, 108621, 138054, 175085, 221676, 280161, 353414, 445098, 559661
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(8) = 19 generalized Young tableaux:
  8   1 7   2 6   3 5   1 2 5   1 3 4
.
  1   2   3   1 2   1 5   1 3   1 4   2 3   1 2   1 2 3
  7   6   5   5     2     4     3     3     2 3   2
.
  1   1   1 2
  2   3   2
  5   4   3

Links

Crossrefs

Cf. A000085, A000219, A003293, A114736, A117433, A138178, A299968.
Cf. A323430, A323436, A323437, A323439, A323450.

Programs

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

Extensions

a(21)-a(45) from Seiichi Manyama, Aug 19 2020

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

Original entry on oeis.org

1, 1, 3, 6, 13, 23, 45, 76, 136, 225, 381, 611, 1001, 1570, 2489, 3842, 5948, 9022, 13714, 20501, 30649, 45262, 66721, 97393, 141888, 204993
Offset: 0

Views

Author

Gus Wiseman, Jan 18 2019

Keywords

Examples

			The a(5) = 23 tableaux:
  5   41   32   311   221   2111   11111
.
  1   2   11   21   11   111   111   1111
  4   3   3    2    21   2     11    1
.
  1   1   11   11   111
  1   2   1    11   1
  3   2   2    1    1
.
  1   11
  1   1
  1   1
  2   1
.
  1
  1
  1
  1
  1

Links

Crossrefs

Cf. A000085, A000219, A003293, A114736, A138178, A299968, A323436, A323437, A323438, A323439, A323581.

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]]}]];
Table[Sum[Length[Select[Reverse/@Sort/@Map[primeMS,facs[y],{2}],And@@(GreaterEqual@@@Transpose[PadRight[#]])&]],{y,Times@@Prime/@#&/@IntegerPartitions[n]}],{n,10}]

A323581 Number of ways to fill a Young diagram with positive integers summing to n such that the rows are strictly increasing and the columns are strictly decreasing.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 8, 10, 14, 19, 28, 34, 48, 60, 80, 106, 134, 171, 222, 279, 354, 452, 562, 706, 884, 1100
Offset: 0

Views

Author

Gus Wiseman, Jan 18 2019

Keywords

Examples

			The a(8) = 14 tableaux:
  8   1 7   2 6   3 5   1 2 5   1 3 4
.
  7   6   5   2 5   3 4   2 3
  1   2   3   1     1     1 2
.
  5   4
  2   3
  1   1

Links

Crossrefs

Cf. A000085, A000219, A003293, A114736, A138178, A299968, A323436, A323437, A323438, A323439, A323580.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sqfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqfacs[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Table[Sum[Length[Select[Reverse/@Sort/@Map[primeMS,sqfacs[y],{2}],And@@Greater@@@DeleteCases[Transpose[PadRight[#]],0,{2}]&]],{y,Times@@Prime/@#&/@IntegerPartitions[n]}],{n,10}]

A323586 Number of plane partitions of n with no repeated rows (or, equivalently, no repeated columns).

Original entry on oeis.org

1, 1, 2, 5, 8, 16, 30, 53, 89, 158, 265, 443, 735, 1197
Offset: 0

Views

Author

Gus Wiseman, Jan 20 2019

Keywords

Examples

			The a(4) = 8 plane partitions with no repeated rows:
  4   31   22   211   1111
.
  3   21   111
  1   1    1
The a(6) = 30 plane partitions with no repeated columns:
  6   51   42   321
.
  5   4   41   3   31   32   31   22   21   221   211
  1   2   1    3   2    1    11   2    21   1     11
.
  4   3   31   2   21   22   21   111
  1   2   1    2   2    1    11   11
  1   1   1    2   1    1    1    1
.
  3   2   21   11
  1   2   1    11
  1   1   1    1
  1   1   1    1
.
  2   11
  1   1
  1   1
  1   1
  1   1
.
  1
  1
  1
  1
  1
  1

Crossrefs

Cf. A000219, A003293 (strict rows), A114736 (strict rows and columns), A117433 (distinct entries), A299968, A319646 (no repeated rows or columns), A323429, A323436 (plane partitions of type), A323580, A323587.

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[Sum[Length[Select[ptnplane[Times@@Prime/@y],And[UnsameQ@@#,And@@GreaterEqual@@@#,And@@(GreaterEqual@@@Transpose[PadRight[#]])]&]],{y,IntegerPartitions[n]}],{n,10}]
Previous Showing 11-17 of 17 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.