A316313 -id:A316313 - cp's OEIS frontend

A360243 Number of integer partitions of n where the parts have the same mean as the distinct parts.

1, 1, 2, 3, 4, 4, 8, 6, 11, 11, 17, 13, 28, 19, 32, 40, 48, 39, 71, 55, 103, 105, 110, 105, 197, 170, 195, 237, 319, 257, 462, 341, 515, 543, 584, 784, 1028, 761, 973, 1153, 1606, 1261, 2137, 1611, 2368, 2815, 2575, 2591, 4393, 3798, 4602, 4663, 5777, 5121

Offset: 0

Gus Wiseman, Feb 04 2023

nonn

			The a(1) = 1 through a(8) = 11 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (11111)  (51)      (61)       (62)
                                     (222)     (421)      (71)
                                     (321)     (1111111)  (431)
                                     (2211)               (521)
                                     (111111)             (2222)
                                                          (3221)
                                                          (3311)
                                                          (11111111)

For multiplicities instead of distinct parts we have A360068.
The complement is counted by A360242, ranks A360246.
For median instead of mean we have A360245, complement A360244.
These partitions have ranks A360247.
Cf. A360250 and A360251, ranks A360252 and A360253.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by number of parts.
A058398 counts partitions by mean, also A327482.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A116608 counts partitions by number of distinct parts.
A360071 counts partitions by number of parts and number of distinct parts.
A360241 counts partitions whose distinct parts have integer mean.
Cf. A051293, A067340, A240219, A316313, A326567/A326568, A326619/A326620, A326621, A349156, A360069.

