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.

Previous Showing 21-23 of 23 results.

A364059 Number of integer partitions of n whose rounded mean is > 1. Partitions with mean >= 3/2.

Original entry on oeis.org

0, 0, 1, 2, 3, 5, 9, 11, 18, 26, 35, 49, 70, 89, 123, 164, 212, 278, 366, 460, 597, 762, 957, 1210, 1530, 1891, 2369, 2943, 3621, 4468, 5507, 6703, 8210, 10004, 12115, 14688, 17782, 21365, 25743, 30913, 36965, 44210, 52801, 62753, 74667, 88626, 104874, 124070
Offset: 0

Views

Author

Gus Wiseman, Jul 06 2023

Keywords

Comments

We use the "rounding half to even" rule, see link.

Examples

			The a(0) = 0 through a(8) = 18 partitions:
  .  .  (2)  (3)   (4)   (5)    (6)     (7)     (8)
             (21)  (22)  (32)   (33)    (43)    (44)
                   (31)  (41)   (42)    (52)    (53)
                         (221)  (51)    (61)    (62)
                         (311)  (222)   (322)   (71)
                                (321)   (331)   (332)
                                (411)   (421)   (422)
                                (2211)  (511)   (431)
                                (3111)  (2221)  (521)
                                        (3211)  (611)
                                        (4111)  (2222)
                                                (3221)
                                                (3311)
                                                (4211)
                                                (5111)
                                                (22211)
                                                (32111)
                                                (41111)
		

Crossrefs

Rounding-up gives A000065.
Rounding-down gives A110618, ranks A344291.
For median instead of mean we appear to have A238495.
The complement is counted by A363947, ranks A363948.
A000041 counts integer partitions.
A008284 counts partitions by length, A058398 by mean.
A025065 counts partitions with low mean 1, ranks A363949.
A067538 counts partitions with integer mean, ranks A316413.
A124943 counts partitions by low median, high A124944.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Round[Mean[#]]>1&]],{n,0,30}]

Formula

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

A364060 Triangle read by rows where T(n,k) is the number of integer partitions of n with rounded mean k.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 2, 2, 0, 1, 0, 2, 4, 0, 0, 1, 0, 2, 5, 3, 0, 0, 1, 0, 4, 7, 0, 3, 0, 0, 1, 0, 4, 8, 5, 4, 0, 0, 0, 1, 0, 4, 14, 7, 4, 0, 0, 0, 0, 1, 0, 7, 21, 8, 0, 5, 0, 0, 0, 0, 1, 0, 7, 22, 11, 10, 0, 5, 0, 0, 0, 0, 1
Offset: 0

Views

Author

Gus Wiseman, Jul 07 2023

Keywords

Comments

We use the "rounding half to even" rule, see link.

Examples

			Triangle begins:
  1
  0  1
  0  1  1
  0  1  1  1
  0  2  2  0  1
  0  2  4  0  0  1
  0  2  5  3  0  0  1
  0  4  7  0  3  0  0  1
  0  4  8  5  4  0  0  0  1
  0  4 14  7  4  0  0  0  0  1
  0  7 21  8  0  5  0  0  0  0  1
  0  7 22 11 10  0  5  0  0  0  0  1
  0  7 36 15 12  0  6  0  0  0  0  0  1
  0 12 32 36 14  0  6  0  0  0  0  0  0  1
  0 12 53 23 23 16  0  7  0  0  0  0  0  0  1
  0 12 80 30 27 19  0  0  7  0  0  0  0  0  0  1
Row n = 7 counts the following partitions:
  .  (31111)    (511)   .  (61)  .  .  (7)
     (22111)    (421)      (52)
     (211111)   (4111)     (43)
     (1111111)  (331)
                (322)
                (3211)
                (2221)
		

Crossrefs

Row sums are A000041.
The rank statistic for this triangle is A363489.
The version for low mean is A363945, rank statistic A363943.
The version for high mean is A363946, rank statistic A363944.
Column k = 1 is A363947 (A026905 tripled).
A008284 counts partitions by length, A058398 by mean.
A026905 redoubled counts partitions with high mean 2, ranks A363950.
A051293 counts subsets with integer mean, median A000975.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
More triangles: A124943, A124944, A363952, A363953.

Programs

  • Mathematica
    Table[If[n==k==0,1,Length[Select[IntegerPartitions[n], Round[Mean[#]]==k&]]],{n,0,15},{k,0,n}]

A382526 Number of integer partitions of n with fewer ones than greatest multiplicity.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 4, 6, 9, 12, 16, 24, 30, 41, 56, 72, 94, 124, 158, 205, 262, 331, 419, 531, 663, 829, 1033, 1281, 1581, 1954, 2393, 2936, 3584, 4366, 5300, 6433, 7764, 9374, 11277, 13548, 16225, 19425, 23166, 27623, 32842, 39004, 46212, 54719, 64610, 76251
Offset: 0

Views

Author

Gus Wiseman, Apr 05 2025

Keywords

Examples

			The a(2) = 1 through a(9) = 12 partitions:
  (2)  (3)  (4)   (5)    (6)    (7)     (8)      (9)
            (22)  (32)   (33)   (43)    (44)     (54)
                  (221)  (42)   (52)    (53)     (63)
                         (222)  (322)   (62)     (72)
                                (331)   (332)    (333)
                                (2221)  (422)    (432)
                                        (2222)   (441)
                                        (3221)   (522)
                                        (22211)  (3222)
                                                 (3321)
                                                 (4221)
                                                 (22221)
		

Crossrefs

The complement (greater than or equal to) is A241131 except first, ranks A360015.
The opposite version (greater than) is A241131 shifted except first, ranks A360013.
These partitions have ranks A382856, complement A360015.
The weak version (less than or equal to) is A381544, ranks A381439.
For equality we have A382303, ranks A360014.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A047993 counts partitions with max part = length, ranks A106529.
A091602 counts partitions by the greatest multiplicity, rank statistic A051903.
A116598 counts ones in partitions, rank statistic A007814.
A239964 counts partitions with max multiplicity = length, ranks A212166.
A240312 counts partitions with max part = max multiplicity, ranks A381542.
A382302 counts partitions with max = max multiplicity = distinct length, ranks A381543.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Count[#,1]
    				
Previous Showing 21-23 of 23 results.