cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 23 results. Next

A361849 Number of integer partitions of n such that the maximum is twice the median.

Original entry on oeis.org

0, 0, 0, 1, 1, 1, 4, 3, 4, 7, 9, 9, 15, 16, 20, 26, 34, 37, 50, 55, 68, 86, 103, 117, 145, 168, 201, 236, 282, 324, 391, 449, 525, 612, 712, 818, 962, 1106, 1278, 1470, 1698, 1939, 2238, 2550, 2924, 3343, 3824, 4341, 4963, 5627, 6399, 7256, 8231, 9300
Offset: 1

Views

Author

Gus Wiseman, Apr 02 2023

Keywords

Comments

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

Examples

			The a(4) = 1 through a(11) = 9 partitions:
  211  2111  21111  421     422      4221      631        632
                    3211    221111   4311      4222       5321
                    22111   2111111  2211111   42211      5411
                    211111           21111111  322111     42221
                                               2221111    43211
                                               22111111   332111
                                               211111111  22211111
                                                          221111111
                                                          2111111111
For example, the partition (3,2,1,1) has maximum 3 and median 3/2, so is counted under a(7).
		

Crossrefs

For minimum instead of median we have A118096.
For length instead of median we have A237753.
This is the equal case of A361848.
For mean instead of median we have A361853.
These partitions have ranks A361856.
For "greater" instead of "equal" we have A361857, allowing equality A361859.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, A058398 by mean.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median, odd-length A359902.
A360005 gives twice median of prime indices, distinct A360457.
A361860 counts partitions with minimum equal to median.

Programs

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

A361848 Number of integer partitions of n such that (maximum) <= 2*(median).

Original entry on oeis.org

1, 2, 3, 5, 6, 9, 12, 15, 19, 26, 31, 40, 49, 61, 75, 93, 112, 137, 165, 199, 238, 289, 341, 408, 482, 571, 674, 796, 932, 1096, 1280, 1495, 1738, 2026, 2347, 2724, 3148, 3639, 4191, 4831, 5545, 6372, 7298, 8358, 9552, 10915, 12439, 14176, 16121, 18325
Offset: 0

Views

Author

Gus Wiseman, Mar 28 2023

Keywords

Comments

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

Examples

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (2111)   (222)     (322)
                            (11111)  (321)     (331)
                                     (2211)    (421)
                                     (21111)   (2221)
                                     (111111)  (3211)
                                               (22111)
                                               (211111)
                                               (1111111)
For example, the partition y = (3,2,2) has maximum 3 and median 2, and 3 <= 2*2, so y is counted under a(7).
		

Crossrefs

For length instead of median we have A237755.
For minimum instead of median we have A237824.
The equal case is A361849, ranks A361856.
For mean instead of median we have A361851.
The complement is counted by A361857, ranks A361867.
The unequal case is A361858.
Reversing the inequality gives A361859, ranks A361868.
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.

Programs

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

Formula

a(n) = A361849(n) + A361858(n).
a(n) = A000041(n) - A361857(n).

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

Original entry on oeis.org

0, 0, 0, 0, 0, 2, 0, 1, 2, 4, 0, 10, 0, 8, 16, 10, 0, 31, 0, 44, 44, 20, 0, 92, 50, 28, 98, 154, 0, 266, 0, 154, 194, 48, 434, 712, 0, 60, 348, 910, 0, 1198, 0, 1120, 2138, 88, 0, 2428, 1300, 1680, 912, 2506, 0, 4808, 4800, 5968, 1372, 140, 0, 14820, 0, 160
Offset: 1

Views

Author

Gus Wiseman, Mar 29 2023

Keywords

Comments

Also partitions satisfying (maximum) = 2*(mean).
These are partitions whose diagram has the same size as its complement (see example).

Examples

			The a(6) = 2 through a(12) = 10 partitions:
  (411)   .  (4211)  (621)     (5221)   .  (822)
  (3111)             (321111)  (5311)      (831)
                               (42211)     (6222)
                               (43111)     (6321)
                                           (6411)
                                           (422211)
                                           (432111)
                                           (441111)
                                           (32211111)
                                           (33111111)
The partition y = (6,4,1,1) has diagram:
  o o o o o o
  o o o o . .
  o . . . . .
  o . . . . .
Since the partition and its complement (shown in dots) have the same size, y is counted under a(12).
		

Crossrefs

For minimum instead of mean we have A118096.
For length instead of mean we have A237753.
For median instead of mean we have A361849, ranks A361856.
This is the equal case of A361851, unequal case A361852.
The strict case is A361854.
These partitions have ranks A361855.
This is the equal case of A361906, unequal case A361907.
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.
A268192 counts partitions by complement size, ranks A326844.

Programs

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

A361851 Number of integer partitions of n such that (length) * (maximum) <= 2*n.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 12, 18, 23, 31, 37, 51, 58, 75, 96, 116, 126, 184, 193, 253, 307, 346, 402, 511, 615, 678, 792, 1045, 1088, 1386, 1419, 1826, 2181, 2293, 2779, 3568, 3659, 3984, 4867, 5885, 6407, 7732, 8124, 9400, 11683, 13025, 13269, 16216, 17774, 22016
Offset: 1

Views

Author

Gus Wiseman, Mar 28 2023

Keywords

Comments

Also partitions such that (maximum) <= 2*(mean).
These are partitions whose complement (see example) has size <= n.

Examples

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (311)    (222)     (322)
                            (2111)   (321)     (331)
                            (11111)  (411)     (421)
                                     (2211)    (2221)
                                     (3111)    (3211)
                                     (21111)   (22111)
                                     (111111)  (211111)
                                               (1111111)
The partition y = (3,2,1,1) has length 4 and maximum 3, and 4*3 <= 2*7, so y is counted under a(7).
The partition y = (5,2,1,1) has length 4 and maximum 5, and 4*5 is not <= 2*9, so y is not counted under a(9).
The partition y = (3,2,1,1) has diagram:
  o o o
  o o .
  o . .
  o . .
with complement of size 5, and 5 <= 7, so y is counted under a(7).
		

Crossrefs

For length instead of mean we have A237755.
For minimum instead of mean we have A237824.
For median instead of mean we have A361848.
The equal case for median is A361849, ranks A361856.
The unequal case is A361852, median A361858.
The equal case is A361853, ranks A361855.
Reversing the inequality gives A361906, unequal case A361907.
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.

Programs

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

A361858 Number of integer partitions of n such that the maximum is less than twice the median.

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 8, 12, 15, 19, 22, 31, 34, 45, 55, 67, 78, 100, 115, 144, 170, 203, 238, 291, 337, 403, 473, 560, 650, 772, 889, 1046, 1213, 1414, 1635, 1906, 2186, 2533, 2913, 3361, 3847, 4433, 5060, 5808, 6628, 7572, 8615, 9835, 11158, 12698, 14394
Offset: 1

Views

Author

Gus Wiseman, Apr 02 2023

Keywords

Comments

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

Examples

			The a(1) = 1 through a(8) = 12 partitions:
  (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)     (322)      (71)
                                     (321)     (331)      (332)
                                     (2211)    (2221)     (431)
                                     (111111)  (1111111)  (2222)
                                                          (3221)
                                                          (3311)
                                                          (22211)
                                                          (11111111)
The partition y = (3,2,2,1) has maximum 3 and median 2, and 3 < 2*2, so y is counted under a(8).
		

Crossrefs

For minimum instead of median we have A053263.
For length instead of median we have A237754.
Allowing equality gives A361848, strict A361850.
The equal version is A361849, ranks A361856.
For mean instead of median we have A361852.
Reversing the inequality gives A361857, ranks A361867.
The complement is counted by A361859, ranks A361868.
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.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Max@@#<2*Median[#]&]],{n,30}]

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

Views

Author

Gus Wiseman, Apr 02 2023

Keywords

Comments

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

Examples

			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).
		

Crossrefs

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.

Programs

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

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

Views

Author

Gus Wiseman, Mar 29 2023

Keywords

Comments

Also partitions such that (maximum) >= 2*(mean).
These are partitions whose complement (see example) has size >= n.

Examples

			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).
		

Crossrefs

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.

Programs

  • Mathematica
    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

Views

Author

Gus Wiseman, Mar 29 2023

Keywords

Comments

Also partitions such that (maximum) > 2*(mean).
These are partitions whose complement (see example) has size > n.

Examples

			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).
		

Crossrefs

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.

Programs

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

A237751 Number of partitions of n such that 2*(greatest part) < (number of parts).

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 3, 4, 6, 8, 10, 14, 18, 24, 32, 41, 52, 67, 85, 107, 135, 169, 210, 263, 324, 400, 493, 604, 736, 899, 1091, 1322, 1599, 1929, 2319, 2787, 3336, 3989, 4760, 5669, 6734, 7994, 9465, 11192, 13211, 15571, 18319, 21531, 25257, 29594, 34626
Offset: 1

Views

Author

Clark Kimberling, Feb 13 2014

Keywords

Comments

Also, the number of partitions of n such that (greatest part) > 2*(number of parts); hence, the number of partitions of n such that (rank + greatest part) < 0.

Examples

			a(6) = 2 counts these partitions:  21111, 111111.
		

Crossrefs

Programs

  • Mathematica
    z = 55; Table[Count[IntegerPartitions[n], p_ /; 2 Max[p] < Length[p]], {n, z}]

Formula

a(n) = A000041(n) - A237755(n).

A361852 Number of integer partitions of n such that (length) * (maximum) < 2n.

Original entry on oeis.org

1, 2, 3, 5, 7, 9, 12, 17, 21, 27, 37, 41, 58, 67, 80, 106, 126, 153, 193, 209, 263, 326, 402, 419, 565, 650, 694, 891, 1088, 1120, 1419, 1672, 1987, 2245, 2345, 2856, 3659, 3924, 4519, 4975, 6407, 6534, 8124, 8280, 9545, 12937, 13269, 13788, 16474, 20336
Offset: 1

Views

Author

Gus Wiseman, Mar 29 2023

Keywords

Comments

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

Examples

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (311)    (222)     (322)
                            (2111)   (321)     (331)
                            (11111)  (2211)    (421)
                                     (21111)   (2221)
                                     (111111)  (3211)
                                               (22111)
                                               (211111)
                                               (1111111)
For example, the partition y = (3,2,1,1) has length 4 and maximum 3, and 4*3 < 2*7, so y is counted under a(7).
		

Crossrefs

For length instead of mean we have A237754.
Allowing equality gives A237755, for median A361848.
For equal median we have A361849, ranks A361856.
The equal version is A361853, ranks A361855.
For median instead of mean we have A361858.
The complement is counted by A361906.
Reversing the inequality gives A361907.
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.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Length[#]*Max@@#<2n&]],{n,30}]
Showing 1-10 of 23 results. Next