A323301 -id:A323301 - cp's OEIS frontend

A101509 Binomial transform of tau(n) (see A000005).

1, 3, 7, 16, 35, 75, 159, 334, 696, 1442, 2976, 6123, 12562, 25706, 52492, 107014, 217877, 443061, 899957, 1826078, 3701783, 7498261, 15178255, 30706320, 62085915, 125465715, 253415981, 511608490, 1032427637, 2082680887, 4199956101, 8467124805, 17064784905, 34382825363, 69256687719, 139465867773

Offset: 0

Paul Barry, Dec 05 2004

Row sums of A101508.

Also: Number of matrices with positive integer coefficients such that the sum of all entries equals n+1, cf. link "Partitions and A101509". - M. F. Hasler, Jan 14 2009

			From _Gus Wiseman_, Jan 16 2019: (Start)
The a(3) = 16 ways to arrange the parts of an integer partition of 4 into a matrix:
  [4] [1 3] [3 1] [2 2] [1 1 2] [1 2 1] [2 1 1] [1 1 1 1]
.
  [1] [3] [2] [1 1]
  [3] [1] [2] [1 1]
.
  [1] [1] [2]
  [1] [2] [1]
  [2] [1] [1]
.
  [1]
  [1]
  [1]
  [1]
(End)

M. F. Hasler, Table of n, a(n) for n = 0..500
L. Manor, M. F. Hasler, Partitions and A101509. SeqFan list, Jan 14 2009
N. J. A. Sloane, Transforms

Cf. A000005 (tau), A101508, A160399.

Cf. A000219, A047966, A053529, A319066, A323300, A323301, A323307, A323429.

bintr:= proc(p) proc(n) add(p(k) *binomial(n, k), k=0..n) end end:
a:= bintr(n-> numtheory[tau](n+1)):
seq(a(n), n=0..40);  # Alois P. Heinz, Jan 30 2011

a[n_] := Sum[DivisorSigma[0, k+1]*Binomial[n, k], {k, 0, n}]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Feb 18 2017 *)

A101509(n) = sum( k=0,n, numdiv(k+1)*binomial(n,k)) \\ M. F. Hasler, Jan 14 2009

a(n) = Sum_{k=0..n, Sum_{i=0..n, if(mod(i+1, k+1)=0, binomial(n, i), 0)}}.
G.f.: 1/x * Sum_{n>=1} z^n/(1-z^n) (Lambert series) where z=x/(1-x). - Joerg Arndt, Jan 30 2011
a(n) ~ 2^n * (log(n/2) + 2*gamma), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, Mar 07 2020

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

Gus Wiseman, Jan 15 2019

nonn

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.

			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]

Cf. A000219, A003293, A047966, A101509, A114736, A117433, A299968, A319066.

Cf. A323301, A323307, A323430, A323431, A323432, A323435, A323436, A323438.

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

A323295 Number of ways to fill a matrix with the first n positive integers.

Original entry on oeis.org

1, 1, 4, 12, 72, 240, 2880, 10080, 161280, 1088640, 14515200, 79833600, 2874009600, 12454041600, 348713164800, 5230697472000, 104613949440000, 711374856192000, 38414242234368000, 243290200817664000, 14597412049059840000, 204363768686837760000

Offset: 0

Gus Wiseman, Jan 12 2019

nonn

			The a(4) = 72 matrices consist of:
  24 row/column permutations of [1 2 3 4]
+
  4 row/column permutations of [1 2]
                               [3 4]
+
  4 row/column permutations of [1 2]
                               [4 3]
+
  4 row/column permutations of [1 3]
                               [2 4]
+
  4 row/column permutations of [1 3]
                               [4 2]
+
  4 row/column permutations of [1 4]
                               [2 3]
+
  4 row/column permutations of [1 4]
                               [3 2]
+
  24 row/column permutations of [1]
                                [2]
                                [3]
                                [4]

Cf. A000005, A000142, A038041, A053529, A057625, A061095, A120733, A121860.

Cf. A323300, A323301, A323307, A323351.

Join[{1}, Table[DivisorSigma[0, n]*n!, {n, 30}]]

a(n) = if (n==0, 1, numdiv(n)*n!); \\ Michel Marcus, Jan 15 2019

a(n) = A000005(n) * n! for n > 0, a(0) = 1.

E.g.f.: 1 + Sum_{k>=1} x^k/(1 - x^k). - Ilya Gutkovskiy, Sep 13 2019

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

Gus Wiseman, Jan 15 2019

nonn

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.

			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]

Cf. A000219, A003293, A047966, A101509, A114736, A117433, A299968, A319066.

Cf. A323301, A323307, A323429, A323431, A323432, A323435, A323436, A323438.

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

Gus Wiseman, Jan 16 2019

nonn

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.

			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]

Cf. A000219, A003293, A047966, A089299, A101509, A114736, A117433, A299968, A319066.

Cf. A323301, A323307, A323429, A323430, A323431, A323435, A323436, A323438.

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

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

Gus Wiseman, Jan 16 2019

nonn

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.

			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]

Cf. A000219, A003293, A047966, A089299 A101509, A114736, A117433, A299968, A319066.

Cf. A323301, A323307, A323429, A323430, A323432, A323435, A323436, A323438.

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

A323434 Number of ways to split a strict integer partition of n into consecutive subsequences of equal length.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 7, 9, 11, 15, 20, 24, 31, 38, 48, 59, 72, 86, 106, 125, 150, 180, 213, 250, 296, 347, 407, 477, 555, 645, 751, 869, 1003, 1161, 1334, 1534, 1763, 2018, 2306, 2637, 3002, 3418, 3886, 4409, 4994, 5659, 6390, 7214, 8135, 9160, 10300, 11580, 12990

Offset: 0

Gus Wiseman, Jan 15 2019

nonn

			The a(10) = 20 split partitions:
  [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 3]
  [1] [2] [3] [4] [2 1]
.
  [7] [6] [5] [5]
  [2] [3] [4] [3]
  [1] [1] [1] [2]
.
  [4]
  [3]
  [2]
  [1]

Alois P. Heinz, Table of n, a(n) for n = 0..7000

Cf. A000005, A000219, A101509, A117433, A316245, A319066, A319794, A323295, A323301, A323431, A323433.

b:= proc(n, i, t) option remember; `if`(n>i*(i+1)/2, 0,
      `if`(n=0, numtheory[tau](t), b(n, i-1, t)+
         b(n-i, min(n-i, i-1), t+1)))
    end:
a:= n-> `if`(n=0, 1, b(n$2, 0)):
seq(a(n), n=0..60);  # Alois P. Heinz, Jan 15 2019

Table[Sum[Length[Divisors[Length[ptn]]],{ptn,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,30}]
(* Second program: *)
b[n_, i_, t_] := b[n, i, t] = If[n>i(i+1)/2, 0,
     If[n == 0, DivisorSigma[0, t], b[n, i-1, t] +
     b[n-i, Min[n-i, i-1], t+1]]];
a[n_] := If[n == 0, 1, b[n, n, 0]];
a /@ Range[0, 60] (* Jean-François Alcover, May 18 2021, after Alois P. Heinz *)

a(n) = Sum_y A000005(k), where the sum is over all strict integer partitions of n and k is the number of parts.

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

Gus Wiseman, Jan 15 2019

nonn

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.

			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]

Cf. A000219, A003293, A047966, A101509, A114736, A117433, A299968, A319066.

Cf. A323301, A323307, A323429, A323430, A323431, A323432, A323436, A323438.

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

cp's OEIS Frontend

A101509 Binomial transform of tau(n) (see A000005).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A323429 Number of rectangular plane partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A323295 Number of ways to fill a matrix with the first n positive integers.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A323432 Number of semistandard rectangular plane partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A323431 Number of strict rectangular plane partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A323434 Number of ways to split a strict integer partition of n into consecutive subsequences of equal length.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica