A366527 -id:A366527 - cp's OEIS frontend

A182616 Number of partitions of 2n that contain odd parts.

0, 1, 3, 8, 17, 35, 66, 120, 209, 355, 585, 946, 1498, 2335, 3583, 5428, 8118, 12013, 17592, 25525, 36711, 52382, 74173, 104303, 145698, 202268, 279153, 383145, 523105, 710655, 960863, 1293314, 1733281, 2313377, 3075425, 4073085, 5374806, 7067863, 9263076

Offset: 0

Omar E. Pol, Dec 03 2010

nonn

Bisection (even part) of A086543.

			For n=3 the partitions of 2n are
6 ....................... does not contains odd parts
3 + 3 ................... contains odd parts ........... *
4 + 2 ................... does not contains odd parts
2 + 2 + 2 ............... does not contains odd parts
5 + 1 ................... contains odd parts ........... *
3 + 2 + 1 ............... contains odd parts ........... *
4 + 1 + 1 ............... contains odd parts ........... *
2 + 2 + 1 + 1 ........... contains odd parts ........... *
3 + 1 + 1 + 1 ........... contains odd parts ........... *
2 + 1 + 1 + 1 + 1 ....... contains odd parts ........... *
1 + 1 + 1 + 1 + 1 + 1 ... contains odd parts ........... *
There are 8 partitions of 2n that contain odd parts.
Also p(2n)-p(n) = p(6)-p(3) = 11-3 = 8, where p(n) is the number of partitions of n, so a(3)=8.
From _Gus Wiseman_, Oct 18 2023: (Start)
For n > 0, also the number of integer partitions of 2n that do not contain n, ranked by A366321. For example, the a(1) = 1 through a(4) = 17 partitions are:
  (2)  (4)     (6)       (8)
       (31)    (42)      (53)
       (1111)  (51)      (62)
               (222)     (71)
               (411)     (332)
               (2211)    (521)
               (21111)   (611)
               (111111)  (2222)
                         (3221)
                         (3311)
                         (5111)
                         (22211)
                         (32111)
                         (221111)
                         (311111)
                         (2111111)
                         (11111111)
(End)

Cf. A304710.
Bisection of A086543, with ranks A366322.
The case of all odd parts is A035294, bisection of A000009.
The strict case is A365828.
These partitions have ranks A366530.
A000041 counts integer partitions, strict A000009.
A006477 counts partitions with at least one odd and even part, ranks A366532.
A047967 counts partitions with at least one even part, ranks A324929.
A086543 counts partitions of n not containing n/2, ranks A366319.
A366527 counts partitions of 2n with an even part, ranks A366529.
Cf. A001522, A006827, A058695, A078408, A079122, A231429, A365543, A366321.

with(combinat): a:= n-> numbpart(2*n) -numbpart(n): seq(a(n), n=0..35);

