A237821 -id:A237821 - cp's OEIS frontend

A362612 Number of integer partitions of n such that the greatest part is the unique mode.

0, 1, 2, 2, 3, 3, 4, 4, 6, 6, 7, 9, 10, 12, 15, 16, 19, 23, 26, 32, 37, 41, 48, 58, 65, 75, 88, 101, 115, 135, 151, 176, 200, 228, 261, 300, 336, 385, 439, 498, 561, 641, 717, 818, 921, 1036, 1166, 1321, 1477, 1667, 1867, 2099, 2346, 2640, 2944, 3303, 3684

Offset: 0

Gus Wiseman, May 03 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 of {a,a,b,b,b,c,d,d,d} are {b,d}.

			The a(1) = 1 through a(10) = 7 partitions (A = 10):
  1  2   3    4     5      6       7        8         9          A
     11  111  22    221    33      331      44        333        55
              1111  11111  222     2221     332       441        442
                           111111  1111111  2222      3321       3331
                                            22211     22221      22222
                                            11111111  111111111  222211
                                                                 1111111111

John Tyler Rascoe, Table of n, a(n) for n = 0..500

For median instead of mode we have A053263, complement A237821.
These partitions have ranks A362616.
A000041 counts integer partitions.
A275870 counts collapsible partitions.
A359893 counts partitions by median.
A362607 counts partitions with more than one mode, ranks A362605.
A362608 counts partitions with a unique mode, ranks A356862.
A362611 counts modes in prime factorization.
A362614 counts partitions by number of modes, co-modes A362615.
Cf. A002865, A008284, A070003, A098859, A102750, A237984, A238478, A238479, A327472, A362609, A362610.

Table[Length[Select[IntegerPartitions[n],Commonest[#]=={Max[#]}&]],{n,0,30}]

A_x(N)={my(x='x+O('x^N), g=sum(i=1, N, sum(j=1, N/i, x^(i*j)*prod(k=1,i-1,(1-x^(j*k))/(1-x^k))))); concat([0],Vec(g))}
A_x(60) \\ John Tyler Rascoe, Apr 03 2024

G.f.: Sum_{i, j>0} x^(i*j) * Product_{k=1,i-1} ((1-x^(j*k))/(1-x^k)). - John Tyler Rascoe, Apr 03 2024

A237824 Number of partitions of n such that 2*(least part) >= greatest part.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 7, 10, 11, 13, 14, 19, 18, 23, 25, 29, 30, 38, 37, 46, 48, 54, 57, 70, 69, 80, 85, 97, 100, 118, 118, 137, 144, 159, 168, 193, 195, 220, 233, 259, 268, 303, 311, 348, 367, 399, 419, 469, 483, 532, 560, 610, 639, 704, 732, 801, 841, 908, 954

Offset: 1

Clark Kimberling, Feb 16 2014

nonn

By conjugation, also the number of integer partitions of n whose greatest part appears at a middle position, namely at k/2, (k+1)/2, or (k+2)/2 where k is the number of parts. These partitions have ranks A362622. - Gus Wiseman, May 14 2023

			a(6) = 7 counts these partitions:  6, 42, 33, 222, 2211, 21111, 111111.
From _Gus Wiseman_, May 14 2023: (Start)
The a(1) = 1 through a(8) = 10 partitions such that 2*(least part) >= greatest part:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (211)   (221)    (42)      (322)      (53)
                    (1111)  (2111)   (222)     (2221)     (332)
                            (11111)  (2211)    (22111)    (422)
                                     (21111)   (211111)   (2222)
                                     (111111)  (1111111)  (22211)
                                                          (221111)
                                                          (2111111)
                                                          (11111111)
The a(1) = 1 through a(8) = 10 partitions whose greatest part appears at a middle position:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (11111)  (222)     (331)      (71)
                                     (2211)    (2221)     (332)
                                     (111111)  (1111111)  (2222)
                                                          (3311)
                                                          (22211)
                                                          (11111111)
(End)

Vaclav Kotesovec, Table of n, a(n) for n = 1..10000 (terms 1..300 from John Tyler Rascoe)

Cf. A237821, A118096, A053263.
The complement is counted by A237820, ranks A362982.
For modes instead of middles we have A362619, counted by A171979.
These partitions have ranks A362981.
A000041 counts integer partitions, strict A000009.
A325347 counts partitions with integer median, complement A307683.
Cf. A002865, A008284, A237984, A238478, A238479, A327472, A359893, A362612, A362622, A384426.

z = 60; q[n_] := q[n] = IntegerPartitions[n];
Table[Count[q[n], p_ /; 2 Min[p] < Max[p]], {n, z}]  (* A237820 *)
Table[Count[q[n], p_ /; 2 Min[p] <= Max[p]], {n, z}] (* A237821 *)
Table[Count[q[n], p_ /; 2 Min[p] == Max[p]], {n, z}] (* A118096 *)
Table[Count[q[n], p_ /; 2 Min[p] > Max[p]], {n, z}]  (* A053263 *)
Table[Count[q[n], p_ /; 2 Min[p] >= Max[p]], {n, z}] (* this sequence *)
(* or *)
nmax = 100; Rest[CoefficientList[Series[Sum[x^k/Product[1 - x^j, {j,k,2*k}], {k, 1, nmax}], {x, 0, nmax}], x]] (* Vaclav Kotesovec, Jun 13 2025 *)
(* or *)
nmax = 100; p = 1; s = 0; Do[p = Simplify[p*(1 - x^(2*k - 1))*(1 - x^(2*k))/(1 - x^k)]; p = Normal[p + O[x]^(nmax+1)]; s += x^k/(1 - x^k)/p;, {k, 1, nmax}]; Rest[CoefficientList[Series[s, {x, 0, nmax}], x]] (* Vaclav Kotesovec, Jun 14 2025 *)

N=60; x='x+O('x^N);
gf = sum(m=1, N, (x^m)/(1-x^m)) + sum(i=1, N, sum(j=1, i, x^((2*i)+j)/prod(k=0, j, 1 - x^(k+i))));
Vec(gf) \\ John Tyler Rascoe, Mar 07 2024

G.f.: Sum_{m>0} x^m/(1-x^m) + Sum_{i>0} Sum_{j=1..i} x^((2*i)+j) / Product_{k=0..j} (1 - x^(k+i)). - John Tyler Rascoe, Mar 07 2024
G.f.: Sum_{k>=1} x^k / Product_{j=k..2*k} (1 - x^j). - Vaclav Kotesovec, Jun 13 2025
a(n) ~ phi^(3/2) * exp(Pi*sqrt(2*n/15)) / (5^(1/4) * sqrt(2*n)), where phi = A001622 = (1+sqrt(5))/2 is the golden ratio. - Vaclav Kotesovec, Jun 14 2025

A237820 Number of partitions of n such that 2*(least part) < greatest part.

Original entry on oeis.org

0, 0, 0, 1, 2, 4, 8, 12, 19, 29, 42, 58, 83, 112, 151, 202, 267, 347, 453, 581, 744, 948, 1198, 1505, 1889, 2356, 2925, 3621, 4465, 5486, 6724, 8212, 9999, 12151, 14715, 17784, 21442, 25795, 30952, 37079, 44315, 52871, 62950, 74827, 88767, 105159, 124335

Offset: 1

Clark Kimberling, Feb 16 2014

			a(6) = 4 counts these partitions:  51, 411, 321, 3111.

John Tyler Rascoe, Table of n, a(n) for n = 1..200

Cf. A000041, A053263, A118096, A237821, A237824.

z = 60; q[n_] := q[n] = IntegerPartitions[n];
Table[Count[q[n], p_ /; 2 Min[p] < Max[p]], {n, z}]  (* A237820 *)
Table[Count[q[n], p_ /; 2 Min[p] <= Max[p]], {n, z}] (* A237821 *)
Table[Count[q[n], p_ /; 2 Min[p] = = Max[p]], {n, z}](* A118096 *)
Table[Count[q[n], p_ /; 2 Min[p] > Max[p]], {n, z}]  (* A053263 *)
Table[Count[q[n], p_ /; 2 Min[p] >= Max[p]], {n, z}] (* A237824 *)

A(n) = {concat([0,0,0], Vec(sum(i=1, n, sum(j=1, n-3*i, x^(3*i+j)/prod(k=i, min(n-3*i-j,2*i+j), 1-x^k)))+ O('x^(n+1))))} \\ John Tyler Rascoe, Jun 21 2025

G.f.: Sum_{i>0} Sum_{j>0} x^(3*i+j) /Product_{k=i..2*i+j} (1 - x^k). - John Tyler Rascoe, Jun 21 2025

A361859 Number of integer partitions of n such that the maximum is greater than or equal to twice the median.

Original entry on oeis.org

0, 0, 0, 1, 2, 3, 7, 10, 15, 23, 34, 46, 67, 90, 121, 164, 219, 285, 375, 483, 622, 799, 1017, 1284, 1621, 2033, 2537, 3158, 3915, 4832, 5953, 7303, 8930, 10896, 13248, 16071, 19451, 23482, 28272, 33977, 40736, 48741, 58201, 69367, 82506, 97986, 116139

Offset: 1

Gus Wiseman, Apr 02 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(4) = 1 through a(9) = 15 partitions:
  (211)  (311)   (411)    (421)     (422)      (522)
         (2111)  (3111)   (511)     (521)      (621)
                 (21111)  (3211)    (611)      (711)
                          (4111)    (4211)     (4221)
                          (22111)   (5111)     (4311)
                          (31111)   (32111)    (5211)
                          (211111)  (41111)    (6111)
                                    (221111)   (33111)
                                    (311111)   (42111)
                                    (2111111)  (51111)
                                               (321111)
                                               (411111)
                                               (2211111)
                                               (3111111)
                                               (21111111)
The partition y = (5,2,2,1) has maximum 5 and median 2, and 5 >= 2*2, so y is counted under a(10).

For length instead of median we have A237752.
For minimum instead of median we have A237821.
Reversing the inequality gives A361848.
The equal case is A361849, ranks A361856.
The unequal case is A361857, ranks A361867.
The complement is counted by A361858.
These partitions have ranks A361868.
For mean instead of median we have A361906.
A000041 counts integer partitions, strict A000009.
A000975 counts subsets with integer median.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median.
A360005 gives twice median of prime indices, distinct A360457.
Cf. A008284, A027193, A067538, A237755, A237820, A237824, A240219, A359907, A361851, A361860, A361907.

Table[Length[Select[IntegerPartitions[n],Max@@#>=2*Median[#]&]],{n,30}]

A361908 Positive integers > 1 whose prime indices satisfy (maximum) = 2*(minimum).

Original entry on oeis.org

6, 12, 18, 21, 24, 36, 48, 54, 63, 65, 72, 96, 105, 108, 133, 144, 147, 162, 189, 192, 216, 288, 315, 319, 324, 325, 384, 432, 441, 455, 481, 486, 525, 567, 576, 648, 715, 731, 735, 768, 845, 864, 931, 945, 972, 1007, 1029, 1152, 1296, 1323, 1403, 1458, 1463

Offset: 1

Gus Wiseman, Apr 05 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:
     6: {1,2}
    12: {1,1,2}
    18: {1,2,2}
    21: {2,4}
    24: {1,1,1,2}
    36: {1,1,2,2}
    48: {1,1,1,1,2}
    54: {1,2,2,2}
    63: {2,2,4}
    65: {3,6}
    72: {1,1,1,2,2}
    96: {1,1,1,1,1,2}

Robert Israel, Table of n, a(n) for n = 1..10000

The RHS is 2*A055396 (twice minimum).
The LHS is A061395 (greatest prime index).
Partitions of this type are counted by A118096.
For mean instead of minimum we have A361855, counted by A361853.
For median instead of minimum we have A361856, counted by A361849.
For length instead of minimum we have A361909, counted by A237753.
A001221 (omega) counts distinct prime factors.
A001222 (bigomega) counts prime factors with multiplicity.
A112798 lists prime indices, sum A056239.
Cf. A053263, A067801, A237820, A237821, A361858.

filter:= proc(n) local F,b;
  if n::even then b:= padic:-ordp(n,3);
     if b = 0 then return false else return n = 2^padic:-ordp(n,2) * 3^b fi
  fi;
  F:= ifactors(n)[2][..,1];
  nops(F) >= 2 and numtheory:-pi(max(F)) = 2*numtheory:-pi(min(F))
end proc:
select(filter, [$1..2000]); # Robert Israel, Mar 11 2025

Select[Range[2,100],PrimePi[FactorInteger[#][[-1,1]]]==2*PrimePi[FactorInteger[#][[1,1]]]&]

A361906 Number of integer partitions of n such that (length) * (maximum) >= 2*n.

Original entry on oeis.org

0, 0, 0, 0, 0, 2, 3, 5, 9, 15, 19, 36, 43, 68, 96, 125, 171, 232, 297, 418, 529, 676, 853, 1156, 1393, 1786, 2316, 2827, 3477, 4484, 5423, 6677, 8156, 10065, 12538, 15121, 17978, 22091, 26666, 32363, 38176, 46640, 55137, 66895, 79589, 92621, 111485, 133485

Offset: 1

Gus Wiseman, Mar 29 2023

nonn

Also partitions such that (maximum) >= 2*(mean).

These are partitions whose complement (see example) has size >= n.

			The a(6) = 2 through a(10) = 15 partitions:
  (411)   (511)    (611)     (621)      (721)
  (3111)  (4111)   (4211)    (711)      (811)
          (31111)  (5111)    (5211)     (5221)
                   (41111)   (6111)     (5311)
                   (311111)  (42111)    (6211)
                             (51111)    (7111)
                             (321111)   (42211)
                             (411111)   (43111)
                             (3111111)  (52111)
                                        (61111)
                                        (421111)
                                        (511111)
                                        (3211111)
                                        (4111111)
                                        (31111111)
The partition y = (4,2,1,1) has length 4 and maximum 4, and 4*4 >= 2*8, so y is counted under a(8).
The partition y = (3,2,1,1) has length 4 and maximum 3, and 4*3 is not >= 2*7, so y is not counted under a(7).
The partition y = (3,2,1,1) has diagram:
  o o o
  o o .
  o . .
  o . .
with complement (shown in dots) of size 5, and 5 is not >= 7, so y is not counted under a(7).

For length instead of mean we have A237752, reverse A237755.
For minimum instead of mean we have A237821, reverse A237824.
For median instead of mean we have A361859, reverse A361848.
The unequal case is A361907.
The complement is counted by A361852.
The equal case is A361853, ranks A361855.
Reversing the inequality gives A361851.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, A058398 by mean.
A051293 counts subsets with integer mean.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A268192 counts partitions by complement size, ranks A326844.
Cf. A027193, A111907, A116608, A237984, A324521, A327482, A349156, A360068.

Table[Length[Select[IntegerPartitions[n],Length[#]*Max@@#>=2n&]],{n,30}]

A361907 Number of integer partitions of n such that (length) * (maximum) > 2*n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 3, 4, 7, 11, 19, 26, 43, 60, 80, 115, 171, 201, 297, 374, 485, 656, 853, 1064, 1343, 1758, 2218, 2673, 3477, 4218, 5423, 6523, 7962, 10017, 12104, 14409, 17978, 22031, 26318, 31453, 38176, 45442, 55137, 65775, 77451, 92533, 111485, 131057

Offset: 1

Gus Wiseman, Mar 29 2023

nonn

Also partitions such that (maximum) > 2*(mean).

These are partitions whose complement (see example) has size > n.

			The a(7) = 3 through a(10) = 11 partitions:
  (511)    (611)     (711)      (721)
  (4111)   (5111)    (5211)     (811)
  (31111)  (41111)   (6111)     (6211)
           (311111)  (42111)    (7111)
                     (51111)    (52111)
                     (411111)   (61111)
                     (3111111)  (421111)
                                (511111)
                                (3211111)
                                (4111111)
                                (31111111)
The partition y = (3,2,1,1) has length 4 and maximum 3, and 4*3 is not > 2*7, so y is not counted under a(7).
The partition y = (4,2,1,1) has length 4 and maximum 4, and 4*4 is not > 2*8, so y is not counted under a(8).
The partition y = (5,1,1,1) has length 4 and maximum 5, and 4*5 > 2*8, so y is counted under a(8).
The partition y = (5,2,1,1) has length 4 and maximum 5, and 4*5 > 2*9, so y is counted under a(9).
The partition y = (3,2,1,1) has diagram:
  o o o
  o o .
  o . .
  o . .
with complement (shown in dots) of size 5, and 5 is not > 7, so y is not counted under a(7).

For length instead of mean we have A237751, reverse A237754.
For minimum instead of mean we have A237820, reverse A053263.
The complement is counted by A361851, median A361848.
Reversing the inequality gives A361852.
The equal version is A361853.
For median instead of mean we have A361857, reverse A361858.
Allowing equality gives A361906, median A361859.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, A058398 by mean.
A051293 counts subsets with integer mean.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A116608 counts partitions by number of distinct parts.
A268192 counts partitions by complement size, ranks A326844.
Cf. A027193, A111907, A237752, A237755, A237821, A237824, A237984, A324562, A326622, A327482, A349156, A360071, A361394.

Table[Length[Select[IntegerPartitions[n],Length[#]*Max@@#>2n&]],{n,30}]

A362621 One and numbers whose multiset of prime factors (with multiplicity) has the same median as maximum.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 18, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 50, 53, 54, 59, 61, 64, 67, 71, 73, 75, 79, 81, 83, 89, 97, 98, 101, 103, 107, 108, 109, 113, 121, 125, 127, 128, 131, 137, 139, 147, 149, 151, 157, 162, 163, 167, 169

Offset: 1

Gus Wiseman, May 12 2023

nonn

First differs from A334965 in having 750 and lacking 2250.

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 prime factorization of 108 is 2*2*3*3*3, and the multiset {2,2,3,3,3} has median 3 and maximum 3, so 108 is in the sequence.
The prime factorization of 2250 is 2*3*3*5*5*5, and the multiset {2,3,3,5,5,5} has median 4 and maximum 5, so 2250 is not in the sequence.
The terms together with their prime indices begin:
     1: {}           25: {3,3}           64: {1,1,1,1,1,1}
     2: {1}          27: {2,2,2}         67: {19}
     3: {2}          29: {10}            71: {20}
     4: {1,1}        31: {11}            73: {21}
     5: {3}          32: {1,1,1,1,1}     75: {2,3,3}
     7: {4}          37: {12}            79: {22}
     8: {1,1,1}      41: {13}            81: {2,2,2,2}
     9: {2,2}        43: {14}            83: {23}
    11: {5}          47: {15}            89: {24}
    13: {6}          49: {4,4}           97: {25}
    16: {1,1,1,1}    50: {1,3,3}         98: {1,4,4}
    17: {7}          53: {16}           101: {26}
    18: {1,2,2}      54: {1,2,2,2}      103: {27}
    19: {8}          59: {17}           107: {28}
    23: {9}          61: {18}           108: {1,1,2,2,2}

Partitions of this type are counted by A053263.
For mode instead of median we have A362619, counted by A171979.
For parts at middle position (instead of median) we have A362622.
The complement is A362980, counted by A237821.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A362611 counts modes in prime factorization, triangle version A362614.
A362613 counts co-modes in prime factorization, triangle version A362615.
Cf. A000040, A002865, A237824, A327473, A327476, A359908, A362616, A362620.

Select[Range[100],(y=Flatten[Apply[ConstantArray,FactorInteger[#],{1}]];Max@@y==Median[y])&]

A362622 One and numbers whose prime factorization has its greatest part at a middle position.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 67, 69, 71, 73, 74, 75, 77, 79, 81, 82, 83, 85, 86, 87, 89, 91

Offset: 1

Gus Wiseman, May 12 2023

nonn

			The prime factorization of 150 is 5*5*3*2, with middle parts {3,5}, so 150 is in the sequence.
The prime factorization of 90 is 5*3*3*2, with middle parts {3,3}, so 90 is not in the sequence.

Partitions of this type are counted by A237824.
For modes instead of middles we have A362619, counted by A171979.
The version for median instead of middles is A362621, counted by A053263.
The complement for median is A362980, counted by A237821.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A362611 counts modes in prime factorization.
A362613 counts co-modes in prime factorization.
Cf. A000040, A002865, A237984, A327473, A327476, A359908, A362616, A362620.

mpm[q_]:=MemberQ[If[OddQ[Length[q]],{Median[q]},{q[[Length[q]/2]],q[[Length[q]/2+1]]}],Max@@q];
Select[Range[100],#==1||mpm[Flatten[Apply[ConstantArray,FactorInteger[#],{1}]]]&]

A361868 Positive integers > 1 whose prime indices satisfy (maximum) >= 2*(median).

Original entry on oeis.org

12, 20, 24, 28, 40, 42, 44, 48, 52, 56, 60, 63, 66, 68, 72, 76, 78, 80, 84, 88, 92, 96, 99, 102, 104, 112, 114, 116, 117, 120, 124, 126, 130, 132, 136, 138, 140, 144, 148, 152, 153, 156, 160, 164, 168, 170, 171, 172, 174, 176, 184, 186, 188, 189, 190, 192, 195

Offset: 1

Gus Wiseman, Apr 05 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 prime indices of 84 are {1,1,2,4}, with maximum 4 and median 3/2, and 4 >= 2*(3/2), so 84 is in the sequence.
The terms together with their prime indices begin:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   66: {1,2,5}
   68: {1,1,7}
   72: {1,1,1,2,2}

The LHS is A061395 (greatest prime index).
The RHS is A360005 (twice median), distinct A360457.
The equal case is A361856, counted by A361849.
These partitions are counted by A361859.
The unequal case is A361867, counted by A361857.
The complement is counted by A361858.
A000975 counts subsets with integer median.
A001222 (bigomega) counts prime factors, distinct A001221 (omega).
A112798 lists prime indices, sum A056239.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median.
Cf. A027193, A053263, A111907, A118096, A237753, A237821, A361848, A361855, A361906, A361908.

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

cp's OEIS Frontend

A362612 Number of integer partitions of n such that the greatest part is the unique mode.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A237824 Number of partitions of n such that 2*(least part) >= greatest part.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A237820 Number of partitions of n such that 2*(least part) < greatest part.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A361859 Number of integer partitions of n such that the maximum is greater than or equal to twice the median.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A361908 Positive integers > 1 whose prime indices satisfy (maximum) = 2*(minimum).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A361906 Number of integer partitions of n such that (length) * (maximum) >= 2*n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A361907 Number of integer partitions of n such that (length) * (maximum) > 2*n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A362621 One and numbers whose multiset of prime factors (with multiplicity) has the same median as maximum.

Views

Author

Keywords

Comments

Examples