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-3 of 3 results.

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.
Cf. A008284, A027193, A237751, A237755, A237820, A237824, A240219, A361394, A361851, A361860, A361907.

Programs

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

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

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 1, 2, 2, 0, 5, 0, 6, 3, 5, 0, 11, 6, 8, 7, 10, 0, 36, 0, 14, 16, 16, 29, 43, 0, 21, 36, 69, 0, 97, 0, 35, 138, 33, 0, 150, 61, 137, 134, 74, 0, 231, 134, 265, 229, 56, 0, 650, 0, 65, 749, 267, 247, 533, 0, 405, 565
Offset: 1

Views

Author

Gus Wiseman, Mar 29 2023

Keywords

Comments

Also strict partitions satisfying (maximum) = 2*(mean).
These are strict partitions where both the diagram and its complement (see example) have size n.

Examples

			The a(n) strict partitions for selected n (A..E = 10..14):
  n=9:  n=12:  n=14:  n=15:  n=16:  n=18:  n=20:  n=21:  n=22:
--------------------------------------------------------------
  621   831    7421   A32    8431   C42    A532   E43    B542
        6321          A41    8521   C51    A541   E52    B632
                                    9432   A631   E61    B641
                                    9531   A721          B731
                                    9621   85421         B821
                                           86321
The a(20) = 6 strict partitions are: (10,7,2,1), (10,6,3,1), (10,5,4,1), (10,5,3,2), (8,6,3,2,1), (8,5,4,2,1).
The strict partition y = (8,5,4,2,1) has diagram:
  o o o o o o o o
  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(20).

Crossrefs

For minimum instead of mean we have A241035, non-strict A118096.
For length instead of mean we have A241087, non-strict A237753.
For median instead of mean we have A361850, non-strict A361849.
The non-strict version is A361853.
These partitions have ranks A361855 /\ A005117.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, A058398 by mean.
A008289 counts strict partitions by length.
A102627 counts strict partitions with integer mean, non-strict A067538.
A116608 counts partitions by number of distinct parts.
A268192 counts partitions by complement size, ranks A326844.
Cf. A111907, A237755, A240850, A326849 A359897, A360068, A360071, A360243, A361848, A361851, A361852, A361906.

Programs

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

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

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 5, 6, 8, 9, 11, 14, 15, 19, 23, 26, 29, 37, 39, 49, 55, 62, 71, 84, 93, 108, 118, 141, 149, 188, 193, 217, 257, 279, 318, 369, 376, 441, 495, 572, 587, 692, 760, 811, 960, 1046, 1065, 1307, 1387, 1550, 1703, 1796, 2041, 2295, 2456, 2753, 3014
Offset: 1

Views

Author

Gus Wiseman, May 23 2023

Keywords

Comments

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

Examples

			The partition y = (4,3,1) has length 3 and maximum 4, and 3*4 <= 2*8, so y is counted under a(8). The complement of y has size 4, which is less than or equal to n = 8.

Crossrefs

The equal case for median is A361850, non-strict A361849 (ranks A361856).
The non-strict version is A361851, A361848 for median.
The equal case is A361854, non-strict A361853 (ranks A361855).
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.
Cf. A111907, A237984, A240219, A241061, A241086, A324521, A324562, A349156, A360068, A360241, A361394, A361852, A361906.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Max@@#<=2*Mean[#]&]],{n,30}]
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.