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 13 results. Next

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

Views

Author

Gus Wiseman, Mar 16 2025

Keywords

Comments

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.

Examples

			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
		

Crossrefs

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.

Programs

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

Extensions

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

A381871 Numbers whose prime indices cannot be partitioned into constant blocks having a common sum.

Original entry on oeis.org

6, 10, 14, 15, 18, 20, 21, 22, 24, 26, 28, 30, 33, 34, 35, 38, 39, 42, 44, 45, 46, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 100, 102, 104, 105, 106, 110
Offset: 1

Views

Author

Gus Wiseman, Mar 13 2025

Keywords

Comments

First differs from A383100 in lacking 108.
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, sum A056239.
Also numbers that cannot be written as a product of prime powers with equal sums of prime indices.
Partitions of this type are counted by A381993.

Examples

			The terms together with their prime indices begin:
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   18: {1,2,2}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   24: {1,1,1,2}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}
		

Crossrefs

Constant blocks: A000688, A006171, A279784, A295935, A381453 (lower), A381455 (upper).
Constant blocks with distinct sums: A381635, A381716.
For distinct instead of equal sums we have A381636, counted by A381717.
Partitions of this type are counted by A381993, complement A383093.
These are the positions of 0 in A381995.
A001055 counts multiset partitions of prime indices, strict A045778.
A050361 counts multiset partitions into distinct constant blocks.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    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]]]];
    Select[Range[100],Select[mps[prix[#]],SameQ@@Total/@#&&And@@SameQ@@@#&]=={}&]

A382076 Number of integer partitions of n whose run-sums are not all equal.

Original entry on oeis.org

0, 0, 0, 1, 1, 5, 6, 13, 15, 27, 37, 54, 64, 99, 130, 172, 220, 295, 372, 488, 615, 788, 997, 1253, 1547, 1955, 2431, 3005, 3706, 4563, 5586, 6840, 8332, 10139, 12305, 14879, 17933, 21635, 26010, 31181, 37314, 44581, 53156, 63259, 75163, 89124, 105553, 124752, 147210
Offset: 0

Views

Author

Gus Wiseman, Apr 02 2025

Keywords

Comments

Also the number of integer partitions of n that cannot be partitioned into distinct constant multisets with a common sum. Multiset partitions of this type are ranked by A005117 /\ A326534 /\ A355743, while twice-partitions are counted by A382524, strict case of A279789.

Examples

			The partition (3,2,1,1,1) has runs ((3),(2),(1,1,1)) with sums (3,2,3) so is counted under a(8).
The a(3) = 1 through a(8) = 15 partitions:
  (21)  (31)  (32)    (42)     (43)      (53)
              (41)    (51)     (52)      (62)
              (221)   (321)    (61)      (71)
              (311)   (411)    (322)     (332)
              (2111)  (2211)   (331)     (431)
                      (21111)  (421)     (521)
                               (511)     (611)
                               (2221)    (3221)
                               (3211)    (3311)
                               (4111)    (4211)
                               (22111)   (5111)
                               (31111)   (22211)
                               (211111)  (32111)
                                         (311111)
                                         (2111111)
		

Crossrefs

The complement is counted by A304442, ranks A353833.
For distinct instead of equal block-sums we have A381717.
This is the strict case of A381993, see A381995, zeros A381871.
A050361 counts factorizations into distinct prime powers, see A381715.
A304405 counts partitions with weakly decreasing run-sums, ranks A357875.
A304406 counts partitions with weakly increasing run-sums, ranks A357861.
A304428 counts partitions with strictly decreasing run-sums, ranks A357862.
A304430 counts partitions with strictly increasing run-sums, ranks A357864.
A317141 counts coarsenings of prime indices, refinements A300383.
A326534 ranks multiset partitions with a common sum.
A353837 counts partitions with distinct run-sums.
A354584 lists run-sums of weakly increasing prime indices.
A355743 ranks multiset partitions into constant blocks.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],!SameQ@@Total/@Split[#]&]],{n,0,15}]

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

A381995 Number of ways to partition the prime indices of n into constant blocks with a common sum.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Mar 19 2025

Keywords

Comments

Also the number of factorizations of n into prime powers > 1 with equal sums of prime indices.

Examples

			The prime indices of 144 are {1,1,1,1,2,2}, with the following 2 multiset partitions into constant blocks with a common sum:
  {{2,2},{1,1,1,1}}
  {{2},{2},{1,1},{1,1}}
so a(144) = 2.
		

Crossrefs

For just constant blocks we have A000688.
Twice-partitions of this type are counted by A279789.
For just a common sum we have A321455.
For distinct instead of equal sums we have A381635.
Positions of 0 are A381871, counted by A381993.
MM-numbers of these multiset partitions are A382215.
A001055 counts factorizations, strict A045778.
A050361 counts factorizations into distinct prime powers.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
A353864 counts rucksack partitions, ranked by A353866.
Cf. A279784, A295935, A381453 (lower), A381455 (upper).

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    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[mps[prix[n]], SameQ@@Total/@#&&And@@SameQ@@@#&]],{n,100}]

Formula

A323774(n) = Sum_{A056239(k)=n} a(k). Gus Wiseman, Apr 25 2025

A381719 Numbers whose prime indices cannot be partitioned into sets with a common sum.

Original entry on oeis.org

12, 18, 20, 24, 28, 40, 44, 45, 48, 50, 52, 54, 56, 60, 63, 68, 72, 75, 76, 80, 84, 88, 90, 92, 96, 98, 99, 104, 108, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 147, 148, 152, 153, 156, 160, 162, 164, 168, 171, 172, 175, 176, 184, 188, 189, 192
Offset: 1

Views

Author

Gus Wiseman, Apr 22 2025

Keywords

Comments

Differs from A059404, A323055, A376250 in lacking 150.
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, sum A056239.
Also numbers that cannot be factored into squarefree numbers with a common sum of prime indices (A056239).

Examples

			The prime indices of 150 are {1,2,3,3}, and {{3},{3},{1,2}} is a partition into sets with a common sum, so 150 is not in the sequence.
		

Crossrefs

Twice-partitions of this type (sets with a common sum) are counted by A279788.
These multiset partitions (sets with a common sum) are ranked by A326534 /\ A302478.
For distinct block-sums we have A381806, counted by A381990 (complement A381992).
For constant blocks we have A381871 (zeros of A381995), counted by A381993.
Partitions of this type are counted by A381994.
These are the zeros of A382080.
Normal multiset partitions of this type are counted by A382429, see A326518.
The complement counted by A383308.
A000041 counts integer partitions, strict A000009.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, see A381078, A381454.
A050326 counts factorizations into distinct squarefree numbers.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
A381633 counts set systems with distinct sums, see A381634, A293243.
Set multipartitions: A089259, A116540, A270995, A296119, A318360.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    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],Select[mps[prix[#]], SameQ@@Total/@#&&And@@UnsameQ@@@#&]=={}&]

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

A383014 Numbers whose prime indices can be partitioned into constant blocks with a common sum.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 36, 37, 40, 41, 43, 47, 48, 49, 53, 59, 61, 63, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 108, 109, 112, 113, 121, 125, 127, 128, 131, 137, 139, 144, 149, 151, 157, 163, 167, 169
Offset: 1

Views

Author

Gus Wiseman, Apr 22 2025

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, sum A056239.

Examples

			The prime indices of 36 are {1,1,2,2}, and a partition into constant blocks with a common sum is: {{2},{2},{1,1}}, so 36 is in the sequence.
The prime indices of 43200 are {1,1,1,1,1,1,2,2,2,3,3}, and a partition into constant blocks with a common sum is: {{{1,1,1,1,1,1},{2,2,2},{3,3}}}, so 43200 is in the sequence.
The prime indices of 520000 are {1,1,1,1,1,1,3,3,3,3,6} and a partition into constant blocks with a common sum is: {{1,1,1,1,1,1},{3,3},{3,3},{6}}, so 520000 is in the sequence.
The terms together with their prime indices begin:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  29: {10}
  31: {11}
  32: {1,1,1,1,1}
  36: {1,1,2,2}
  37: {12}
  40: {1,1,1,3}
		

Crossrefs

Twice-partitions of this type (constant blocks with a common sum) are counted by A279789.
Includes all elements of A353833.
For distinct sums we have the complement of A381636.
For strict blocks we have the complement of A381719.
For distinct sums and strict blocks we have the complement of A381806.
The complement is A381871, counted by A381993.
These are the positions of positive terms in A381995.
Partitions of this type are counted by A383093.
Constant blocks: A000688, A006171, A279784, A295935, A381453 (lower), A381455 (upper).
A001055 counts factorizations (multiset partitions of prime indices), strict A045778.
A050361 counts factorizations into distinct prime powers.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn, {ptn,IntegerPartitions[Length[y]]}];
    Select[Range[100], Select[Join@@@Tuples[mce/@Split[prix[#]]], SameQ@@Total/@#&]!={}&]

A383093 Number of integer partitions of n that can be partitioned into constant blocks with a common sum.

Original entry on oeis.org

1, 1, 2, 2, 4, 2, 7, 2, 9, 5, 9, 2, 23, 2, 11, 10, 24, 2, 33, 2, 36, 12, 15, 2, 87, 7, 17, 17, 53, 2, 96, 2, 79, 16, 21, 14, 196, 2, 23, 18, 154, 2, 166, 2, 99, 54, 27, 2, 431, 9, 85, 22, 128, 2, 303, 18, 261, 24, 33, 2, 771, 2, 35, 73, 331, 20, 422, 2, 198, 28, 216, 2, 1369
Offset: 0

Views

Author

Gus Wiseman, Apr 22 2025

Keywords

Examples

			The partition (4,4,2,2,2,2,1,1,1,1,1,1,1,1) has two partitions into constant blocks with a common sum: {{4,4},{2,2,2,2},{1,1,1,1,1,1,1,1}} and {{4},{4},{2,2},{2,2},{1,1,1,1},{1,1,1,1}}, so is counted under a(24).
The a(1) = 1 through a(8) = 9 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (11111)  (33)      (1111111)  (44)
                    (211)            (222)                (422)
                    (1111)           (2211)               (2222)
                                     (3111)               (22211)
                                     (21111)              (41111)
                                     (111111)             (221111)
                                                          (2111111)
                                                          (11111111)
		

Crossrefs

Twice-partitions of this type (constant with common) are counted by A279789.
Multiset partitions of this type are ranked by A383309.
The complement is counted by A381993, ranks A381871.
For sets we have the complement of A381994, see A381719, A382080.
Normal multiset partitions of this type are counted by A382203, sets A381718.
For distinct instead of equal block-sums we have A382427.
These partitions are ranked by A383014, nonzeros of A381995.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383, A265947.
A050361 counts factorizations into distinct prime powers, see A381715.
A323774 counts partitions into constant blocks with a common sum
Constant blocks with distinct sums: A381635, A381636, A381717.
Permutation with equal run-sums: A383096, A383098, A383100, A383110

Programs

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

Formula

Multiset systems of this type have MM-numbers A383309 = A326534 /\ A355743.
Conjecture: We have Sum_{d|n} a(d) = A323774(n), so this is the Moebius transform of A323774.

Extensions

More terms from Jakub Buczak, May 03 2025

A382301 Number of integer partitions of n having a unique multiset partition into constant blocks with distinct sums.

Original entry on oeis.org

1, 1, 2, 2, 3, 6, 8, 9, 14, 16, 25, 30, 41, 52, 69, 83, 105, 129, 164, 208, 263, 315, 388, 449, 573, 694
Offset: 0

Views

Author

Gus Wiseman, Mar 26 2025

Keywords

Examples

			The a(4) = 3 through a(8) = 14 partitions and their unique multiset partition into constant blocks with distinct sums:
  {4}     {5}       {6}         {7}        {8}
  {22}    {1}{4}    {33}        {1}{6}     {44}
  {1}{3}  {2}{3}    {1}{5}      {2}{5}     {1}{7}
          {11}{3}   {2}{4}      {3}{4}     {2}{6}
          {1}{22}   {11}{4}     {11}{5}    {3}{5}
          {2}{111}  {11}{22}    {1}{33}    {11}{6}
                    {1}{2}{3}   {3}{22}    {2}{33}
                    {1}{11}{3}  {1}{2}{4}  {11}{33}
                                {3}{1111}  {11}{222}
                                           {1}{2}{5}
                                           {1}{3}{4}
                                           {1}{3}{22}
                                           {1}{4}{111}
                                           {1}{111}{22}
		

Crossrefs

For distinct blocks instead of block-sums we have A000726, ranks A004709.
Twice-partitions of this type (constant with distinct) are counted by A279786.
MM-numbers of these multiset partitions are A326535 /\ A355743.
For no choices we have A381717, ranks A381636, zeros of A381635.
The Heinz numbers of these partitions are A381991, positions of 1 in A381635.
Normal multiset partitions of this type are counted by A382203.
For at least one choice we have A382427.
For strict instead of constant blocks we have A382460, ranks A381870.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383, A265947.
A050361 counts factorizations into distinct prime powers.

Programs

  • Mathematica
    hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
    pfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[pfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],PrimePowerQ]}]];
    Table[Length[Select[IntegerPartitions[n],Length[Select[pfacs[Times@@Prime/@#],UnsameQ@@hwt/@#&]]==1&]],{n,0,10}]

A382427 Number of integer partitions of n that can be partitioned into constant blocks with distinct sums.

Original entry on oeis.org

1, 1, 2, 3, 4, 7, 11, 14, 19, 28, 39, 50, 70, 91, 120, 161, 203, 260, 338, 426, 556, 695, 863, 1082, 1360, 1685
Offset: 0

Views

Author

Gus Wiseman, Mar 26 2025

Keywords

Comments

Conjecture: Also the number of integer partitions of n having a permutation with all distinct run-sums.

Examples

			The partition (3,2,2,2,1) can be partitioned as {{1},{2},{3},{2,2}} or {{1},{3},{2,2,2}}, so is counted under a(10).
The a(1) = 1 through a(7) = 14 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (1111)  (221)    (51)      (61)
                            (311)    (222)     (322)
                            (2111)   (321)     (331)
                            (11111)  (411)     (421)
                                     (2211)    (511)
                                     (3111)    (2221)
                                     (21111)   (4111)
                                     (111111)  (22111)
                                               (31111)
                                               (211111)
                                               (1111111)
		

Crossrefs

Twice-partitions of this type (constant with distinct) are counted by A279786.
Multiset partitions of this type are ranked by A326535 /\ A355743.
The complement is counted by A381717, ranks A381636, zeros of A381635.
For strict instead of constant blocks we have A381992, ranks A382075.
For a unique choice we have A382301, ranks A381991.
Normal multiset partitions of this type are counted by A382203, sets A381718.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383, A265947.
A050361 counts factorizations into distinct prime powers.

Programs

  • Mathematica
    hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
    pfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[pfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],PrimePowerQ]}]];
    Table[Length[Select[IntegerPartitions[n],Select[pfacs[Times@@Prime/@#],UnsameQ@@hwt/@#&]!={}&]],{n,0,10}]
Showing 1-10 of 13 results. Next