Table[Length[Select[IntegerPartitions[2n],n>0&&FreeQ[#,n]&]],{n,0,15}] (* Gus Wiseman, Oct 11 2023 *)
Table[Length[Select[IntegerPartitions[2n],Or@@OddQ/@#&]],{n,0,15}] (* Gus Wiseman, Oct 11 2023 *)

a(n) = A000041(2*n) - A000041(n).

Edited by Alois P. Heinz, Dec 03 2010

A174713 Triangle read by rows, A173305 (A000009 shifted down twice) * A174712 (diagonalized variant of A000041).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 1, 2, 3, 2, 2, 4, 2, 2, 3, 5, 3, 4, 3, 6, 4, 4, 3, 5, 8, 5, 6, 6, 5, 10, 6, 8, 6, 5, 7, 12, 8, 10, 9, 10, 7, 15, 10, 12, 12, 10, 7, 11, 18, 12, 16, 15, 15, 14, 11, 22, 15, 20, 18, 20, 14, 11, 15

Offset: 0

Gary W. Adamson, Mar 27 2010

Row sums = A000041, the partition numbers.
The current triangle is the 2nd in an infinite set, followed by A174714 (k=3), and A174715, (k=4); in which row sums of each triangle = A000041.
k-th triangle in the infinite set can be defined as having the sequence:
"Euler transform of ones: (1,1,1,...) interleaved with (k-1) zeros"; shifted down k times (except column 0) in successive columns, then multiplied * triangle A174712, the diagonalized variant of A000041, A174713 begins with A000009 shifted down twice (triangle A173305); where A000009 = the Euler transform of period 2 sequence: [1,0,1,0,...].
Similarly, triangle A174714 begins with A000716 shifted down thrice; where A000716 = the Euler transform of period 3 series: [1,1,0,1,1,0,...]. Then multiply the latter as an infinite lower triangular matrix * A174712, the diagonalized variant of A000041, obtaining triangle A174714 with row sums = A000041.
Case k=4 = triangle A174715 which begins with the Euler transform of period 4 series: [1,1,1,0,1,1,1,0,...], shifted down 4 times in successive columns then multiplied * A174712, the diagonalized variant of A000041.
All triangles in the infinite set have row sums = A000041.
The sequences: "Euler transform of ones interleaved with (k-1) zeros" have the following properties, beginning with k=2:
...
k=2, A000009: = Euler transform of [1,0,1,0,1,0,...] and satisfies
.....A000009. = p(x)/p(x^2), where p(x) = polcoeff A000041; and A000041 =
.....A000009(x) = r(x), then p(x) = r(x) * r(x^2) * r(x^4) * r(x^8) * ...
...
k=3, A000726: = Euler transform of [1,1,0,1,1,0,...] and satisfies
.....A000726(x): = p(x)/p(x^3), and given s(x) = polcoeff A000726, we get
.....A000041(x) = p(x) = s(x) * s(x^3) * s(x^9) * s(x^27) * ...
...
k=4, A001935: = Euler transform of [1,1,1,0,1,1,1,0,...] and satisfies
.....A001935(x) = p(x)/p(x^4) and given t(x) = polcoeff A001935, we get
.....A000041(x) = p(x) = t(x) * t(x^4) * t(x^16) * t(x^64) * ...
...
Also the number of integer partitions of n whose even parts sum to k, for k an even number from zero to n. The version including odd k is A113686. - Gus Wiseman, Oct 23 2023

			First few rows of the triangle =
1;
1;
1, 1;
2, 1;
2, 1, 2;
3, 2, 2;
4, 2, 2, 3;
5, 3, 4, 3;
6, 4, 4, 3, 5;
8, 5, 6, 6, 5;
10, 6, 8, 6, 5, 7;
12, 8, 10, 9, 10, 7;
15, 10, 12, 12, 10, 7, 11;
18, 12, 16, 15, 15, 14, 11;
22, 15, 20, 18, 20, 14, 11, 15;
...
From _Gus Wiseman_, Oct 23 2023: (Start)
Row n = 9 counts the following partitions:
  (9)          (72)        (54)       (63)      (81)
  (711)        (5211)      (522)      (6111)    (621)
  (531)        (3321)      (4311)     (432)     (441)
  (51111)      (321111)    (411111)   (42111)   (4221)
  (333)        (21111111)  (32211)    (3222)    (22221)
  (33111)                  (2211111)  (222111)
  (3111111)
  (111111111)
(End)

Cf. A000009, A173305, A174712, A174714, A174715.
Row sums are A000041.
The odd version is A365067.
The corresponding rank statistic is A366531, odd version A366528.
A000009 counts partitions into odd parts, ranks A066208.
A113685 counts partitions by sum of odd parts, even version A113686.
A239261 counts partitions with (sum of odd parts) = (sum of even parts).
Cf. A035363, A066967, A130780, A171966, A182616, A366527, A366533.

Table[Length[Select[IntegerPartitions[n],Total[Select[#,EvenQ]]==k&]],{n,0,15},{k,0,n,2}] (* Gus Wiseman, Oct 23 2023 *)

As infinite lower triangular matrices, A173305 * A174712.

T(n,k) = A000009(n-2k) * A000041(k). - Gus Wiseman, Oct 23 2023

A366529 Heinz numbers of integer partitions of even numbers with at least one even part.

Original entry on oeis.org

3, 7, 9, 12, 13, 19, 21, 27, 28, 29, 30, 36, 37, 39, 43, 48, 49, 52, 53, 57, 61, 63, 66, 70, 71, 75, 76, 79, 81, 84, 87, 89, 90, 91, 101, 102, 107, 108, 111, 112, 113, 116, 117, 120, 129, 130, 131, 133, 138, 139, 144, 147, 148, 151, 154, 156, 159, 163, 165

Offset: 1

Gus Wiseman, Oct 16 2023

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The terms together with their prime indices begin:
   3: {2}
   7: {4}
   9: {2,2}
  12: {1,1,2}
  13: {6}
  19: {8}
  21: {2,4}
  27: {2,2,2}
  28: {1,1,4}
  29: {10}
  30: {1,2,3}
  36: {1,1,2,2}
  37: {12}
  39: {2,6}
  43: {14}
  48: {1,1,1,1,2}

The complement is counted by A047967.
For all even parts we have A066207, counted by A035363, odd A066208.
Not requiring an even part gives A300061.
For odd instead of even we have A300063.
Not requiring even sum gives A324929.
Partitions of this type are counted by A366527.
A112798 list prime indices, sum A056239.
A257991 counts odd prime indices, distinct A324966.
A257992 counts even prime indices, distinct A324967.
Cf. A000720, A001222, A003963, A033844, A086543, A324927, A358137, A366530.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[prix[#]]]&&Or@@EvenQ/@prix[#]&]

cp's OEIS Frontend

A182616 Number of partitions of 2n that contain odd parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A174713 Triangle read by rows, A173305 (A000009 shifted down twice) * A174712 (diagonalized variant of A000041).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A366529 Heinz numbers of integer partitions of even numbers with at least one even part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica