A320324 -id:A320324 - cp's OEIS frontend

A326537 MM-numbers of multiset partitions where each part has a different average.

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 22, 23, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 51, 53, 55, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 106, 107, 109, 110

Offset: 1

Gus Wiseman, Jul 12 2019

nonn

These are numbers where each prime index has a different average of prime indices. 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. The multiset multisystem with MM-number n is obtained by taking the multiset of prime indices of each prime index of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}.

			The sequence of multiset partitions where each part has a different average, preceded by their MM-numbers, begins:
   1: {}
   2: {{}}
   3: {{1}}
   5: {{2}}
   6: {{},{1}}
   7: {{1,1}}
  10: {{},{2}}
  11: {{3}}
  13: {{1,2}}
  14: {{},{1,1}}
  15: {{1},{2}}
  17: {{4}}
  19: {{1,1,1}}
  22: {{},{3}}
  23: {{2,2}}
  26: {{},{1,2}}
  29: {{1,3}}
  30: {{},{1},{2}}
  31: {{5}}
  33: {{1},{3}}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A038041, A051293, A112798, A302242, A320324, A326513, A326516, A326521, A326533, A326534, A326535, A326536.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],UnsameQ@@Mean/@primeMS/@primeMS[#]&]

A326783 BII-numbers of uniform set-systems.

Original entry on oeis.org

0, 1, 2, 3, 4, 8, 9, 10, 11, 16, 20, 32, 36, 48, 52, 64, 128, 129, 130, 131, 136, 137, 138, 139, 256, 260, 272, 276, 288, 292, 304, 308, 512, 516, 528, 532, 544, 548, 560, 564, 768, 772, 784, 788, 800, 804, 816, 820, 1024, 1088, 2048, 2052, 2064, 2068, 2080

Offset: 1

Gus Wiseman, Jul 25 2019

nonn

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. A set-system is uniform if all edges have the same size.

Alternatively, these are numbers whose binary indices all have the same binary weight, where the binary weight of a nonnegative integer is the numbers of 1's in its binary digits.

			The sequence of all uniform set-systems together with their BII-numbers begins:
    0: {}
    1: {{1}}
    2: {{2}}
    3: {{1},{2}}
    4: {{1,2}}
    8: {{3}}
    9: {{1},{3}}
   10: {{2},{3}}
   11: {{1},{2},{3}}
   16: {{1,3}}
   20: {{1,2},{1,3}}
   32: {{2,3}}
   36: {{1,2},{2,3}}
   48: {{1,3},{2,3}}
   52: {{1,2},{1,3},{2,3}}
   64: {{1,2,3}}
  128: {{4}}
  129: {{1},{4}}
  130: {{2},{4}}
  131: {{1},{2},{4}}

Cf. A000120, A029931, A048793, A070939, A047966, A306017, A306021, A319269, A320324, A326031, A326784 (regular), A326785 (uniform regular), A326788.

bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
Select[Range[0,100],SameQ@@Length/@bpe/@bpe[#]&]

A358901 Number of integer partitions of n whose parts have all different numbers of prime factors (A001222).

Original entry on oeis.org

1, 1, 1, 2, 2, 2, 3, 4, 4, 5, 5, 7, 9, 8, 9, 11, 11, 15, 16, 16, 18, 20, 22, 26, 28, 31, 32, 36, 40, 45, 46, 46, 50, 59, 64, 70, 75, 78, 83, 89, 94, 108, 106, 104, 120, 137, 142, 147, 150, 161, 174, 190, 200, 220, 226, 224, 248, 274, 274, 287, 301, 320, 340, 351, 361

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

			The a(1) = 1 through a(11) = 7 partitions:
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)    (B)
            (21)  (31)  (41)  (42)  (43)   (62)   (54)   (82)   (74)
                              (51)  (61)   (71)   (63)   (91)   (65)
                                    (421)  (431)  (81)   (451)  (83)
                                                  (621)  (631)  (92)
                                                                (A1)
                                                                (821)

Alois P. Heinz, Table of n, a(n) for n = 0..5000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

The weakly decreasing version is A358909 (complement A358910).
The version not counting multiplicity is A358903, weakly decreasing A358902.
For equal numbers of prime factors we have A319169, compositions A358911.
A001222 counts prime factors, distinct A001221.
A063834 counts twice-partitions.
A358836 counts multiset partitions with all distinct block sizes.
Cf. A056239, A129519, A141199, A218482, A300335, A319071, A320324, A358335, A358831, A358908.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@PrimeOmega/@#&]],{n,0,60}]

a(61) and beyond from Lucas A. Brown, Dec 14 2022

A358905 Number of sequences of integer partitions with total sum n that are rectangular, meaning all lengths are equal.

Original entry on oeis.org

1, 1, 3, 6, 13, 24, 49, 91, 179, 341, 664, 1280, 2503, 4872, 9557, 18750, 36927, 72800, 143880, 284660, 564093, 1118911, 2221834, 4415417, 8781591, 17476099, 34799199, 69327512, 138176461, 275503854, 549502119, 1096327380, 2187894634, 4367310138, 8719509111

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

			The a(0) = 1 through a(4) = 13 sequences:
  ()  ((1))  ((2))     ((3))        ((4))
             ((11))    ((21))       ((22))
             ((1)(1))  ((111))      ((31))
                       ((1)(2))     ((211))
                       ((2)(1))     ((1111))
                       ((1)(1)(1))  ((1)(3))
                                    ((2)(2))
                                    ((3)(1))
                                    ((11)(11))
                                    ((1)(1)(2))
                                    ((1)(2)(1))
                                    ((2)(1)(1))
                                    ((1)(1)(1)(1))

Andrew Howroyd, Table of n, a(n) for n = 0..1000

The case of set partitions is A038041.
The version for weakly decreasing lengths is A141199, strictly A358836.
For equal sums instead of lengths we have A279787.
The case of twice-partitions is A306319, distinct A358830.
The unordered version is A319066.
The case of plane partitions is A323429.
The case of constant sums also is A358833.
A055887 counts sequences of partitions with total sum n.
A281145 counts same-trees.
A319169 counts partitions with constant Omega, ranked by A320324.
A358911 counts compositions with constant Omega, distinct A358912.
Cf. A000041, A000219, A001970, A063834, A218482, A305551, A358835.

ptnseq[n_]:=Join@@Table[Tuples[IntegerPartitions/@comp],{comp,Join@@Permutations/@IntegerPartitions[n]}];
Table[Length[Select[ptnseq[n],SameQ@@Length/@#&]],{n,0,10}]

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(g=P(n,y)); Vec(1 + sum(k=1, n, 1/(1 - polcoef(g, k, y)) - 1))} \\ Andrew Howroyd, Dec 31 2022

G.f.: 1 + Sum_{k>=1} (1/(1 - [y^k]P(x,y)) - 1) where P(x,y) = 1/Product_{k>=1} (1 - y*x^k). - Andrew Howroyd, Dec 31 2022

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

A326536 MM-numbers of multiset partitions where every part has the same average.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 21, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 53, 57, 59, 61, 63, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 115, 121, 125, 127, 128, 131, 133, 137, 139, 145, 147, 149, 151, 157, 159, 163, 167

Offset: 1

Gus Wiseman, Jul 12 2019

nonn

First differs from A322902 in having 145.

These are numbers where each prime index has the same average of prime indices. 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. The multiset multisystem with MM-number n is obtained by taking the multiset of prime indices of each prime index of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}.

			The sequence of multiset partitions where every part has the same average, preceded by their MM-numbers, begins:
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   5: {{2}}
   7: {{1,1}}
   8: {{},{},{}}
   9: {{1},{1}}
  11: {{3}}
  13: {{1,2}}
  16: {{},{},{},{}}
  17: {{4}}
  19: {{1,1,1}}
  21: {{1},{1,1}}
  23: {{2,2}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  29: {{1,3}}
  31: {{5}}
  32: {{},{},{},{},{}}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A038041, A051293, A112798, A302242, A320324, A326512, A326515, A326520, A326533, A326534, A326535, A326537.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],SameQ@@Mean/@primeMS/@primeMS[#]&]

A358911 Number of integer compositions of n whose parts all have the same number of prime factors, counted with multiplicity.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 4, 7, 9, 12, 20, 21, 39, 49, 79, 109, 161, 236, 345, 512, 752, 1092, 1628, 2376, 3537, 5171, 7650, 11266, 16634, 24537, 36173, 53377, 78791, 116224, 171598, 253109, 373715, 551434, 814066, 1201466, 1773425, 2617744, 3864050, 5703840, 8419699

Offset: 0

Gus Wiseman, Dec 11 2022

nonn

			The a(1) = 1 through a(8) = 9 compositions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (23)     (33)      (25)       (35)
                    (1111)  (32)     (222)     (52)       (44)
                            (11111)  (111111)  (223)      (53)
                                               (232)      (233)
                                               (322)      (323)
                                               (1111111)  (332)
                                                          (2222)
                                                          (11111111)

Alois P. Heinz, Table of n, a(n) for n = 0..4000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

The case of partitions is A319169, ranked by A320324.
The weakly decreasing version is A358335, strictly A358901.
For sequences of partitions see A358905.
A001222 counts prime factors, distinct A001221.
A011782 counts compositions.
A358902 = compositions with weakly decreasing A001221, strictly A358903.
A358909 = partitions with weakly decreasing A001222, complement A358910.
Cf. A056239, A063834, A064573, A218482, A279787, A300335, A319066, A319071, A358831, A358908.

b:= proc(n, i) option remember; uses numtheory; `if`(n=0, 1, add(
     (t-> `if`(i<0 or i=t, b(n-j, t), 0))(bigomega(j)), j=1..n))
    end:
a:= n-> b(n, -1):
seq(a(n), n=0..44);  # Alois P. Heinz, Feb 12 2024

Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],SameQ@@PrimeOmega/@#&]],{n,0,10}]

a(21) and beyond from Lucas A. Brown, Dec 15 2022

A375400 Heinz number of the multiset of minima of maximal anti-runs in the weakly increasing prime indices of n.

Original entry on oeis.org

1, 2, 3, 4, 5, 2, 7, 8, 9, 2, 11, 4, 13, 2, 3, 16, 17, 6, 19, 4, 3, 2, 23, 8, 25, 2, 27, 4, 29, 2, 31, 32, 3, 2, 5, 12, 37, 2, 3, 8, 41, 2, 43, 4, 9, 2, 47, 16, 49, 10, 3, 4, 53, 18, 5, 8, 3, 2, 59, 4, 61, 2, 9, 64, 5, 2, 67, 4, 3, 2, 71, 24, 73, 2, 15, 4, 7

Offset: 1

Gus Wiseman, Aug 17 2024

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
An anti-run is a sequence with no adjacent equal parts. The minima of maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each.
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.

			The prime indices of 540 are (1,1,2,2,2,3), with maximal anti-runs ((1),(1,2),(2),(2,3)), with minima (1,1,2,2), with Heinz number 36, so a(540) = 36.
The prime indices of 990 are (1,2,2,3,5), with maximal anti-runs ((1,2),(2,3,5)), with minima (1,2), with Heinz number 6, so a(990) = 6.

bigomega is A001222(a(n)) = A375136(n).
Least prime factor is A020639(a(n)) = A020639(n).
Least prime index is A055396(a(n)) = A055396(n).
Heinz weights are A056239(a(n)) = A374706(n).
The greatest prime index A061395(a(n)) is the maximum of row n of A375128.
Firsts for omega (except first term) are half A061742.
Prime indices A112798(a(n)) are row n of A375128.
Positions of prime-powers are A375396, counted by A115029.
Positions of squarefree numbers are A375398, counted by A375134.
A000041 counts integer partitions, strict A000009.
A027748 lists distinct prime factors, sum A008472.
A304038 lists distinct prime indices, sum A066328.
A number's prime factors (A027746, reverse A238689) have sum A001414, min A020639, max A006530.
A number's prime indices (A112798, reverse A296150) have sum A056239, min A055396, max A061395.
Both have length A001222, distinct A001221.
Cf. A000040, A046660, A124768, A320324, A358836, A374683, A374700, A375133.

Table[Times@@Prime/@If[n==1,{},Min /@ Split[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]],UnsameQ]],{n,100}]

A374704 Number of ways to choose an integer partition of each part of an integer composition of n (A055887) such that the minima are identical.

Original entry on oeis.org

1, 1, 3, 6, 15, 31, 77, 171, 410, 957, 2275, 5370, 12795, 30366, 72307, 172071, 409875, 976155, 2325804, 5541230, 13204161, 31464226, 74980838, 178684715, 425830008, 1014816979, 2418489344, 5763712776, 13736075563, 32735874251, 78016456122, 185929792353, 443110675075

Offset: 0

Gus Wiseman, Aug 04 2024

nonn

			The a(0) = 1 through a(4) = 15 ways:
  ()  ((1))  ((2))      ((3))          ((4))
             ((1,1))    ((1,2))        ((1,3))
             ((1),(1))  ((1,1,1))      ((2,2))
                        ((1),(1,1))    ((1,1,2))
                        ((1,1),(1))    ((2),(2))
                        ((1),(1),(1))  ((1,1,1,1))
                                       ((1),(1,2))
                                       ((1,2),(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))

Andrew Howroyd, Table of n, a(n) for n = 0..1000

A variation for weakly increasing lengths is A141199.
For identical sums instead of minima we have A279787.
The case of reversed twice-partitions is A306319, distinct A358830.
For maxima instead of minima, or for unreversed partitions, we have A358905.
The strict case is A374686 (ranks A374685), maxima A374760 (ranks A374759).
A003242 counts anti-run compositions, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of runs.
A274174 counts contiguous compositions, ranks A374249.
A055887 counts sequences of partitions with total sum n.
A281145 counts same-trees.
A319169 counts partitions with constant Omega, ranked by A320324.
A358911 counts compositions with constant Omega, distinct A358912.
Cf. A000041, A063834, A106356, A189076, A238343, A304969, A305551, A319066, A323429, A333213, A358833, A358835.

Table[Length[Select[Join@@Table[Tuples[IntegerPartitions/@y], {y,Join@@Permutations/@IntegerPartitions[n]}],SameQ@@Min/@#&]],{n,0,15}]

seq(n) = Vec(1 + sum(k=1, n, -1 + 1/(1 - x^k/prod(j=k, n-k, 1 - x^j, 1 + O(x^(n-k+1)))))) \\ Andrew Howroyd, Dec 29 2024

G.f.: 1 + Sum_{k>=1} (-1 + 1/(1 - x^k/Product_{j>=k} (1 - x^j))). - Andrew Howroyd, Dec 29 2024

a(16) onwards from Andrew Howroyd, Dec 29 2024

A327908 Nonprime squarefree numbers whose prime indices all have the same Omega (A001222) and the same sum of prime indices (A056239).

Original entry on oeis.org

1, 667, 2021, 4331, 5767, 7081, 7663, 11021, 11639, 12091, 13837, 15049, 20413, 23213, 26123, 31553, 34933, 35657, 35723, 37909, 37979, 38021, 41449, 42919, 44197, 45113, 51019, 53531, 58339, 63407, 66013, 70531, 72929, 73373, 73903, 75763, 83411, 87361, 90581

Offset: 1

Gus Wiseman, Sep 30 2019

nonn

			The sequence of terms together with their prime indices begins:
      1: {}
    667: {9,10}
   2021: {14,15}
   4331: {18,20}
   5767: {21,22}
   7081: {21,25}
   7663: {22,25}
  11021: {27,28}
  11639: {27,30}
  12091: {28,30}
  13837: {26,33}
  15049: {26,35}
  20413: {33,35}
  23213: {34,39}
  26123: {36,40}
  31553: {34,49}
  34933: {42,44}
  35657: {42,45}
  35723: {34,55}
  37909: {39,49}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Equal omega: A327900
Equal sum of prime indices: A327901
Equal average of prime indices: A327902
Cf. A001222, A038041, A056239, A112798, A320324, A326574, A327899.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[10000],!PrimeQ[#]&&SquareFreeQ[#]&&SameQ@@PrimeOmega/@primeMS[#]&&SameQ@@Total/@primeMS/@primeMS[#]&]

A358335 Number of integer compositions of n whose parts have weakly decreasing numbers of prime factors (with multiplicity).

Original entry on oeis.org

1, 1, 2, 3, 5, 8, 12, 19, 29, 44, 68, 100, 153, 227, 342, 509, 759, 1129, 1678, 2492, 3699, 5477, 8121, 12015, 17795, 26313, 38924, 57541, 85065, 125712, 185758, 274431, 405420, 598815, 884465, 1306165, 1928943, 2848360, 4205979, 6210289, 9169540

Offset: 0

Gus Wiseman, Dec 05 2022

nonn

			The a(0) = 1 through a(6) = 12 compositions:
  ()  (1)  (2)   (3)    (4)     (5)      (6)
           (11)  (21)   (22)    (23)     (33)
                 (111)  (31)    (32)     (42)
                        (211)   (41)     (51)
                        (1111)  (221)    (222)
                                (311)    (231)
                                (2111)   (321)
                                (11111)  (411)
                                         (2211)
                                         (3111)
                                         (21111)
                                         (111111)

Alois P. Heinz, Table of n, a(n) for n = 0..2000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

For lengths of partitions see A141199, compositions A218482.
The strictly decreasing case is A358901.
The version not counting multiplicity is A358902, strict A358903.
The case of partitions is A358909, complement A358910.
The case of equality is A358911, partitions A319169.
A001222 counts prime factors, distinct A001221.
A011782 counts compositions.
A063834 counts twice-partitions.
Cf. A056239, A300335, A319071, A320324, A358831, A358904, A358908.

Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],GreaterEqual@@PrimeOmega/@#&]],{n,0,10}]

a(21) and beyond from Lucas A. Brown, Dec 15 2022

cp's OEIS Frontend

A326537 MM-numbers of multiset partitions where each part has a different average.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A326783 BII-numbers of uniform set-systems.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A358901 Number of integer partitions of n whose parts have all different numbers of prime factors (A001222).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A358905 Number of sequences of integer partitions with total sum n that are rectangular, meaning all lengths are equal.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A326536 MM-numbers of multiset partitions where every part has the same average.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A358911 Number of integer compositions of n whose parts all have the same number of prime factors, counted with multiplicity.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A375400 Heinz number of the multiset of minima of maximal anti-runs in the weakly increasing prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A374704 Number of ways to choose an integer partition of each part of an integer composition of n (A055887) such that the minima are identical.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs