A381992 -id:A381992 - cp's OEIS frontend

A293243 Numbers that cannot be written as a product of distinct squarefree numbers.

4, 8, 9, 16, 24, 25, 27, 32, 40, 48, 49, 54, 56, 64, 72, 80, 81, 88, 96, 104, 108, 112, 121, 125, 128, 135, 136, 144, 152, 160, 162, 169, 176, 184, 189, 192, 200, 208, 216, 224, 232, 240, 243, 248, 250, 256, 272, 288, 289, 296, 297, 304, 320, 324, 328, 336

Offset: 1

Gus Wiseman, Oct 03 2017

nonn

First differs from A212164 at a(441).
Numbers n such that A050326(n) = 0. - Felix Fröhlich, Oct 04 2017
Includes A246547, and all numbers of the form p^a*q^b where p and q are primes, a >= 1 and b >= 3. - Robert Israel, Oct 10 2017
Also numbers whose prime indices cannot be partitioned into a set of sets. For example, the prime indices of 90 are {1,2,2,3}, and we have sets of sets: {{2},{1,2,3}}, {{1,2},{2,3}}, {{1},{2},{2,3}}, {{2},{3},{1,2}}, so 90 is not in the sequence. - Gus Wiseman, Apr 28 2025

			120 is not in the sequence because 120 = 2*6*10. 3600 is not in the sequence because 3600 = 2*6*10*30.

Robert Israel, Table of n, a(n) for n = 1..10000

These are the zeros of A050326.
Multiset partitions of this type (set of sets) are counted by A050342.
Twice-partitions of this type (set of sets) are counted by A279785, see also A358914.
Normal multisets of this type are counted by A292432, A292444, A381996, A382214.
The case of a unique choice is A293511, counted by A382079.
For distinct block-sums instead of blocks see A381806, A381990, A381992, A382075.
Partitions of this type are counted by A382078.
The complement is A382200, counted by A382077.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers.
A050345 counts factorizations partitioned into into distinct sets.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000720, A001222, A005117, A089259, A116539, A246547, A270995, A381441, A382201, A382216.

N:= 1000: # to get all terms <= N
A:= Vector(N):
A[1]:= 1:
for n from 2 to N do
  if numtheory:-issqrfree(n) then
      S:= [$1..N/n]; T:= n*S; A[T]:= A[T]+A[S]
    fi;
od:
select(t -> A[t]=0, [$1..N]); # Robert Israel, Oct 10 2017

nn=500;
sqfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqfacs[n/d],Min@@#>d&]],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Select[Range[nn],Length[sqfacs[#]]===0&]

A381806 Numbers that cannot be written as a product of squarefree numbers with distinct sums of prime indices.

Original entry on oeis.org

4, 8, 9, 16, 24, 25, 27, 32, 40, 48, 49, 54, 56, 64, 72, 80, 81, 88, 96, 104, 108, 112, 121, 125, 128, 135, 136, 144, 152, 160, 162, 169, 176, 184, 189, 192, 200, 208, 216, 224, 232, 240, 243, 248, 250, 256, 272, 288, 289, 296, 297, 304, 320, 324, 328, 336

Offset: 1

Gus Wiseman, Mar 12 2025

nonn

First differs from A212164 in having 3600.
First differs from A293243 in having 18000.
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.
Also numbers whose prime indices cannot be partitioned into a multiset of sets with distinct sums.

			There are 4 factorizations of 18000 into squarefree numbers:
  (2*2*3*5*10*30)
  (2*2*5*6*10*15)
  (2*2*10*15*30)
  (2*5*6*10*30)
but none of these has all distinct sums of prime indices, so 18000 is in the sequence.

Strongly normal multisets of this type are counted by A292444.
These are the zeros in A381633, see A050320, A321469, A381078, A381634.
For distinct blocks see A050326, A293243, A293511, A358914, A381441.
For more on set multipartitions see A089259, A116540, A270995, A296119, A318360.
For more on set multipartitions with distinct sums see A279785, A381718.
For constant instead of strict blocks we have A381636, see A381635, A381716.
Partitions of this type are counted by A381990, complement A381992.
The complement is A382075.
A001055 counts multiset partitions, strict A045778.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000688, A000720, A001222, A005117, A299202, A300385, A381454, A381870.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
sqfics[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqfics[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]]
Select[Range[nn],Length[Select[sqfics[#],UnsameQ@@hwt/@#&]]==0&]

A381717 Number of integer partitions of n that cannot be partitioned into constant multisets with distinct block-sums.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 1, 3, 2, 3, 6, 7, 10, 15, 15, 28, 37, 47, 64, 71, 97, 139, 173, 215, 273, 361, 439, 551, 691, 853, 1078, 1325, 1623, 2046, 2458, 2998, 3697, 4527, 5472, 6590, 7988, 9590, 11598, 13933, 16560, 19976, 23822, 28420, 33797, 40088, 47476, 56369, 66678

Offset: 0

Gus Wiseman, Mar 16 2025

nonn

Conjecture: Also the number of integer partitions of n having no permutation with all distinct run-sums, ranked by zeros of A382876. In other words, a partition has a permutation with all distinct run-sums iff it has a multiset partition into constant blocks with all distinct block-sums, where the run-sums of a sequence are obtained by splitting it into maximal runs and taking their sums.

			For y = (3,2,2,1) we have the multiset partition {{3},{2,2},{1}}, so y is not counted under a(8).
For y = (3,2,1,1,1) there are 3 multiset partitions into constant multisets:
  {{3},{2},{1,1,1}}
  {{3},{2},{1,1},{1}}
  {{3},{2},{1},{1},{1}}
but none of these has distinct block-sums, so y is counted under a(8).
For y = (3,3,1,1,1,1,1,1) we have multiset partitions:
  {{1},{3,3},{1,1,1,1,1}}
  {{1,1},{3,3},{1,1,1,1}}
  {{1},{1,1},{3,3},{1,1,1}}
so y is not counted under a(12).
The a(4) = 1 through a(13) = 10 partitions:
  211  .  .  3211  422    4221  6211   4322     633      5422
                   4211   5211  33211  7211     8211     6331
                   32111        42211  43211    43221    9211
                                       422111   44211    54211
                                       431111   53211    63211
                                       3221111  432111   333211
                                                4221111  432211
                                                         532111
                                                         4321111
                                                         42211111

Twice-partitions of this type (constant with distinct) are counted by A279786.
Multiset partitions of this type are ranked by A326535 /\ A355743.
These partitions are ranked by A381636, zeros of A381635.
For strict instead of constant blocks we have A381990, see A381806, A381633, A382079.
For equal instead of distinct block-sums we have A381993.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383.
A050361 counts factorizations into distinct prime powers.
Cf. A002846, A047966, A130091, A213242, A213427, A265947, A317142, A353864, A381716, A381991, A381992, A382876.

mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn,{ptn,IntegerPartitions[Length[y]]}];
Table[Length[Select[IntegerPartitions[n],Select[Join@@@Tuples[mce/@Split[#]],UnsameQ@@Total/@#&]=={}&]],{n,0,30}]

a(37)-a(53) from Robert Price, Mar 31 2025

A381990 Number of integer partitions of n that cannot be partitioned into a set (or multiset) of sets with distinct sums.

Original entry on oeis.org

0, 0, 1, 1, 2, 2, 5, 6, 9, 13, 17, 23, 33, 42, 58, 76, 97, 127, 168, 208, 267, 343, 431, 536, 676, 836, 1045, 1283, 1582, 1949, 2395, 2895, 3549, 4298, 5216, 6281, 7569, 9104, 10953, 13078, 15652, 18627, 22207, 26325, 31278, 37002, 43708, 51597, 60807, 71533, 84031

Offset: 0

Gus Wiseman, Mar 15 2025

nonn

			The partition y = (3,3,3,2,2,1,1,1,1) has only one multiset partition into a set of sets, namely {{1},{3},{1,2},{1,3},{1,2,3}}, but this does not have distinct sums, so y is counted under a(17).
The a(2) = 1 through a(8) = 9 partitions:
  (11)  (111)  (22)    (2111)   (33)      (2221)     (44)
               (1111)  (11111)  (222)     (4111)     (2222)
                                (3111)    (22111)    (5111)
                                (21111)   (31111)    (22211)
                                (111111)  (211111)   (41111)
                                          (1111111)  (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)

More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Twice-partitions of this type are counted by A279785.
For constant instead of strict blocks see A381717, A381636, A381635, A381716, A381991.
Normal multiset partitions of this type are counted by A381718, see A116539.
These partitions are ranked by A381806, zeros of A381634 and A381633.
The complement is counted by A381992, ranked by A382075.
For distinct blocks we have A382078, complement A382077, unique A382079.
MM-numbers of these multiset partitions (strict blocks with distinct sum) are A382201.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A002846, A047966, A213427, A279786, A299202, A317142, A381870.
Cf. A293243, A293511, A358914, A381078, A381441, A381454.

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@@@#&&UnsameQ@@Total/@#&]]==0&]],{n,0,10}]

a(21)-a(50) from Bert Dobbelaere, Mar 29 2025

A382077 Number of integer partitions of n that can be partitioned into a set of sets.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 6, 9, 13, 17, 25, 33, 44, 59, 77, 100, 134, 171, 217, 283, 361, 449, 574, 721, 900, 1126, 1397, 1731, 2143, 2632, 3223, 3961, 4825, 5874, 7131, 8646, 10452, 12604, 15155, 18216, 21826, 26108, 31169, 37156, 44202, 52492, 62233, 73676, 87089, 102756, 121074

Offset: 0

Gus Wiseman, Mar 18 2025

nonn

First differs from A240306 at a(14) = 76, A240306(14) = 77.

First differs from A381992 at a(17) = 171, A381992(17) = 170.

			For y = (3,2,2,2,1,1,1), we have the multiset partition {{1},{2},{1,2},{1,2,3}}, so y is counted under a(12).
The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)  (3)    (4)      (5)      (6)        (7)        (8)
            (2,1)  (3,1)    (3,2)    (4,2)      (4,3)      (5,3)
                   (2,1,1)  (4,1)    (5,1)      (5,2)      (6,2)
                            (2,2,1)  (3,2,1)    (6,1)      (7,1)
                            (3,1,1)  (4,1,1)    (3,2,2)    (3,3,2)
                                     (2,2,1,1)  (3,3,1)    (4,2,2)
                                                (4,2,1)    (4,3,1)
                                                (5,1,1)    (5,2,1)
                                                (3,2,1,1)  (6,1,1)
                                                           (3,2,2,1)
                                                           (3,3,1,1)
                                                           (4,2,1,1)
                                                           (3,2,1,1,1)

Factorizations of this type are counted by A050345.
More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Normal multiset partitions of this type are counted by A116539.
The MM-numbers of these multiset partitions are A302494.
Twice-partitions of this type are counted by A358914.
For distinct block-sums instead of blocks we have A381992, ranked by A382075.
The complement is counted by A382078, unique A382079.
These partitions are ranked by A382200, complement A293243.
For normal multisets instead of integer partitions we have A382214, complement A292432.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A292444, A293511, A299202, A317142, A381441, A381454, A381717, A381718, A381870, A381990.

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[#],UnsameQ@@#&&And@@UnsameQ@@@#&]]>0&]],{n,0,9}]

a(21)-a(50) from Bert Dobbelaere, Mar 29 2025

A382078 Number of integer partitions of n that cannot be partitioned into a set of sets.

Original entry on oeis.org

0, 0, 1, 1, 2, 2, 5, 6, 9, 13, 17, 23, 33, 42, 58, 76, 97, 126, 168, 207, 266, 343, 428, 534, 675, 832, 1039, 1279, 1575, 1933, 2381, 2881, 3524, 4269, 5179, 6237, 7525, 9033, 10860, 12969, 15512, 18475, 22005, 26105, 30973, 36642, 43325, 51078, 60184, 70769, 83152

Offset: 0

Gus Wiseman, Mar 18 2025

nonn

First differs from A240309 at a(11) = 23, A240309(11) = 25.

First differs from A381990 at a(17) = 126, A381990(17) = 127.

			The partition y = (2,2,1,1,1) can be partitioned into sets in the following ways:
  {{1},{1,2},{1,2}}
  {{1},{1},{2},{1,2}}
  {{1},{1},{1},{2},{2}}
But none of these is itself a set, so y is counted under a(7).
The a(2) = 1 through a(8) = 9 partitions:
  (11)  (111)  (22)    (2111)   (33)      (2221)     (44)
               (1111)  (11111)  (222)     (4111)     (2222)
                                (3111)    (22111)    (5111)
                                (21111)   (31111)    (22211)
                                (111111)  (211111)   (41111)
                                          (1111111)  (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)

More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
For normal multisets see A292432, A292444, A116539.
These partitions are ranked by A293243, complement A382200.
The MM-numbers of these multiset partitions (set of sets) are A302494.
Twice-partitions of this type are counted by A358914.
For distinct sums we have A381990 (ranks A381806), complement A381992 (ranks A382075).
The complement is counted by A382077, unique A382079.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions into distinct sets, complement A050345.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A293511, A299202, A317142, A381441, A381454, A381717, A381718, A381870.

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[#],UnsameQ@@#&&And@@UnsameQ@@@#&]]==0&]],{n,0,9}]

a(19)-a(50) from Bert Dobbelaere, Mar 29 2025

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

Original entry on oeis.org

1, 1, 1, 3, 5, 11, 23, 48, 101, 208, 434

Offset: 0

Gus Wiseman, Mar 29 2025

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

			The multiset {1,2,2,3,3} can be partitioned into a set of sets with distinct sums in 4 ways:
  {{2,3},{1,2,3}}
  {{2},{3},{1,2,3}}
  {{2},{1,3},{2,3}}
  {{1},{2},{3},{2,3}}
so is counted under a(5).
The multisets counted by A382214 but not by A382216 are:
  {1,1,1,1,2,2,3,3,3}
  {1,1,2,2,2,2,3,3,3}
The a(1) = 1 through a(5) = 11 multisets:
  {1}  {1,2}  {1,1,2}  {1,1,2,2}  {1,1,1,2,3}
              {1,2,2}  {1,1,2,3}  {1,1,2,2,3}
              {1,2,3}  {1,2,2,3}  {1,1,2,3,3}
                       {1,2,3,3}  {1,1,2,3,4}
                       {1,2,3,4}  {1,2,2,2,3}
                                  {1,2,2,3,3}
                                  {1,2,2,3,4}
                                  {1,2,3,3,3}
                                  {1,2,3,3,4}
                                  {1,2,3,4,4}
                                  {1,2,3,4,5}

Twice-partitions of this type are counted by A279785, without distinct sums A358914.
Factorizations of this type are counted by A381633, without distinct sums A050326.
Normal multiset partitions of this type are counted by A381718, A116539.
The complement is counted by A382202.
Without distinct sums we have A382214, complement A292432.
The case of a unique choice is counted by A382459, without distinct sums A382458.
For Heinz numbers: A293243, A381806, A382075, A382200.
For integer partitions: A381990, A381992, A382077, A382078.
Strong version: A382523, A382430, A381996, A292444.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.
Cf. A000110, A000670, A007716, A050320, A116540, A255903, A275780, A317532, A326518, A326519, A382429, A382460.

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[#],And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]>0&]],{n,0,5}]

A382075 Numbers whose prime indices can be partitioned into a set of sets with distinct sums.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 26, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84

Offset: 1

Gus Wiseman, Mar 19 2025

nonn

First differs from A212167 in having 3600.
First differs from A335433 in lacking 72.
First differs from A339741 in having 1080.
First differs from A345172 in lacking 72.
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.
Also numbers that can be written as a product of squarefree numbers with distinct sums of prime indices.

			The prime indices of 1080 are {1,1,1,2,2,2,3}, and {{1},{2},{1,2},{1,2,3}} is a partition into a set of sets with distinct sums, so 1080 is in the sequence.

Twice-partitions of this type are counted by A279785, see also A358914.
These are positions of terms > 0 in A381633, see A321469, A381078, A381634.
For constant instead of strict blocks see A381635, A381636, A381716.
Normal multiset partitions into sets with distinct sums are counted by A381718.
The complement is A381806, counted by A381990.
The case of a unique choice is A381870, counted by A382079, see A382078.
Partitions of this type are counted by A381992.
For distinct blocks instead of block-sums we have A382200, complement A293243.
MM-numbers of multiset partitions into sets with distinct sums are A382201.
Normal multisets of this type are counted by A382216, see also A382214.
A001055 counts multiset partitions of prime indices, strict A045778.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A089259, A270995, A293511, A318360, A381441, A382077.
Cf. A000720, A001222, A005117, A050345, A292432, A302494.

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]]]];
Select[Range[100],Length[Select[mps[prix[#]], And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]>0&]

A382200 Numbers that can be written as a product of distinct squarefree numbers.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 26, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84

Offset: 1

Gus Wiseman, Mar 21 2025

nonn

First differs from A339741 in having 1080.
First differs from A382075 in having 18000.
These are positions of positive terms in A050326, complement A293243.
Also numbers whose prime indices can be partitioned into distinct sets.
Differs from A212167, which does not include 18000 = 2^4*3^2*5^3, for example. - R. J. Mathar, Mar 23 2025

			The prime indices of 1080 are {1,1,1,2,2,2,3}, and {{1},{2},{1,2},{1,2,3}} is a partition into a set of sets, so 1080 is in the sequence.
We have 18000 = 2*5*6*10*30, so 18000 is in the sequence.

Robert Israel, Table of n, a(n) for n = 1..10000

Twice-partitions of this type are counted by A279785, see also A358914.
Normal multisets not of this type are counted by A292432, strong A292444.
The complement is A293243, counted by A050342.
The case of a unique choice is A293511.
MM-numbers of multiset partitions into distinct sets are A302494.
For distinct block-sums instead of blocks we have A382075, counted by A381992.
Partitions of this type are counted by A382077, complement A382078.
Normal multisets of this type are counted by A382214, strong A381996.
A001055 counts multiset partitions of prime indices, strict A045778.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000720, A001222, A005117, A050345, A089259, A116539, A270995, A381441, A382201, A382216.

N:= 1000: # to get all terms <= N
A:= Vector(N):
A[1]:= 1:
for n from 2 to N do
  if numtheory:-issqrfree(n) then
      S:= [$1..N/n]; T:= n*S; A[T]:= A[T]+A[S]
    fi;
od:
remove(t -> A[t]=0, [$1..N]); # Robert Israel, Apr 21 2025

sqfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqfacs[n/d],Min@@#>d&]],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Select[Range[100],Length[sqfacs[#]]>0&]

A382214 Number of normal multisets of size n that can be partitioned into a set of sets.

Original entry on oeis.org

1, 1, 1, 3, 5, 11, 23, 48, 101, 210, 436, 894

Offset: 0

Gus Wiseman, Mar 29 2025

First differs from A382216 at a(9) = 210, A382216(9) = 208.

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.

			The normal multiset {1,1,1,1,2,2,3,3,3} has partition {{1},{3},{1,2},{1,3},{1,2,3}}, so is counted under a(9).
The a(1) = 1 through a(5) = 11 multisets:
  {1}  {1,2}  {1,1,2}  {1,1,2,2}  {1,1,1,2,3}
              {1,2,2}  {1,1,2,3}  {1,1,2,2,3}
              {1,2,3}  {1,2,2,3}  {1,1,2,3,3}
                       {1,2,3,3}  {1,1,2,3,4}
                       {1,2,3,4}  {1,2,2,2,3}
                                  {1,2,2,3,3}
                                  {1,2,2,3,4}
                                  {1,2,3,3,3}
                                  {1,2,3,3,4}
                                  {1,2,3,4,4}
                                  {1,2,3,4,5}

Factorizations of this type are counted by A050326, distinct sums A381633.
Normal multiset partitions of this type are counted by A116539, distinct sums A381718.
The complement is counted by A292432.
Twice-partitions of this type are counted by A358914, distinct sums A279785.
The strong version is A381996, complement A292444.
For integer partitions we have A382077, ranks A382200, complement A382078, ranks A293243.
For distinct sums we have A382216, complement A382202.
The case of a unique choice is counted by A382458, distinct sums A382459.
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.
Cf. A000110, A007716, A050320, A116540, A255903, A317532, A326517, A326519, A381990, A381992, A382428, A382460.

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],Select[mps[#], UnsameQ@@#&&And@@UnsameQ@@@#&]!={}&]],{n,0,5}]

cp's OEIS Frontend

A293243 Numbers that cannot be written as a product of distinct squarefree numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A381806 Numbers that cannot be written as a product of squarefree numbers with distinct sums of prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381717 Number of integer partitions of n that cannot be partitioned into constant multisets with distinct block-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A381990 Number of integer partitions of n that cannot be partitioned into a set (or multiset) of sets with distinct sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A382077 Number of integer partitions of n that can be partitioned into a set of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A382078 Number of integer partitions of n that cannot be partitioned into a set of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382075 Numbers whose prime indices can be partitioned into a set of sets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382200 Numbers that can be written as a product of distinct squarefree numbers.

Views