A326568 -id:A326568 - cp's OEIS frontend

A363942 High median in the multiset of prime indices of n.

0, 1, 2, 1, 3, 2, 4, 1, 2, 3, 5, 1, 6, 4, 3, 1, 7, 2, 8, 1, 4, 5, 9, 1, 3, 6, 2, 1, 10, 2, 11, 1, 5, 7, 4, 2, 12, 8, 6, 1, 13, 2, 14, 1, 2, 9, 15, 1, 4, 3, 7, 1, 16, 2, 5, 1, 8, 10, 17, 2, 18, 11, 2, 1, 6, 2, 19, 1, 9, 3, 20, 1, 21, 12, 3, 1, 5, 2, 22, 1, 2

Offset: 1

Gus Wiseman, Jul 01 2023

nonn

The high median (see A124944) in a multiset is either the middle part (for odd length), or the greatest of the two middle parts (for even length).

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 90 are {1,2,2,3}, with high median 2, so a(90) = 2.
The prime indices of 150 are {1,2,3,3}, with high median 3, so a(150) = 3.

Positions of first appearances are 1 and A000040.
The triangle for this statistic (high median) is A124944, low A124943.
Regular median of prime indices is A360005(n)/2.
For mode instead of median we have A363487, low A363486.
The low version is A363941.
For mean instead of median we have A363944, triangle A363946, low A363943.
A061395 give maximum prime index, A055396 minimum.
A112798 lists prime indices, length A001222, sum A056239.
A362611 counts modes in prime indices, triangle A362614.
Cf. A025065, A215366, A316413, A326567/A326568, A359889, A359908, A359912, A363727, A363949, A363950.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
merr[y_]:=If[Length[y]==0,0, If[OddQ[Length[y]],y[[(Length[y]+1)/2]],y[[1+Length[y]/2]]]];
Table[merr[prix[n]],{n,100}]

A363719 Number of integer partitions of n satisfying (mean) = (median) = (mode), assuming there is a unique mode.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 5, 3, 5, 2, 10, 2, 7, 7, 12, 2, 18, 2, 24, 16, 13, 2, 58, 15, 18, 37, 60, 2, 123, 2, 98, 79, 35, 103, 332, 2, 49, 166, 451, 2, 515, 2, 473, 738, 92, 2, 1561, 277, 839, 631, 1234, 2, 2043, 1560, 2867, 1156, 225, 2, 9020

Offset: 1

Gus Wiseman, Jun 19 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).
A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes of {a,a,b,b,b,c,d,d,d} are {b,d}.
Without loss of generality, we may assume there is a unique middle-part (A238478).
Includes all constant partitions.

			The a(n) partitions for n = 1, 2, 4, 6, 8, 12, 14, 16 (A..G = 10..16):
  1  2   4     6       8         C             E               G
     11  22    33      44        66            77              88
         1111  222     2222      444           2222222         4444
               111111  3221      3333          3222221         5443
                       11111111  4332          3322211         6442
                                 5331          4222211         7441
                                 222222        11111111111111  22222222
                                 322221                        32222221
                                 422211                        33222211
                                 111111111111                  42222211
                                                               52222111
                                                               1^16

For unequal instead of equal: A363720, ranks A363730, unique mode A363725.
The odd-length case is A363721.
These partitions have ranks A363727, nonprime A363722.
The case of non-constant partitions is A363728, ranks A363729.
The version for factorizations is A363741, see A359909, A359910.
Just two statistics:
- (mean) = (median) gives A240219, also A359889, A359895, A359897, A359899.
- (mean) != (median) gives A359894, also A359890, A359896, A359898, A359900.
- (mean) = (mode) gives A363723, see A363724, A363731.
- (median) = (mode) gives A363740.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length (or negative mean), strict A008289.
A359893 and A359901 count partitions by median, odd-length A359902.
A362608 counts partitions with a unique mode.
Cf. A027193, A237984, A325347, A326567/A326568, A327472, A363726, A363742.

modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n], {Mean[#]}=={Median[#]}==modes[#]&]],{n,30}]

A363941 Low median in the multiset of prime indices of n.

Original entry on oeis.org

0, 1, 2, 1, 3, 1, 4, 1, 2, 1, 5, 1, 6, 1, 2, 1, 7, 2, 8, 1, 2, 1, 9, 1, 3, 1, 2, 1, 10, 2, 11, 1, 2, 1, 3, 1, 12, 1, 2, 1, 13, 2, 14, 1, 2, 1, 15, 1, 4, 3, 2, 1, 16, 2, 3, 1, 2, 1, 17, 1, 18, 1, 2, 1, 3, 2, 19, 1, 2, 3, 20, 1, 21, 1, 3, 1, 4, 2, 22, 1, 2, 1

Offset: 1

Gus Wiseman, Jul 01 2023

nonn

The low median (see A124943) in a multiset is either the middle part (for odd length), or the least of the two middle parts (for even length).

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 90 are {1,2,2,3}, with low median 2, so a(90) = 2.
The prime indices of 150 are {1,2,3,3}, with low median 2, so a(150) = 2.

Positions of first appearances are 1 and A000040.
The triangle for this statistic (low median) is A124943, high A124944.
Median of prime indices is A360005(n)/2.
For mode instead of median we have A363486, high A363487.
Positions of 1's are A363488.
The high version is A363942.
A067538 counts partitions with integer mean, ranked by A316413.
A112798 lists prime indices, length A001222, sum A056239.
A363943 gives low mean of prime indices, triangle A363945.
A363944 gives high mean of prime indices, triangle A363946.
Cf. A025065, A215366, A326567/A326568, A344296, A359889, A359908, A363727, A363740.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
mell[y_]:=If[Length[y]==0,0, If[OddQ[Length[y]],y[[(Length[y]+1)/2]],y[[Length[y]/2]]]];
Table[mell[prix[n]],{n,30}]

A363949 Numbers whose prime indices have mean 1 when rounded down.

Original entry on oeis.org

2, 4, 6, 8, 12, 16, 18, 20, 24, 32, 36, 40, 48, 54, 56, 60, 64, 72, 80, 96, 108, 112, 120, 128, 144, 160, 162, 168, 176, 180, 192, 200, 216, 224, 240, 256, 288, 320, 324, 336, 352, 360, 384, 400, 416, 432, 448, 480, 486, 504, 512, 528, 540, 560, 576, 600, 640

Offset: 1

Gus Wiseman, Jul 02 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 terms together with their prime indices begin:
    2: {1}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   24: {1,1,1,2}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   40: {1,1,1,3}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   56: {1,1,1,4}
   60: {1,1,2,3}
   64: {1,1,1,1,1,1}

These partitions are counted by A025065.
Before rounding down we had A326567/A326568.
For mode instead of mean we have A360015, counted by A241131.
For median instead of mean we have A363488, counted by A027336.
Positions of 1's in A363943, triangle A363945.
For the usual rounding (not low or high) we have A363948, counted by A363947.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A360005 gives twice the median of prime indices.
A363941 gives low median of prime indices, triangle A124943.
A363942 gives high median of prime indices, triangle A124944.
For mean 2 instead of 1 we have A363950, counted by A026905 redoubled.
Cf. A051293, A327473, A327476, A344296, A359889, A360013, A363723, A363727, A363946, A363951.

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

a(n) = 2*A344296(n).

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

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 3, 2, 1, 5, 5, 2, 5, 2, 8, 18, 1, 2, 19, 2, 24, 41, 20, 2, 9, 44, 31, 94, 102, 2, 125, 2, 1, 206, 68, 365, 382, 2, 98, 433, 155, 2, 716, 2, 1162, 2332, 196, 2, 17, 1108, 563, 1665, 3287, 2, 3906, 5474, 2005, 3083, 509, 2, 9029

Offset: 0

Gus Wiseman, Jan 20 2023

nonn

The length and median of such a partition are integers with product n.

			The a(1) = 1 through a(9) = 5 partitions:
  (1)  (2)  (3)    (4)  (5)      (6)    (7)        (8)  (9)
            (111)       (11111)  (222)  (1111111)       (333)
                                 (321)                  (432)
                                                        (531)
                                                        (111111111)
The a(15) = 18 partitions:
  (15)
  (5,5,5)
  (6,5,4)
  (7,5,3)
  (8,5,2)
  (9,5,1)
  (3,3,3,3,3)
  (4,3,3,3,2)
  (4,4,3,2,2)
  (4,4,3,3,1)
  (5,3,3,2,2)
  (5,3,3,3,1)
  (5,4,3,2,1)
  (5,5,3,1,1)
  (6,3,3,2,1)
  (6,4,3,1,1)
  (7,3,3,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

This is the odd-length case of A240219, complement A359894, strict A359897.
These partitions are ranked by A359891, complement A359892.
The complement is counted by A359896.
The strict case is A359899, complement A359900.
The version for factorizations is A359910.
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, A316313, A327472, A327475, A327482, A359889, A359906.

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

\\ P(n, k, m) is g.f. for k parts of max size m.
P(n, k, m)={polcoef(1/prod(i=1, m, 1 - y*x^i + O(x*x^n)), k, y)}
a(n)={if(n==0, 0, sumdiv(n, d, if(d%2, my(m=n/d, h=d\2, r=n-m*(h+1)+h); polcoef(P(r, h, m)*P(r, h, r), r))))} \\ Andrew Howroyd, Jan 21 2023

a(p) = 2 for prime p. - Andrew Howroyd, Jan 21 2023

A359903 Numbers whose prime indices and prime signature have the same mean.

Original entry on oeis.org

1, 2, 9, 88, 100, 125, 624, 756, 792, 810, 880, 900, 1312, 2401, 4617, 4624, 6240, 7392, 7560, 7920, 8400, 9261, 9604, 9801, 10648, 12416, 23424, 33984, 37760, 45792, 47488, 60912, 66176, 71552, 73920, 75200, 78720, 83592, 89216, 89984, 91264, 91648, 99456

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.

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

			The terms together with their prime indices begin:
      1: {}
      2: {1}
      9: {2,2}
     88: {1,1,1,5}
    100: {1,1,3,3}
    125: {3,3,3}
    624: {1,1,1,1,2,6}
    756: {1,1,2,2,2,4}
    792: {1,1,1,2,2,5}
    810: {1,2,2,2,2,3}
    880: {1,1,1,1,3,5}
    900: {1,1,2,2,3,3}
   1312: {1,1,1,1,1,13}
   2401: {4,4,4,4}
   4617: {2,2,2,2,2,8}
   4624: {1,1,1,1,7,7}
   6240: {1,1,1,1,1,2,3,6}
   7392: {1,1,1,1,1,2,4,5}
   7560: {1,1,1,2,2,2,3,4}
   7920: {1,1,1,1,2,2,3,5}
Example: 810 has prime indices {1,2,2,2,2,3} and prime exponents (1,4,1), both of which have mean 2, so 810 is in the sequence.
Example: 78720 has prime indices {1,1,1,1,1,1,1,2,3,13} and prime exponents (7,1,1,1), both of which have mean 5/2, so 78720 is in the sequence.

Prime indices are A112798, sum A056239, mean A326567/A326568.
Prime signature is A124010, sum A001222, mean A088529/A088530.
For prime factors instead of indices we have A359904.
Partitions with these Heinz numbers are counted by A360068.
A058398 counts partitions by mean, see also A008284, A327482.
A067340 lists numbers whose prime signature has integer mean.
A316413 lists numbers whose prime indices have integer mean.
A360005 gives median of prime indices (times two).
Cf. A240219, A316313, A326622, A327473, A327476, A348551, A359905, A359908, A360008, A360069.

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

A363720 Number of integer partitions of n with different mean, median, and mode.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 2, 3, 5, 7, 16, 17, 34, 38, 50, 79, 115, 123, 198, 220, 291, 399, 536, 605, 815, 1036, 1241, 1520, 2059, 2315, 3132, 3708, 4491, 5668, 6587, 7788, 10259, 12299, 14515, 17153, 21558, 24623, 30876, 35540, 41476, 52023, 61931, 70811, 85545

Offset: 0

Gus Wiseman, Jun 21 2023

nonn

If there are multiple modes, then the mode is automatically considered different from the mean and median; otherwise, we take the unique mode.
The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).
A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes of {a,a,b,b,b,c,d,d,d} are {b,d}.

			The a(7) = 2 through a(11) = 16 partitions:
  (421)   (431)   (621)    (532)     (542)
  (3211)  (521)   (3321)   (541)     (632)
          (4211)  (4311)   (631)     (641)
                  (5211)   (721)     (731)
                  (32211)  (5311)    (821)
                           (6211)    (4322)
                           (322111)  (4421)
                                     (5321)
                                     (5411)
                                     (6311)
                                     (7211)
                                     (33221)
                                     (43211)
                                     (52211)
                                     (332111)
                                     (422111)

For equal instead of unequal: A363719, ranks A363727, odd-length A363721.
The case of a unique mode is A363725.
These partitions have ranks A363730.
For factorizations we have A363742, for equal A363741, see A359909, A359910.
Just two statistics:
- (mean) = (median) gives A240219, also A359889, A359895, A359897, A359899.
- (mean) != (median) gives A359894, also A359890, A359896, A359898, A359900.
- (mean) = (mode) gives A363723, see A363724, A363731.
- (median) = (mode) gives A363740.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length (or negative mean), strict A008289.
A359893 and A359901 count partitions by median, odd-length A359902.
A362608 counts partitions with a unique mode.
Cf. A027193, A237984, A325347, A326567/A326568, A327472, A363726, A363728.

modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n],{Mean[#]}!={Median[#]}!=modes[#]&]],{n,0,30}]

A363731 Number of integer partitions of n whose mean is a mode but not the only mode.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 1, 0, 5, 0, 1, 8, 5, 0, 12, 0, 19, 14, 2, 0, 52, 21, 3, 23, 59, 0, 122, 0, 97, 46, 6, 167, 303, 0, 8, 82, 559, 0, 543, 0, 355, 745, 15, 0, 1685, 510, 1083, 251, 840, 0, 2325, 1832, 3692, 426, 34, 0, 9599

Offset: 0

Gus Wiseman, Jun 24 2023

nonn

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes in {a,a,b,b,b,c,d,d,d} are {b,d}.

			The a(n) partitions for n = 6, 9, 12, 15, 18:
  (3,2,1)  (4,3,2)  (5,4,3)        (6,5,4)      (7,6,5)
           (5,3,1)  (6,4,2)        (7,5,3)      (8,6,4)
                    (7,4,1)        (8,5,2)      (9,6,3)
                    (6,3,2,1)      (9,5,1)      (10,6,2)
                    (3,3,2,2,1,1)  (4,4,3,3,1)  (11,6,1)
                                   (5,3,3,2,2)  (4,4,3,3,2,2)
                                   (5,4,3,2,1)  (5,5,3,3,1,1)
                                   (7,3,3,1,1)  (6,4,3,3,1,1)
                                                (7,3,3,2,2,1)
                                                (8,3,3,2,1,1)
                                                (3,3,3,2,2,2,1,1,1)
                                                (6,2,2,2,2,1,1,1,1)

For a unique mode we have A363723, non-constant A362562.
For any number of modes we have A363724.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length (or decreasing mean), strict A008289.
A237984 counts partitions containing their mean, ranks A327473.
A327472 counts partitions not containing their mean, ranks A327476.
A362608 counts partitions with a unique mode, ranks A356862.
A363719 counts partitions with all three averages equal, ranks A363727.
Cf. A240219, A326567/A326568, A359893, A363720, A363725, A363740.

modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n],MemberQ[modes[#],Mean[#]]&&!{Mean[#]}==modes[#]&]],{n,30}]

A123529 Denominator of average of prime factors of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 4, 1, 2, 1, 3, 1, 3, 1, 1, 1, 2, 1, 2, 1, 2, 1, 4, 1, 1, 1, 1, 3, 2, 1, 5, 1, 1, 1, 3, 1, 4, 1, 4, 1, 2, 1, 1, 1, 2, 3, 1, 1, 3, 1, 1, 1, 3, 1, 5, 1, 2, 3, 3, 1, 1, 1, 5, 1, 2, 1, 2, 1, 2, 1, 4, 1, 4, 1, 1, 1, 2, 1, 6, 1, 3, 3, 2, 1, 3, 1, 4, 1, 2

Offset: 2

Franklin T. Adams-Watters, Oct 02 2006

Prime factors counted with multiplicity. - Harvey P. Dale, Jun 20 2013

Positions of 1's are A078175. a(n) is a divisor of Omega(n) = A001222(n). The average of prime indices (as opposed to prime factors) of n is A326567(n)/A326568(n). - Gus Wiseman, Jul 18 2019

G. C. Greubel, Table of n, a(n) for n = 2..5000

See A123528 for more formulas and references.

Cf. A078174, A078175, A112798, A316413, A326567/A326568, A326619/A326620, A326621.

Table[Denominator[Mean[Flatten[Table[#[[1]],{#[[2]]}]&/@ FactorInteger[ n]]]],{n,110}] (* Harvey P. Dale, Jun 20 2013 *)

A360241 Number of integer partitions of n whose distinct parts have integer mean.

Original entry on oeis.org

0, 1, 2, 2, 4, 3, 8, 6, 13, 13, 22, 19, 43, 34, 56, 66, 97, 92, 156, 143, 233, 256, 322, 341, 555, 542, 710, 831, 1098, 1131, 1644, 1660, 2275, 2484, 3035, 3492, 4731, 4848, 6063, 6893, 8943, 9378, 12222, 13025, 16520, 18748, 22048, 24405, 31446, 33698, 41558

Offset: 0

Gus Wiseman, Feb 02 2023

nonn

			The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (331)      (44)
                    (31)    (11111)  (42)      (511)      (53)
                    (1111)           (51)      (3211)     (62)
                                     (222)     (31111)    (71)
                                     (321)     (1111111)  (422)
                                     (3111)               (2222)
                                     (111111)             (3221)
                                                          (3311)
                                                          (5111)
                                                          (32111)
                                                          (311111)
                                                          (11111111)
For example, the partition (32111) has distinct parts {1,2,3} with mean 2, so is counted under a(8).

For parts instead of distinct parts we have A067538, ranked by A316413.
The strict case is A102627.
These partitions are ranked by A326621.
For multiplicities instead of distinct parts: A360069, ranked by A067340.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by number of parts.
A051293 counts subsets with integer mean, median A000975.
A058398 counts partitions by mean, also A327482.
A116608 counts partitions by number of distinct parts.
A326619/A326620 gives mean of distinct prime indices.
A326622 counts factorizations with integer mean, strict A328966.
A360071 counts partitions by number of parts and number of distinct parts.
The following count partitions:
- A360242 mean(parts) != mean(distinct parts), ranked by A360246.
- A360243 mean(parts) = mean(distinct parts), ranked by A360247.
- A360250 mean(parts) > mean(distinct parts), ranked by A360252.
- A360251 mean(parts) < mean(distinct parts), ranked by A360253.
Cf. A067539, A078174, A082550, A240219, A316313, A325347, A326567/A326568, A326669, A327475, A349156.

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

cp's OEIS Frontend

A363942 High median in the multiset of prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363719 Number of integer partitions of n satisfying (mean) = (median) = (mode), assuming there is a unique mode.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363941 Low median in the multiset of prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363949 Numbers whose prime indices have mean 1 when rounded down.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A359903 Numbers whose prime indices and prime signature have the same mean.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363720 Number of integer partitions of n with different mean, median, and mode.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363731 Number of integer partitions of n whose mean is a mode but not the only mode.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A123529 Denominator of average of prime factors of n.

Views

Author