Table[Length[Select[IntegerPartitions[n],Mean[#]==Mean[Union[#]]&]],{n,0,30}]

A360069 Number of integer partitions of n whose multiset of multiplicities has integer mean.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 9, 9, 13, 16, 25, 26, 39, 42, 62, 67, 95, 107, 147, 168, 225, 245, 327, 381, 471, 565, 703, 823, 1038, 1208, 1443, 1743, 2088, 2439, 2937, 3476, 4163, 4921, 5799, 6825, 8109, 9527, 11143, 13122, 15402, 17887, 20995, 24506, 28546, 33234, 38661

Offset: 0

Gus Wiseman, Jan 27 2023

nonn

			The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (2111)   (51)      (61)       (62)
                            (11111)  (222)     (421)      (71)
                                     (321)     (2221)     (431)
                                     (2211)    (4111)     (521)
                                     (3111)    (211111)   (2222)
                                     (111111)  (1111111)  (3311)
                                                          (5111)
                                                          (221111)
                                                          (311111)
                                                          (11111111)
For example,  the partition (3,2,1,1,1,1) has multiplicities (1,1,4) with mean 2, so is counted under a(9). On the other hand, the partition (3,2,2,1,1) has multiplicities (1,2,2) with mean 5/3, so is not counted under a(9).

These partitions are ranked by A067340 (prime signature has integer mean).
Parts instead of multiplicities: A067538, strict A102627, ranked by A316413.
The case where the parts have integer mean also is ranked by A359905.
A000041 counts integer partitions, strict A000009.
A051293 counts subsets with integer mean, median A000975.
A058398 counts partitions by mean, see also A008284, A327482.
A088529/A088530 gives mean of prime signature (A124010).
A326622 counts factorizations with integer mean, strict A328966.
Cf. A082550, A240219, A316313, A325347, A326669, A327475, A349156, A360068.

Table[Length[Select[IntegerPartitions[n], IntegerQ[Mean[Length/@Split[#]]]&]],{n,0,30}]

A319318 Number of integer partitions of n such that every distinct submultiset has a different GCD.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 2, 3, 3, 5, 2, 6, 5, 5, 5, 8, 5, 9, 6, 8, 9, 11, 6, 11, 11, 11, 10, 14, 9, 16, 12, 14, 15, 15, 11, 19, 17, 17, 14, 22, 15, 22, 18, 18, 21, 25, 16, 24, 21, 23, 22, 28, 21, 26, 22, 26, 27, 32, 20, 35, 30, 27, 27, 31, 27, 38, 30, 33, 29

Offset: 1

Gus Wiseman, Sep 17 2018

nonn

Note that such partitions are necessarily strict.

			The a(31) = 16 partitions are (31), (16,15), (17,14), (18,13), (19,12), (20,11), (21,10), (22,9), (23,8), (24,7), (25,6), (26,5), (27,4), (28,3), (29,2), (15,10,6).

Cf. A108917, A275972, A289508, A289509, A316313, A319315, A319319, A319320.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&UnsameQ@@GCD@@@Union[Rest[Subsets[#]]]&]],{n,30}]

A359909 Number of integer factorizations of n into factors > 1 with the same mean as median.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 3, 1, 2, 2, 4, 1, 3, 1, 3, 2, 2, 1, 5, 2, 2, 3, 3, 1, 4, 1, 4, 2, 2, 2, 6, 1, 2, 2, 4, 1, 4, 1, 3, 3, 2, 1, 6, 2, 3, 2, 3, 1, 4, 2, 4, 2, 2, 1, 7, 1, 2, 3, 7, 2, 4, 1, 3, 2, 4, 1, 7, 1, 2, 3, 3, 2, 4, 1, 6, 4, 2, 1, 6, 2, 2, 2, 4, 1, 6, 2, 3, 2, 2, 2, 6, 1, 3, 3, 6, 1, 4, 1, 4, 5, 2, 1, 6, 1, 4, 2, 5, 1, 4, 2, 3, 3, 2, 2, 11

Offset: 1

Gus Wiseman, Jan 24 2023

nonn

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			The a(n) factorizations for n = 24, 36, 60, 120, 144, 360:
  24      36        60      120       144       360
  3*8     4*9       2*30    2*60      2*72      4*90
  4*6     6*6       3*20    3*40      3*48      5*72
  2*12    2*18      4*15    4*30      4*36      6*60
  2*3*4   3*12      5*12    5*24      6*24      8*45
          2*2*3*3   6*10    6*20      8*18      9*40
                    3*4*5   8*15      9*16      10*36
                            10*12     12*12     12*30
                            4*5*6     2*2*6*6   15*24
                            2*6*10    3*3*4*4   18*20
                            2*3*4*5             2*180
                                                3*120
                                                2*10*18
                                                3*4*5*6

Antti Karttunen, Table of n, a(n) for n = 1..65537

The version for partitions is A240219, complement A359894.
These multisets are ranked by A359889.
The version for strict partitions is A359897.
The odd-length case is A359910.
The complement is counted by A359911.
A001055 counts factorizations.
A058398 counts partitions by mean, see also A008284, A327482.
A326622 counts factorizations with integer mean, strict A328966.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A316313, A326567/A326568, A359906, A360005.

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

median(lista) = if((#lista)%2, lista[(1+#lista)/2], (lista[#lista/2]+lista[1+(#lista/2)])/2);
A359909(n, m=n, facs=List([])) = if(1==n, (#facs>0 && (median(facs)==(vecsum(Vec(facs))/#facs))), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A359909(n/d, d, newfacs))); (s)); \\ Antti Karttunen, Jan 20 2025

More terms from Antti Karttunen, Jan 20 2025

A360250 Number of integer partitions of n where the parts have greater mean than the distinct parts.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 2, 2, 3, 3, 9, 5, 13, 15, 18, 20, 37, 34, 59, 51, 68, 92, 134, 121, 167, 203, 251, 282, 387, 375, 537, 561, 714, 888, 958, 1042, 1408, 1618, 1939, 2076, 2650, 2764, 3479, 3863, 4431, 5387, 6520, 6688, 8098, 9041, 10614, 12084, 14773, 15469

Offset: 0

Gus Wiseman, Feb 06 2023

nonn

			The a(5) = 1 through a(12) = 5 partitions:
  (221)  .  (331)   (332)    (441)    (442)     (443)      (552)
            (2221)  (22211)  (3321)   (3331)    (551)      (4431)
                             (22221)  (222211)  (3332)     (33321)
                                                (4331)     (44211)
                                                (4421)     (2222211)
                                                (33221)
                                                (33311)
                                                (222221)
                                                (2222111)
For example, the partition y = (4,3,3,1) has mean 11/4 and distinct parts {1,3,4} with mean 8/5, so y is counted under a(11).

For unequal instead of greater we have A360242, ranks A360246.
For equal instead of greater we have A360243, ranks A360247.
For less instead of greater we have A360251, ranks A360253.
These partitions have ranks A360252.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by number of parts.
A058398 counts partitions by mean, also A327482.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A116608 counts partitions by number of distinct parts.
A240219 counts partitions with mean equal to median, ranks A359889.
A359894 counts partitions with mean different from median, ranks A359890.
A360071 counts partitions by number of parts and number of distinct parts.
Cf. A000975, A316313, A326567/A326568, A326619/A326620, A326621, A360068, A360241, A360244, A360245.

Table[Length[Select[IntegerPartitions[n],Mean[#]>Mean[Union[#]]&]],{n,0,30}]

a(n) + A360251(n) = A360242(n).

a(n) + A360251(n) + A360243(n) = A000041(n).

A360251 Number of integer partitions of n where the parts have lesser mean than the distinct parts.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 3, 7, 9, 16, 22, 34, 44, 69, 88, 118, 163, 221, 280, 376, 473, 619, 800, 1016, 1257, 1621, 2038, 2522, 3117, 3921, 4767, 5964, 7273, 8886, 10838, 13141, 15907, 19468, 23424, 28093, 33656, 40672, 48273, 58171, 68944, 81888, 97596, 115643

Offset: 0

Gus Wiseman, Feb 06 2023

nonn

			The a(4) = 1 through a(9) = 16 partitions:
  (211)  (311)   (411)    (322)     (422)      (522)
         (2111)  (3111)   (511)     (611)      (711)
                 (21111)  (3211)    (4211)     (3222)
                          (4111)    (5111)     (4221)
                          (22111)   (32111)    (4311)
                          (31111)   (41111)    (5211)
                          (211111)  (221111)   (6111)
                                    (311111)   (32211)
                                    (2111111)  (33111)
                                               (42111)
                                               (51111)
                                               (321111)
                                               (411111)
                                               (2211111)
                                               (3111111)
                                               (21111111)
For example, the partition y = (4,2,2,1) has mean 9/4 and distinct parts {1,2,4} with mean 7/3, so y is counted under a(9).

For unequal instead of less we have A360242, ranks A360246.
For equal instead of less we have A360243, ranks A360247.
For greater instead of less we have A360250, ranks A360252.
These partitions have ranks A360253.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by number of parts.
A058398 counts partitions by mean, also A327482.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A116608 counts partitions by number of distinct parts.
A240219 counts partitions with mean equal to median, ranks A359889.
A359894 counts partitions with mean different from median, ranks A359890.
A360071 counts partitions by number of parts and number of distinct parts.
Cf. A000975, A316313, A326567/A326568, A326619/A326620, A326621, A360068, A360241, A360244, A360245.

Table[Length[Select[IntegerPartitions[n],Mean[#]

a(n) + A360250(n) = A360242(n).

a(n) + A360250(n) + A360243(n) = A000041(n).

A359896 Number of odd-length integer partitions of n whose parts do not have the same mean as median.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 2, 6, 9, 11, 15, 27, 32, 50, 58, 72, 112, 149, 171, 246, 286, 359, 477, 630, 773, 941, 1181, 1418, 1749, 2289, 2668, 3429, 4162, 4878, 6074, 7091, 8590, 10834, 12891, 15180, 18491, 22314, 25845, 31657, 36394, 42269, 52547, 62414, 73576, 85701

Offset: 0

Gus Wiseman, Jan 20 2023

nonn

			The a(4) = 1 through a(9) = 11 partitions:
  (211)  (221)  (411)    (322)    (332)      (441)
         (311)  (21111)  (331)    (422)      (522)
                         (421)    (431)      (621)
                         (511)    (521)      (711)
                         (22111)  (611)      (22221)
                         (31111)  (22211)    (32211)
                                  (32111)    (33111)
                                  (41111)    (42111)
                                  (2111111)  (51111)
                                             (2211111)
                                             (3111111)

These partitions are ranked by A359892.
The any-length version is A359894, complement A240219, strict A359898.
The complement is counted by A359895, ranked by A359891.
The strict case is A359900, complement A359899.
A000041 counts partitions, strict A000009.
A008284/A058398/A327482 count partitions by mean, ranked by A326567/A326568.
A027193 counts odd-length partitions, strict A067659, ranked by A026424.
A067538 counts ptns with integer mean, strict A102627, ranked by A316413.
A237984 counts ptns containing their mean, strict A240850, ranked by A327473.
A325347 counts ptns with integer median, strict A359907, ranked by A359908.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A008289, A066571, A316313, A327472, A327482, A359890, A359906, A359910.

Table[Length[Select[IntegerPartitions[n], OddQ[Length[#]]&&Mean[#]!=Median[#]&]],{n,0,30}]

A267597 Number of sum-product knapsack partitions of n. Number of integer partitions y of n such that every sum of products of the parts of a multiset partition of any submultiset of y is distinct.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 3, 3, 4, 4, 6, 7, 8, 12, 12, 14, 18, 23, 23, 32, 30, 35, 50, 48, 47, 56, 80, 77, 87, 105, 100, 134, 139, 145, 194, 170, 192, 250

Offset: 0

Gus Wiseman, Oct 04 2018

			The sequence of product-sum knapsack partitions begins:
   0: ()
   1: (1)
   2: (2)
   3: (3)
   4: (4)
   5: (5) (3,2)
   6: (6) (4,2) (3,3)
   7: (7) (5,2) (4,3)
   8: (8) (6,2) (5,3) (4,4)
   9: (9) (7,2) (6,3) (5,4)
  10: (10) (8,2) (7,3) (6,4) (5,5) (4,3,3)
  11: (11) (9,2) (8,3) (7,4) (6,5) (5,4,2) (5,3,3)
The partition (4,4,3) is not a sum-product knapsack partition of 11 because (4*4) = (4)+(4*3).
A complete list of all sums of products of multiset partitions of submultisets of (5,4,2) is:
            0 = 0
          (2) = 2
          (4) = 4
          (5) = 5
        (2*4) = 8
        (2*5) = 10
        (4*5) = 20
      (2*4*5) = 40
      (2)+(4) = 6
      (2)+(5) = 7
    (2)+(4*5) = 22
      (4)+(5) = 9
    (4)+(2*5) = 14
    (5)+(2*4) = 13
  (2)+(4)+(5) = 11
These are all distinct, so (5,4,2) is a sum-product knapsack partition of 11.

Sean A. Irvine, Java program (github)

Cf. A001970, A066739, A108917, A275972, A292886, A316313, A318949, A319318, A319320, A319910, A319913.

Cf. A320052, A320053, A320054, A320055, A320056, A320057, A320058.

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]]]];
rrtuks[n_]:=Select[IntegerPartitions[n],Function[q,UnsameQ@@Apply[Plus,Apply[Times,Union@@mps/@Union[Subsets[q]],{2}],{1}]]];
Table[Length[rrtuks[n]],{n,12}]

a(13)-a(37) from Sean A. Irvine, Jul 13 2022

A319315 Heinz numbers of integer partitions such that every distinct submultiset has a different average.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 55, 57, 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

Offset: 1

Gus Wiseman, Sep 17 2018

nonn

Note that such a Heinz number is necessarily squarefree, as such a partition is necessarily strict.
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
First differs from A301899 at a(43) = 70, because (4,3,1) is not knapsack but every submultiset has a different average.

			The sequence of partitions whose Heinz numbers belong to the sequence begins: (), (1), (2), (3), (2,1), (4), (3,1), (5), (6), (4,1), (3,2), (7), (8), (4,2), (5,1), (9), (6,1), (10), (11), (5,2), (7,1), (4,3), (12), (8,1), (6,2), (13), (4,2,1).

Cf. A000009, A056239, A122768, A237984, A275972, A299702, A301899, A316313, A316314, A316465.

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

A316556 Number of distinct LCMs of nonempty submultisets of the integer partition with Heinz number n.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 3, 1, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 4, 1, 1, 3, 2, 3, 2, 1, 2, 2, 2, 1, 3, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 1, 2, 3, 2, 2, 2, 1, 4, 1, 2, 2, 1, 2, 4, 1, 2, 3, 4, 1, 2, 1, 2, 3, 2, 3, 3, 1, 2, 1, 2, 1, 3, 3, 2, 2, 2, 1, 4, 3, 2, 3, 2, 3, 2, 1, 2, 3, 2, 1, 4, 1, 2, 5

Offset: 1

Gus Wiseman, Jul 06 2018

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Number of distinct values obtained when A290103 is applied to all divisors of n larger than one. - Antti Karttunen, Sep 25 2018

			462 is the Heinz number of (5,4,2,1) which has possible LCMs of nonempty submultisets {1,2,4,5,10,20} so a(462) = 6.

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A056239, A074761, A108917, A122768, A275972, A290103, A296150, A301957, A316313, A316314, A316430, A316555, A316557.

Cf. also A304793, A305611, A319685, A319695 for other similarly constructed sequences.

Table[Length[Union[LCM@@@Rest[Subsets[If[n==1,{},Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]]]]]]],{n,100}]

A290103(n) = lcm(apply(p->primepi(p),factor(n)[,1]));
A316556(n) = { my(m=Map(),s,k=0); fordiv(n,d,if((d>1)&&!mapisdefined(m,s=A290103(d)), mapput(m,s,s); k++)); (k); }; \\ Antti Karttunen, Sep 25 2018

More terms from Antti Karttunen, Sep 25 2018

cp's OEIS Frontend

A360243 Number of integer partitions of n where the parts have the same mean as the distinct parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A360069 Number of integer partitions of n whose multiset of multiplicities has integer mean.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A319318 Number of integer partitions of n such that every distinct submultiset has a different GCD.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A359909 Number of integer factorizations of n into factors > 1 with the same mean as median.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A360250 Number of integer partitions of n where the parts have greater mean than the distinct parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A360251 Number of integer partitions of n where the parts have lesser mean than the distinct parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A359896 Number of odd-length integer partitions of n whose parts do not have the same mean as median.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A267597 Number of sum-product knapsack partitions of n. Number of integer partitions y of n such that every sum of products of the parts of a multiset partition of any submultiset of y is distinct.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A319315 Heinz numbers of integer partitions such that every distinct submultiset has a different average.

Views

Author

Keywords

Comments

Examples