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 51-60 of 78 results. Next

A381994 Number of integer partitions of n that cannot be partitioned into sets with equal sums.

Original entry on oeis.org

0, 0, 0, 0, 1, 3, 3, 9, 12, 17, 27, 43, 46, 82, 103, 133, 181, 258, 295
Offset: 0

Views

Author

Gus Wiseman, Mar 17 2025

Keywords

Examples

			For y = (3,3,1,1) we have {{1,3},{1,3}}, so y is not counted under a(8).
For y = (3,2,2,1), although we have {{1,3},{2,2}}, the block {2,2} is not a set, so y is counted under a(8).
The a(4) = 1 through a(8) = 12 partitions:
  (2,1,1)  (2,2,1)    (4,1,1)      (3,2,2)        (3,3,2)
           (3,1,1)    (3,1,1,1)    (3,3,1)        (4,2,2)
           (2,1,1,1)  (2,1,1,1,1)  (5,1,1)        (6,1,1)
                                   (2,2,2,1)      (3,2,2,1)
                                   (3,2,1,1)      (4,2,1,1)
                                   (4,1,1,1)      (5,1,1,1)
                                   (2,2,1,1,1)    (2,2,2,1,1)
                                   (3,1,1,1,1)    (3,2,1,1,1)
                                   (2,1,1,1,1,1)  (4,1,1,1,1)
                                                  (2,2,1,1,1,1)
                                                  (3,1,1,1,1,1)
                                                  (2,1,1,1,1,1,1)
		

Crossrefs

More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Twice-partitions of this type are counted by A279788.
Interchanging "constant" with "strict" gives A381717, see A381635, A381636, A381991.
Normal multiset partitions of this type are counted by A381718, see A279785.
These partitions are ranked by A381719, zeros of A382080.
For distinct instead of equal block-sums we have A381990, ranked by A381806.
For constant instead of strict blocks we have A381993.
A000041 counts integer partitions, strict A000009.
A050320 counts factorizations into squarefree numbers, see A381078, A381454.
A050326 counts factorizations into distinct squarefree numbers.
A265947 counts refinement-ordered pairs of integer partitions.
A381633 counts set systems with distinct sums, see A381634, A293243.

Programs

  • Mathematica
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]& /@ sps[Range[Length[set]]]];
    Table[Length[Select[IntegerPartitions[n], Length[Select[mps[#], And@@UnsameQ@@@#&&SameQ@@Total/@#&]]==0&]],{n,0,10}]

A382202 Number of normal multisets of size n that cannot be partitioned into a set of sets with distinct sums.

Original entry on oeis.org

0, 0, 1, 1, 3, 5, 9, 16, 27, 48, 78, 133
Offset: 0

Views

Author

Gus Wiseman, Mar 29 2025

Keywords

Comments

First differs from A292432 at a(9) = 48, A292432(9) = 46.
We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The normal multiset m = {1,1,1,2,2} has 3 partitions into a set of sets:
  {{1},{1,2},{1,2}}
  {{1},{1},{2},{1,2}}
  {{1},{1},{1},{2},{2}}
but none of these has distinct block-sums, so m is counted under a(5).
The a(2) = 1 through a(6) = 9 normal multisets:
  {1,1}  {1,1,1}  {1,1,1,1}  {1,1,1,1,1}  {1,1,1,1,1,1}
                  {1,1,1,2}  {1,1,1,1,2}  {1,1,1,1,1,2}
                  {1,2,2,2}  {1,1,1,2,2}  {1,1,1,1,2,2}
                             {1,1,2,2,2}  {1,1,1,1,2,3}
                             {1,2,2,2,2}  {1,1,1,2,2,2}
                                          {1,1,2,2,2,2}
                                          {1,2,2,2,2,2}
                                          {1,2,2,2,2,3}
                                          {1,2,3,3,3,3}
		

Crossrefs

Twice-partitions of this type are counted by A279785, without distinct sums A358914.
Without distinct sums we have A292432, complement A382214.
The strongly normal version without distinct sums is A292444, complement A381996.
Factorizations of this type are counted by A381633, without distinct sums A050326.
Normal multiset partitions of this type are counted by A381718, without distinct sums A116539.
For integer partitions the complement is A381990, ranks A381806, without distinct sums A382078, ranks A293243.
For integer partitions we have A381992, ranks A382075, without distinct sums A382077, ranks A382200.
The complement is counted by A382216.
The strongly normal version is A382430, complement A382460.
The case of a unique choice is counted by A382459, without distinct sums A382458.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count factorizations, strict A045778.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.

Programs

  • Mathematica
    allnorm[n_Integer]:=Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
    Table[Length[Select[allnorm[n],Length[Select[mps[#],And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]==0&]],{n,0,5}]

A382430 Number of non-isomorphic finite multisets of size n that cannot be partitioned into sets with distinct sums.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 5, 6, 9, 12, 17, 22, 32
Offset: 0

Views

Author

Gus Wiseman, Apr 01 2025

Keywords

Comments

We call a multiset non-isomorphic iff it covers an initial interval of positive integers with weakly decreasing multiplicities. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The a(2) = 1 through a(7) = 6 multisets:
  {1,1}  {1,1,1}  {1,1,1,1}  {1,1,1,1,1}  {1,1,1,1,1,1}  {1,1,1,1,1,1,1}
                  {1,1,1,2}  {1,1,1,1,2}  {1,1,1,1,1,2}  {1,1,1,1,1,1,2}
                             {1,1,1,2,2}  {1,1,1,1,2,2}  {1,1,1,1,1,2,2}
                                          {1,1,1,1,2,3}  {1,1,1,1,1,2,3}
                                          {1,1,1,2,2,2}  {1,1,1,1,2,2,2}
                                                         {1,1,1,1,2,2,3}
		

Crossrefs

Twice-partitions of this type are counted by A279785, strict A358914.
The strict version is A292444.
Factorizations of this type are counted by A381633, strict A050326.
Normal multiset partitions of this type are counted by A381718, strict A116539.
For integer partitions we have A381990, ranks A381806, complement A381992, ranks A382075.
The strict version for integer partitions is A382078, ranks A293243, complement A382077, ranks A382200.
The normal version is A382202, complement A382216, strict A292432, complement A382214.
The complement is counted by A382523, strict A381996.

Programs

  • Mathematica
    strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
    Table[Length[Select[strnorm[n],Select[mps[#],UnsameQ@@Total/@#&&And@@UnsameQ@@@#&]=={}&]],{n,0,5}]

A300440 Number of odd strict trees of weight n (all outdegrees are odd).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 3, 5, 7, 11, 18, 27, 45, 75, 125, 207, 353, 591, 1013, 1731, 2984, 5122, 8905, 15369, 26839, 46732, 81850, 142932, 251693, 441062, 778730, 1370591, 2425823, 4281620, 7601359, 13447298, 23919512, 42444497, 75632126, 134454505, 240100289
Offset: 1

Views

Author

Gus Wiseman, Mar 05 2018

Keywords

Comments

An odd strict tree of weight n is either a single node of weight n, or a finite odd-length sequence of at least 3 odd strict trees with strictly decreasing weights summing to n.

Examples

			The a(10) = 7 odd strict trees: 10, (721), (631), (541), (532), ((421)21), ((321)31).
		

Crossrefs

Programs

  • Mathematica
    g[n_]:=g[n]=1+Sum[Times@@g/@y,{y,Select[IntegerPartitions[n],Length[#]>1&&OddQ[Length[#]]&&UnsameQ@@#&]}];
    Array[g,20]
  • PARI
    seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 + polcoef(prod(k=1, n-1, 1 + v[k]*x^k + O(x*x^n)) - prod(k=1, n-1, 1 - v[k]*x^k + O(x*x^n)), n)/2); v} \\ Andrew Howroyd, Aug 25 2018

A330461 Array read by antidiagonals where A(n,k) is the number of multiset partitions with k levels that are strict at all levels and have total sum n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 3, 4, 4, 1, 1, 1, 1, 4, 7, 7, 5, 1, 1, 1, 1, 5, 12, 14, 11, 6, 1, 1, 1, 1, 6, 19, 29, 25, 16, 7, 1, 1, 1, 1, 8, 30, 57, 60, 41, 22, 8, 1, 1, 1, 1, 10, 49, 110, 141, 111, 63, 29, 9, 1, 1, 1
Offset: 0

Views

Author

Gus Wiseman, Dec 18 2019

Keywords

Examples

			Array begins:
       k=0 k=1 k=2 k=3 k=4 k=5 k=6
      -----------------------------
  n=0:  1   1   1   1   1   1   1
  n=1:  1   1   1   1   1   1   1
  n=2:  1   1   1   1   1   1   1
  n=3:  1   2   3   4   5   6   7
  n=4:  1   2   4   7  11  16  22
  n=5:  1   3   7  14  25  41  63
  n=6:  1   4  12  29  60 111 189
For example, the A(5,3) = 14 partitions are:
  {{5}}      {{1}}{{4}}
  {{14}}     {{2}}{{3}}
  {{23}}     {{1}}{{13}}
  {{1}{4}}   {{2}}{{12}}
  {{2}{3}}   {{1}}{{1}{3}}
  {{1}{13}}  {{2}}{{1}{2}}
  {{2}{12}}  {{1}}{{1}{12}}
		

Crossrefs

Columns are A000012 (k = 0), A000009 (k = 1), A050342 (k = 2), A050343 (k = 3), A050344 (k = 4).
The non-strict version is A290353.

Programs

  • Mathematica
    spl[n_,0]:={n};
    spl[n_,k_]:=Select[Join@@Table[Union[Sort/@Tuples[spl[#,k-1]&/@ptn]],{ptn,IntegerPartitions[n]}],UnsameQ@@#&];
    Table[Length[spl[n-k,k]],{n,0,10},{k,0,n}]
  • PARI
    WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v,n,(-1)^(n-1)/n))))-1,-#v)}
    M(n, k=n)={my(L=List(), v=vector(n,i,1)); listput(L, concat([1], v)); for(j=1, k, v=WeighT(v); listput(L, concat([1], v))); Mat(Col(L))~}
    { my(A=M(7)); for(i=1, #A, print(A[i,])) } \\ Andrew Howroyd, Dec 31 2019

Formula

Column k is the k-th weigh transform of the all-ones sequence. The weigh transform of a sequence b has generating function Product_{i > 0} (1 + x^i)^b(i).

A336142 Number of ways to choose a strict composition of each part of a strict integer partition of n.

Original entry on oeis.org

1, 1, 1, 4, 6, 11, 22, 41, 72, 142, 260, 454, 769, 1416, 2472, 4465, 7708, 13314, 23630, 40406, 68196, 119646, 203237, 343242, 586508, 993764, 1677187, 2824072, 4753066, 7934268, 13355658, 22229194, 36945828, 61555136, 102019156, 168474033, 279181966
Offset: 0

Views

Author

Gus Wiseman, Jul 18 2020

Keywords

Comments

A strict composition of n is a finite sequence of distinct positive integers summing to n.

Examples

			The a(1) = 1 through a(5) = 11 ways:
  (1)  (2)  (3)      (4)        (5)
            (1,2)    (1,3)      (1,4)
            (2,1)    (3,1)      (2,3)
            (2),(1)  (3),(1)    (3,2)
                     (1,2),(1)  (4,1)
                     (2,1),(1)  (3),(2)
                                (4),(1)
                                (1,2),(2)
                                (1,3),(1)
                                (2,1),(2)
                                (3,1),(1)
		

Crossrefs

Multiset partitions of partitions are A001970.
Strict compositions are counted by A032020, A072574, and A072575.
Splittings of partitions are A323583.
Splittings of partitions with distinct sums are A336131.
Partitions:
- Partitions of each part of a partition are A063834.
- Compositions of each part of a partition are A075900.
- Strict partitions of each part of a partition are A270995.
- Strict compositions of each part of a partition are A336141.
Strict partitions:
- Partitions of each part of a strict partition are A271619.
- Compositions of each part of a strict partition are A304961.
- Strict partitions of each part of a strict partition are A279785.
- Strict compositions of each part of a strict partition are A336142.
Compositions:
- Partitions of each part of a composition are A055887.
- Compositions of each part of a composition are A133494.
- Strict partitions of each part of a composition are A304969.
- Strict compositions of each part of a composition are A307068.
Strict compositions:
- Partitions of each part of a strict composition are A336342.
- Compositions of each part of a strict composition are A336127.
- Strict partitions of each part of a strict composition are A336343.
- Strict compositions of each part of a strict composition are A336139.

Programs

  • Maple
    b:= proc(n, i, p) option remember; `if`(i*(i+1)/2 g(n$2):
    seq(a(n), n=0..38);  # Alois P. Heinz, Jul 31 2020
  • Mathematica
    strptn[n_]:=Select[IntegerPartitions[n],UnsameQ@@#&];
    Table[Length[Join@@Table[Tuples[Join@@Permutations/@strptn[#]&/@ctn],{ctn,strptn[n]}]],{n,0,20}]
    (* Second program: *)
    b[n_, i_, p_] := b[n, i, p] = If[i(i+1)/2 < n, 0,
         If[n == 0, p!, b[n, i-1, p] + b[n-i, Min[n-i, i-1], p+1]]];
    g[n_, i_] := g[n, i] = If[i(i+1)/2 < n, 0,
         If[n == 0, 1, g[n, i-1] + b[i, i, 0]*g[n-i, Min[n-i, i-1]]]];
    a[n_] := g[n, n];
    a /@ Range[0, 38] (* Jean-François Alcover, May 20 2021, after Alois P. Heinz *)

Formula

G.f.: Product_{k >= 1} (1 + A032020(k)*x^k).

A358823 Number of odd-length twice-partitions of n into partitions with all odd parts.

Original entry on oeis.org

0, 1, 1, 3, 3, 7, 10, 20, 29, 58, 83, 150, 230, 399, 605, 1037, 1545, 2547, 3879, 6241, 9437, 15085, 22622, 35493, 53438, 82943, 124157, 191267, 284997, 434634, 647437, 979293, 1452182, 2185599, 3228435, 4826596, 7112683, 10575699, 15530404, 22990800, 33651222
Offset: 0

Views

Author

Gus Wiseman, Dec 03 2022

Keywords

Comments

A twice-partition of n is a sequence of integer partitions, one of each part of an integer partition of n.
Also the number of odd-length twice-partitions of n into strict partitions.

Examples

			The a(1) = 1 through a(6) = 10 twice-partitions with all odd parts:
  (1)  (11)  (3)        (31)        (5)              (33)
             (111)      (1111)      (311)            (51)
             (1)(1)(1)  (11)(1)(1)  (11111)          (3111)
                                    (3)(1)(1)        (111111)
                                    (11)(11)(1)      (3)(11)(1)
                                    (111)(1)(1)      (31)(1)(1)
                                    (1)(1)(1)(1)(1)  (11)(11)(11)
                                                     (111)(11)(1)
                                                     (1111)(1)(1)
                                                     (11)(1)(1)(1)(1)
The a(1) = 1 through a(6) = 10 twice-partitions into strict partitions:
  (1)  (2)  (3)        (4)        (5)              (6)
            (21)       (31)       (32)             (42)
            (1)(1)(1)  (2)(1)(1)  (41)             (51)
                                  (2)(2)(1)        (321)
                                  (3)(1)(1)        (2)(2)(2)
                                  (21)(1)(1)       (3)(2)(1)
                                  (1)(1)(1)(1)(1)  (4)(1)(1)
                                                   (21)(2)(1)
                                                   (31)(1)(1)
                                                   (2)(1)(1)(1)(1)
		

Crossrefs

This is the odd-length case of A270995.
Requiring odd sums also gives A279374 aerated.
This is the case of A358824 with all odd parts.
A000009 counts partitions into odd parts.
A027193 counts partitions of odd length.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A078408 counts odd-length partitions into odd parts.
A300301 aerated counts twice-partitions with odd sums and parts.
A358334 counts twice-partitions into odd-length partitions.

Programs

  • Mathematica
    twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
    Table[Length[Select[twiptn[n],OddQ[Length[#]]&&OddQ[Times@@Flatten[#]]&]],{n,0,10}]
  • PARI
    R(u,y) = {1/prod(k=1, #u, 1 - u[k]*y*x^k + O(x*x^#u))}
    seq(n) = {my(u=Vec(eta(x^2 + O(x*x^n))/eta(x + O(x*x^n)) - 1)); Vec(R(u, 1) - R(u, -1), -(n+1))/2} \\ Andrew Howroyd, Dec 31 2022

Formula

G.f.: ((1/Product_{k>=1} (1-A000009(k)*x^k)) - (1/Product_{k>=1} (1+A000009(k)*x^k)))/2. - Andrew Howroyd, Dec 31 2022

Extensions

Terms a(26) and beyond from Andrew Howroyd, Dec 31 2022

A382458 Number of normal multisets of size n that can be partitioned into a set of sets in exactly one way.

Original entry on oeis.org

1, 1, 0, 2, 1, 3, 0, 7, 3, 11, 18, 9
Offset: 0

Views

Author

Gus Wiseman, Mar 30 2025

Keywords

Comments

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The normal multiset {1,2,2,2,2,3,3,4} has three multiset partitions into a set of sets:
  {{2},{1,2},{2,3},{2,3,4}}
  {{2},{2,3},{2,4},{1,2,3}}
  {{2},{3},{1,2},{2,3},{2,4}}
so is not counted under a(8).
The a(1) = 1 through a(7) = 7 normal multisets:
  {1}  .  {1,1,2}  {1,1,2,2}  {1,1,1,2,3}  .  {1,1,1,1,2,3,4}
          {1,2,2}             {1,2,2,2,3}     {1,1,1,2,2,2,3}
                              {1,2,3,3,3}     {1,1,1,2,3,3,3}
                                              {1,2,2,2,2,3,4}
                                              {1,2,2,2,3,3,3}
                                              {1,2,3,3,3,3,4}
                                              {1,2,3,4,4,4,4}
		

Crossrefs

For constant instead of strict blocks we have A000045.
Factorizations of this type are counted by A050326, with distinct sums A381633.
For the strong case see A292444, A382430, complement A381996, A382523.
MM-numbers of sets of sets are A302494, see A302478, A382201.
Twice-partitions into distinct sets are counted by A358914, with distinct sums A279785.
For integer partitions we have A382079 (A293511), with distinct sums A382460, (A381870).
With distinct sums we have A382459.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360.
Normal multiset partitions: A034691, A035310, A116539, A255906, A381718.
Set systems: A050342, A296120, A318361.

Programs

  • Mathematica
    allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]] /@ Subsets[Range[n-1]+1]];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]] /@ Cases[Subsets[set],{i,_}];
    mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]& /@ sps[Range[Length[mset]]]];
    Table[Length[Select[allnorm[n], Length[Select[mps[#], UnsameQ@@#&&And@@UnsameQ@@@#&]]==1&]], {n,0,5}]

A382459 Number of normal multisets of size n that can be partitioned into a set of sets with distinct sums in exactly one way.

Original entry on oeis.org

1, 1, 0, 2, 1, 3, 2, 7, 4, 10, 19
Offset: 0

Views

Author

Gus Wiseman, Apr 01 2025

Keywords

Comments

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The normal multiset {1,2,2,2,2,3,3,4} has only one multiset partition into a set of sets with distinct sums: {{2},{1,2},{2,3},{2,3,4}}, so is counted under a(8).
The a(1) = 1 through a(7) = 7 multisets:
  {1}  .  {112}  {1122}  {11123}  {111233}  {1111234}
          {122}          {12223}  {122233}  {1112223}
                         {12333}            {1112333}
                                            {1222234}
                                            {1222333}
                                            {1233334}
                                            {1234444}
		

Crossrefs

Twice-partitions of this type are counted by A279785, A270995, A358914.
Factorizations of this type are counted by A381633, A050320, A050326.
Normal multiset partitions of this type are A381718, A116540, A116539.
Multiset partitions of this type are ranked by A382201, A302478, A302494.
For at least one choice: A382216 (strict A382214), complement A382202 (strict A292432).
For the strong case see: A382430 (strict A292444), complement A382523 (strict A381996).
Without distinct sums we have A382458.
For integer partitions we have A382460, ranks A381870, strict A382079, ranks A293511.
Set multipartitions: A089259, A296119, A318360.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.

Programs

  • Mathematica
    allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
    Table[Length[Select[allnorm[n],Length[Select[mps[#],UnsameQ@@Total/@#&&And@@UnsameQ@@@#&]]==1&]],{n,0,5}]

A382523 Number of non-isomorphic finite multisets of size n that can be partitioned into sets with distinct sums.

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 9, 13, 18, 25, 34, 45
Offset: 0

Views

Author

Gus Wiseman, Apr 01 2025

Keywords

Comments

First differs from A381996 at a(12) = 45, A381996(12) = 47.
We call a multiset non-isomorphic iff it covers an initial interval of positive integers with weakly decreasing multiplicities. The size of a multiset is the number of elements, counting multiplicity.

Examples

			First differs from A381996 in not counting the following under a(12):
  {1,1,1,1,1,1,2,2,3,3,4,5}
  {1,1,1,1,2,2,2,2,3,3,3,3}
The a(1) = 1 through a(6) = 6 multisets:
  {1}  {1,2}  {1,1,2}  {1,1,2,2}  {1,1,1,2,3}  {1,1,1,2,2,3}
              {1,2,3}  {1,1,2,3}  {1,1,2,2,3}  {1,1,1,2,3,4}
                       {1,2,3,4}  {1,1,2,3,4}  {1,1,2,2,3,3}
                                  {1,2,3,4,5}  {1,1,2,2,3,4}
                                               {1,1,2,3,4,5}
                                               {1,2,3,4,5,6}
		

Crossrefs

Twice-partitions of this type are counted by A279785, strict A358914.
Factorizations of this type are counted by A381633, strict A050326.
Normal multiset partitions of this type are counted by A381718, strict A116539.
For integer partitions we have A381992, ranks A382075, complement A381990, ranks A381806.
The strict version is A381996.
The strict version for integer partitions is A382077, ranks A382200, complement A382078, ranks A293243.
The labeled version is A382216, complement A382202, strict A382214, complement A292432.
The complement is counted by A382430, strict A292444.

Programs

  • Mathematica
    strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
    sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
    mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
    Table[Length[Select[strnorm[n],Select[mps[#],UnsameQ@@Total/@#&&And@@UnsameQ@@@#&]!={}&]],{n,0,5}]
Previous Showing 51-60 of 78 results. Next