A361653 -id:A361653 - cp's OEIS frontend

A361655 Number of even-length integer partitions of 2n with integer mean.

0, 1, 3, 4, 10, 6, 33, 8, 65, 68, 117, 12, 583, 14, 319, 1078, 1416, 18, 3341, 20, 8035, 5799, 1657, 24, 36708, 16954, 3496, 24553, 68528, 30, 192180, 32, 178802, 91561, 14625, 485598, 955142, 38, 29223, 316085, 2622697, 42, 3528870, 44, 2443527, 5740043

Offset: 0

Gus Wiseman, Mar 23 2023

nonn

			The a(0) = 0 through a(5) = 6 partitions:
  .  (11)  (22)    (33)      (44)        (55)
           (31)    (42)      (53)        (64)
           (1111)  (51)      (62)        (73)
                   (111111)  (71)        (82)
                             (2222)      (91)
                             (3221)      (1111111111)
                             (3311)
                             (4211)
                             (5111)
                             (11111111)
For example, the partition (4,2,1,1) has length 4 and mean 2, so is counted under a(4).

Andrew Howroyd, Table of n, a(n) for n = 0..1000

Even-length partitions are counted by A027187, bisection A236913.
Including odd-length partitions gives A067538 bisected, ranks A316413.
For median instead of mean we have A361653.
The odd-length version is counted by A361656.
A000041 counts integer partitions, strict A000009.
A051293 counts subsets with integer mean, median A000975.
A058398 counts partitions by mean, see also A008284, A327482.
A325347 counts partitions with integer median, complement A307683.
A326567/A326568 gives mean of prime indices.
A326622 counts factorizations with integer mean.
Cf. A000016, A027193, A067659, A082550, A102627, A237984, A240219, A327475, A348551, A359893.

Table[Length[Select[IntegerPartitions[2n], EvenQ[Length[#]]&&IntegerQ[Mean[#]]&]],{n,0,15}]

a(n)=if(n==0, 0, sumdiv(n, d, polcoef(1/prod(k=1, 2*d, 1 - x^k + O(x*x^(2*(n-d)))), 2*(n-d)))) \\ Andrew Howroyd, Mar 24 2023

Terms a(36) and beyond from Andrew Howroyd, Mar 24 2023

A361656 Number of odd-length integer partitions of n with integer mean.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 4, 2, 1, 9, 8, 2, 13, 2, 16, 51, 1, 2, 58, 2, 85, 144, 57, 2, 49, 194, 102, 381, 437, 2, 629, 2, 1, 956, 298, 2043, 1954, 2, 491, 2293, 1116, 2, 4479, 2, 6752, 14671, 1256, 2, 193, 8035, 4570, 11614, 22143, 2, 28585, 39810, 16476, 24691, 4566

Offset: 0

Gus Wiseman, Mar 24 2023

nonn

These are partitions of n whose length is an odd divisor of n.

			The a(1) = 1 through a(10) = 8 partitions (A = 10):
  1   2   3     4   5       6     7         8   9           A
          111       11111   222   1111111       333         22222
                            321                 432         32221
                            411                 441         33211
                                                522         42211
                                                531         43111
                                                621         52111
                                                711         61111
                                                111111111
For example, the partition (3,3,2,1,1) has length 5 and mean 2, so is counted under a(10).

Andrew Howroyd, Table of n, a(n) for n = 0..1000

Odd-length partitions are counted by A027193, bisection A236559.
Including even-length gives A067538 bisected, strict A102627, ranks A316413.
The even-length version is counted by A361655.
A000041 counts integer partitions, strict A000009.
A027187 counts even-length partitions, bisection A236913.
A051293 counts subsets with integer mean, median A000975.
A058398 counts partitions by mean, see also A008284, A327482.
A325347 counts partitions with integer median, complement A307683.
A326567/A326568 gives mean of prime indices.
A326622 counts factorizations with integer mean.
Cf. A000016, A067659, A082550, A237984, A240219, A327475, A348551, A361653.

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

a(n)=if(n==0, 0, sumdiv(n, d, if(d%2, polcoef(1/prod(k=1, d, 1 - x^k + O(x^(n-d+1))), n-d)))) \\ Andrew Howroyd, Mar 24 2023

cp's OEIS Frontend

A361655 Number of even-length integer partitions of 2n with integer mean.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions