A067538 -id:A067538 - cp's OEIS frontend

A359907 Number of strict integer partitions of n with integer median.

0, 1, 1, 1, 2, 1, 4, 2, 6, 4, 9, 6, 14, 10, 18, 16, 27, 23, 36, 34, 51, 49, 67, 68, 94, 95, 122, 129, 166, 174, 217, 233, 287, 308, 371, 405, 487, 528, 622, 683, 805, 880, 1024, 1127, 1305, 1435, 1648, 1818, 2086, 2295, 2611, 2882, 3273, 3606, 4076, 4496, 5069

Offset: 0

Gus Wiseman, Jan 21 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(1) = 1 through a(14) = 18 partitions (A..E = 10..14):
  1  2  3  4   5  6    7    8    9    A    B    C     D     E
           31     42   421  53   432  64   542  75    643   86
                  51        62   531  73   632  84    652   95
                  321       71   621  82   641  93    742   A4
                            431       91   731  A2    751   B3
                            521       532  821  B1    832   C2
                                      541       543   841   D1
                                      631       642   931   653
                                      721       651   A21   743
                                                732   6421  752
                                                741         761
                                                831         842
                                                921         851
                                                5421        932
                                                            941
                                                            A31
                                                            B21
                                                            7421

For mean instead of median: A102627, non-strict A067538 (ranked by A316413).
This is the strict case of A325347, ranked by A359908.
The median statistic is ranked by A360005(n)/2.
A000041 counts partitions, strict A000009.
A051293 counts subsets with integer mean, median A000975, cf. A005578.
A058398 counts partitions by mean, see also A008284, A327482.
A326567/A326568 gives the mean of prime indices.
A359893, A359901, A359902 count partitions by median.
Cf. A000016, A082550, A240219, A240850, A326669, A327475, A328966, A359897.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&IntegerQ[Median[#]]&]],{n,0,30}]

A326622 Number of factorizations of n into factors > 1 with integer average.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 14 2019

nonn

			The a(80) = 7 factorizations:
  (2*2*2*10)
  (2*2*20)
  (2*5*8)
  (2*40)
  (4*20)
  (8*10)
  (80)

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

Partitions with integer average are A067538.
Strict partitions with integer average are A102627.
Heinz numbers of partitions with integer average are A316413.
Factorizations with integer geometric mean are A326028.
Cf. A001055, A051293, A078174, A078175, A326514, A326515, A326567/A326568, A326621, A326623, A326667 (= a(2^n)), A327906 (positions of 1's), A327907 (of terms > 1).

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],IntegerQ[Mean[#]]&]],{n,2,100}]

A326622(n, m=n, facsum=0, facnum=0) = if(1==n,facnum > 0 && 1==denominator(facsum/facnum), my(s=0); fordiv(n, d, if((d>1)&&(d<=m), s += A326622(n/d, d, facsum+d, facnum+1))); (s)); \\ Antti Karttunen, Nov 10 2024

Data section extended up to a(108), with missing term a(1)=0 also added (thus correcting the offset) - Antti Karttunen, Nov 10 2024

A143773 Number of partitions of n such that every part is divisible by number of parts.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 3, 2, 3, 1, 5, 1, 4, 3, 6, 1, 8, 1, 7, 5, 6, 1, 14, 2, 7, 8, 11, 1, 17, 1, 14, 11, 9, 3, 29, 1, 10, 15, 23, 1, 28, 1, 23, 25, 12, 1, 51, 2, 20, 25, 32, 1, 44, 11, 39, 31, 15, 1, 94, 1, 16, 40, 52, 19, 64, 1, 57, 45, 44, 1, 126, 1, 19, 83, 74, 6, 90, 1, 124, 63, 21, 1, 186

Offset: 1

Vladeta Jovovic, Aug 31 2008

			The a(18) = 8 partitions are (18), (10 8), (12 6), (14 4), (16 2), (6 6 6), (9 6 3), (12 3 3). - _Gus Wiseman_, Jan 26 2018

Alois P. Heinz, Table of n, a(n) for n = 1..10000

Cf. A000005, A000041, A067538, A143862, A298422, A298423, A298426.

m = 100;
gf = Sum[x^(k^2)/Product[1-x^(k*i), {i, 1, k}], {k, 1, Sqrt[m]//Ceiling}];
CoefficientList[gf + O[x]^m, x] // Rest (* Jean-François Alcover, May 13 2019 *)

Vec(sum(k=1,20,x^(k^2)/prod(i=1,k,1-x^(k*i)+O(x^400)))) \\ Max Alekseyev, May 03 2009

G.f.: Sum(x^(k^2)/Product(1-x^(k*i), i=1..k), k=1..infinity).

For prime p, a(p) = 1 and a(p^2) = 2. For odd prime p, a(2*p) = (p + 1)/2. - Peter Bala, Mar 03 2025

More terms from Max Alekseyev, May 03 2009

A327476 Heinz numbers of integer partitions whose mean A326567/A326568 is not a part.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Sep 13 2019

nonn

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

			The sequence of terms together with their prime indices begins:
    1: {}
    6: {1,2}
   10: {1,3}
   12: {1,1,2}
   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}
   33: {2,5}
   34: {1,7}
   35: {3,4}
   36: {1,1,2,2}
   38: {1,8}
   39: {2,6}
   40: {1,1,1,3}

Complement of A327473.
The enumeration of these partitions by sum is given by A327472.
Subsets whose mean is not an element are A327471.
Cf. A056239, A067538, A112798, A114639, A237984, A240851, A316413, A324756, A324758, A326567/A326568, A327477.

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

A327472 Number of integer partitions of n not containing their mean.

Original entry on oeis.org

1, 0, 0, 1, 2, 5, 6, 13, 16, 25, 34, 54, 56, 99, 121, 154, 201, 295, 324, 488, 541, 725, 957, 1253, 1292, 1892, 2356, 2813, 3378, 4563, 4838, 6840, 7686, 9600, 12076, 14180, 15445, 21635, 25627, 29790, 33309, 44581, 48486, 63259, 70699, 82102, 104553, 124752

Offset: 0

Gus Wiseman, Sep 13 2019

nonn

			The a(3) = 1 through a(8) = 16 partitions not containing their mean:
  (21)  (31)   (32)    (42)     (43)      (53)
        (211)  (41)    (51)     (52)      (62)
               (221)   (411)    (61)      (71)
               (311)   (2211)   (322)     (332)
               (2111)  (3111)   (331)     (422)
                       (21111)  (421)     (431)
                                (511)     (521)
                                (2221)    (611)
                                (3211)    (3311)
                                (4111)    (5111)
                                (22111)   (22211)
                                (31111)   (32111)
                                (211111)  (41111)
                                          (221111)
                                          (311111)
                                          (2111111)

The Heinz numbers of these partitions are A327476.
Partitions with their mean are A237984.
Subsets without their mean are A327471.
Subsets with n but without their mean are A327477.
Strict partitions without their mean are A240851.
Cf. A007865, A067538, A067538, A102627, A114639, A324756, A327473.

Table[Length[Select[IntegerPartitions[n],!MemberQ[#,Mean[#]]&]],{n,0,20}]

from sympy.utilities.iterables import partitions
def A327472(n): return sum(1 for s,p in partitions(n,size=True) if n%s or n//s not in p) if n else 1 # Chai Wah Wu, Sep 21 2023

A298422 Number of rooted trees with n nodes in which all positive outdegrees are the same.

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 5, 2, 6, 4, 9, 2, 20, 2, 26, 12, 53, 2, 120, 2, 223, 43, 454, 2, 1100, 11, 2182, 215, 4902, 2, 11446, 2, 24744, 1242, 56014, 58, 131258, 2, 293550, 7643, 676928, 2, 1582686, 2, 3627780, 49155, 8436382, 2, 19809464, 50, 46027323, 321202

Offset: 1

Gus Wiseman, Jan 19 2018

nonn

Row sums of A298426.

			The a(9) = 6 trees: ((((((((o)))))))), (o(o(o(oo)))), (o((oo)(oo))), ((oo)(o(oo))), (ooo(oooo)), (oooooooo).

Alois P. Heinz, Table of n, a(n) for n = 1..200

Cf. A000005, A000081, A000598, A001190, A001678, A003238, A004111, A008864, A032305, A067538, A111299, A124343, A143773, A289078, A289079, A295461, A298118, A298204, A298423, A298424, A298426.

srut[n_]:=srut[n]=If[n===1,{{}},Select[Join@@Function[c,Union[Sort/@Tuples[srut/@c]]]/@Select[IntegerPartitions[n-1],Function[ptn,And@@(Divisible[#-1,Length[ptn]]&/@ptn)]],SameQ@@Length/@Cases[#,{},{0,Infinity}]&]];
Table[srut[n]//Length,{n,20}]

a(n) = 2 <=> n in {A008864}. - Alois P. Heinz, Jan 20 2018

a(44)-a(52) from Alois P. Heinz, Jan 20 2018

A326836 Heinz numbers of integer partitions whose maximum part divides their sum.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 26 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers whose maximum prime index divides their sum of prime indices.

The enumeration of these partitions by sum is given by A067538.

			The sequence of terms together with their prime indices begins:
    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}
   30: {1,2,3}
   31: {11}
   32: {1,1,1,1,1}

Cf. A018818, A047993, A056239, A061395, A067538, A112798, A316413.

Cf. A326837, A326838, A326839/A326840, A326841, A326843, A326850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[200],Divisible[Total[primeMS[#]],Max[primeMS[#]]]&]

A359894 Number of integer partitions of n whose parts do not have the same mean as median.

Original entry on oeis.org

0, 0, 0, 0, 1, 3, 3, 10, 13, 20, 28, 49, 53, 93, 113, 145, 203, 287, 329, 479, 556, 724, 955, 1242, 1432, 1889, 2370, 2863, 3502, 4549, 5237, 6825, 8108, 9839, 12188, 14374, 16958, 21617, 25852, 30582, 36100, 44561, 51462, 63238, 73386, 85990, 105272, 124729

Offset: 0

Gus Wiseman, Jan 20 2023

nonn

			The a(4) = 1 through a(8) = 13 partitions:
  (211)  (221)   (411)    (322)     (332)
         (311)   (3111)   (331)     (422)
         (2111)  (21111)  (421)     (431)
                          (511)     (521)
                          (2221)    (611)
                          (3211)    (4211)
                          (4111)    (5111)
                          (22111)   (22211)
                          (31111)   (32111)
                          (211111)  (41111)
                                    (221111)
                                    (311111)
                                    (2111111)

The complement is counted by A240219.
These partitions are ranked by A359890, complement A359889.
The odd-length case is ranked by A359892, complement A359891.
The odd-length case is A359896, complement A359895.
The strict case is A359898, complement A359897.
The odd-length strict case is A359900, complement A359899.
A000041 counts partitions, strict A000009.
A008284 and A058398 count partitions by mean, ranked by A326567/A326568.
A008289 counts strict partitions by mean.
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.
A326622 counts factorizations with integer mean, strict A328966.
A359893 and A359901 count partitions by median, odd-length A359902.
A359909 counts factorizations with the same mean as median, odd-len A359910.
Cf. A066571, A316313, A327472, A327482, A349156, A359906.

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

A359912 Numbers whose prime indices do not have integer median.

Original entry on oeis.org

1, 6, 14, 15, 26, 33, 35, 36, 38, 51, 58, 60, 65, 69, 74, 77, 84, 86, 93, 95, 106, 119, 122, 123, 132, 141, 142, 143, 145, 150, 156, 158, 161, 177, 178, 185, 196, 201, 202, 204, 209, 210, 214, 215, 216, 217, 219, 221, 225, 226, 228, 249, 262, 265, 276, 278

Offset: 1

Gus Wiseman, Jan 24 2023

nonn

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 median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			The terms together with their prime indices begin:
   1: {}
   6: {1,2}
  14: {1,4}
  15: {2,3}
  26: {1,6}
  33: {2,5}
  35: {3,4}
  36: {1,1,2,2}
  38: {1,8}
  51: {2,7}
  58: {1,10}
  60: {1,1,2,3}

For prime factors instead of indices we have A072978, complement A359913.
These partitions are counted by A307683.
For mean instead of median: A348551, complement A316413, counted by A349156.
The complement is A359908, counted by A325347.
Positions of odd terms in A360005.
A112798 lists prime indices, length A001222, sum A056239.
A326567/A326568 gives the mean of prime indices, conjugate A326839/A326840.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A026424, A051293, A067538, A175352, A175761, A289509, A359890, A359905, A360006, A359907, A360009.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!IntegerQ[Median[prix[#]]]&]

A349156 Number of integer partitions of n whose mean is not an integer.

Original entry on oeis.org

1, 0, 0, 1, 1, 5, 3, 13, 11, 21, 28, 54, 31, 99, 111, 125, 165, 295, 259, 488, 425, 648, 933, 1253, 943, 1764, 2320, 2629, 2962, 4563, 3897, 6840, 6932, 9187, 11994, 12840, 12682, 21635, 25504, 28892, 28187, 44581, 42896, 63259, 66766, 74463, 104278, 124752

Offset: 0

Gus Wiseman, Nov 14 2021

nonn

Equivalently, partitions whose length does not divide their sum.

By conjugation, also the number of integer partitions of n with greatest part not dividing n.

			The a(3) = 1 through a(8) = 11 partitions:
  (21)  (211)  (32)    (2211)   (43)      (332)
               (41)    (3111)   (52)      (422)
               (221)   (21111)  (61)      (431)
               (311)            (322)     (521)
               (2111)           (331)     (611)
                                (421)     (22211)
                                (511)     (32111)
                                (2221)    (41111)
                                (3211)    (221111)
                                (4111)    (311111)
                                (22111)   (2111111)
                                (31111)
                                (211111)

Below, "!" means either enumerative or set theoretical complement.
The version for nonempty subsets is !A051293.
The complement is counted by A067538, ranked by A316413.
The geometric version is !A067539, strict !A326625, ranked by !A326623.
The strict case is !A102627.
The version for prime factors is A175352, complement A078175.
The version for distinct prime factors is A176587, complement A078174.
The ordered version (compositions) is !A271654, ranked by !A096199.
The multiplicative version (factorizations) is !A326622, geometric !A326028.
The conjugate is ranked by !A326836.
The conjugate strict version is !A326850.
These partitions are ranked by A348551.
A000041 counts integer partitions.
A326567/A326568 give the mean of prime indices, conjugate A326839/A326840.
A236634 counts unbalanced partitions, complement of A047993.
A327472 counts partitions not containing their mean, complement of A237984.
Cf. A001700, A074761, A098743, A143773, A175397, A175761, A298423, A326027, A326641, A326842, A326849, A327778.

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

a(n > 0) = A000041(n) - A067538(n).

cp's OEIS Frontend

A359907 Number of strict integer partitions of n with integer median.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A326622 Number of factorizations of n into factors > 1 with integer average.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A143773 Number of partitions of n such that every part is divisible by number of parts.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A327476 Heinz numbers of integer partitions whose mean A326567/A326568 is not a part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A327472 Number of integer partitions of n not containing their mean.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

A298422 Number of rooted trees with n nodes in which all positive outdegrees are the same.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A326836 Heinz numbers of integer partitions whose maximum part divides their sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A359894 Number of integer partitions of n whose parts do not have the same mean as median.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica