A318156 -id:A318156 - cp's OEIS frontend

A304620 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(2k) / Product_{j=1..2k} (1 - x^j).

1, 1, 2, 3, 6, 9, 15, 22, 34, 48, 70, 97, 137, 186, 255, 341, 459, 605, 800, 1042, 1359, 1751, 2256, 2879, 3672, 4645, 5869, 7367, 9234, 11508, 14319, 17730, 21916, 26975, 33143, 40570, 49575, 60376, 73402, 88974, 107666, 129933, 156546, 188148, 225767, 270300, 323115, 385453

Offset: 0

Ilya Gutkovskiy, Aug 19 2018

nonn

Partial sums of A027187.
From Gus Wiseman, Jun 26 2021: (Start)
Also the number of integer partitions of 2n+1 with odd greatest part and alternating sum 1, where the alternating sum of a partition (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i, which is equal to the number of odd parts in the conjugate partition. For example, the a(0) = 1 through a(6) = 15 partitions are:
  1   111   32      331       54          551           76
            11111   3211      3222        3332          5422
                    1111111   3321        5411          5521
                              33111       33221         33331
                              321111      322211        55111
                              111111111   332111        322222
                                          3311111       332221
                                          32111111      333211
                                          11111111111   541111
                                                        3322111
                                                        32221111
                                                        33211111
                                                        331111111
                                                        3211111111
                                                        1111111111111
Also odd-length partitions of 2n+1 with exactly one odd part.
(End)

Joerg Arndt, Matters Computational (The Fxtbook), section 16.4.1 "Unrestricted partitions and partitions into m parts", page 347.
Index entries for sequences related to partitions

First differences are A027187.
The version for even instead of odd greatest part is A306145.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A000070 counts partitions with alternating sum 1.
A067661 counts strict partitions of even length.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A344610 counts partitions by sum and positive reverse-alternating sum.
Cf. A000097, A006330, A027193, A030229, A067659, A236559, A236914, A239829, A239830, A318156, A338907, A344611.

nmax = 47; CoefficientList[Series[1/(1 - x) Sum[x^(2 k)/Product[(1 - x^j), {j, 1, 2 k}], {k, 0, nmax}], {x, 0, nmax}], x]
nmax = 47; CoefficientList[Series[(1 + EllipticTheta[4, 0, x])/(2 (1 - x) QPochhammer[x]), {x, 0, nmax}], x]
Table[Length[Select[IntegerPartitions[n],OddQ[Length[#]]&&Count[#,?OddQ]==1&]],{n,1,30,2}] (* _Gus Wiseman, Jun 26 2021 *)

a(n) = A000070(n) - A306145(n).

a(n) ~ exp(Pi*sqrt(2*n/3)) / (2^(5/2)*Pi*sqrt(n)). - Vaclav Kotesovec, Aug 20 2018

A306145 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(2k+1) / Product_{j=1..2k+1} (1 - x^j).

Original entry on oeis.org

0, 1, 2, 4, 6, 10, 15, 23, 33, 49, 69, 98, 135, 187, 253, 343, 456, 607, 797, 1045, 1355, 1755, 2252, 2884, 3666, 4651, 5863, 7375, 9226, 11517, 14310, 17741, 21904, 26988, 33130, 40586, 49558, 60394, 73383, 88996, 107642, 129958, 156519, 188178, 225734, 270335, 323078, 385494

Offset: 0

Ilya Gutkovskiy, Aug 19 2018

nonn

Partial sums of A027193.
From Gus Wiseman, Jun 23 2021: (Start)
Also the number of even-length integer partitions of 2n+1 with exactly one odd part. For example, the a(1) = 1 through a(5) = 10 partitions are:
  (2,1)  (3,2)  (4,3)      (5,4)      (6,5)
         (4,1)  (5,2)      (6,3)      (7,4)
                (6,1)      (7,2)      (8,3)
                (2,2,2,1)  (8,1)      (9,2)
                           (3,2,2,2)  (10,1)
                           (4,2,2,1)  (4,3,2,2)
                                      (4,4,2,1)
                                      (5,2,2,2)
                                      (6,2,2,1)
                                      (2,2,2,2,2,1)
Also partitions of 2n+1 with even greatest part and alternating sum 1.
(End)

Joerg Arndt, Matters Computational (The Fxtbook), section 16.4.1 "Unrestricted partitions and partitions into m parts", page 347.
Index entries for sequences related to partitions

First differences are A027193.
The ordered version appears to be A087447 modulo initial terms.
The version for odd instead of even-length partitions is A304620.
The case of strict partitions is A318156.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A027187 counts partitions of even length, with strict case A067661.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A344610 counts partitions by sum and positive reverse-alternating sum.
Cf. A000070, A000097, A006330, A030229, A067659, A236559, A236914, A239829, A239830, A338907, A344611.

nmax = 47; CoefficientList[Series[1/(1 - x) Sum[x^(2 k + 1)/Product[(1 - x^j), {j, 1, 2 k + 1}], {k, 0, nmax}], {x, 0, nmax}], x]
nmax = 47; CoefficientList[Series[(1 - EllipticTheta[4, 0, x])/(2 (1 - x) QPochhammer[x]), {x, 0, nmax}], x]
Table[Length[Select[IntegerPartitions[n],EvenQ[Length[#]]&&Count[#,?OddQ]==1&]],{n,1,30,2}] (* _Gus Wiseman, Jun 23 2021 *)

a(n) = A000070(n) - A304620(n).

a(n) ~ exp(Pi*sqrt(2*n/3)) / (2^(5/2)*Pi*sqrt(n)). - Vaclav Kotesovec, Aug 20 2018

A318155 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(k(2k+1)) / Product_{j=1..2*k} (1 - x^j).

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 7, 10, 13, 17, 22, 28, 35, 44, 55, 68, 84, 103, 126, 153, 185, 223, 268, 320, 381, 452, 535, 631, 742, 870, 1018, 1188, 1383, 1607, 1863, 2155, 2489, 2869, 3301, 3792, 4348, 4978, 5691, 6496, 7404, 8428, 9580, 10875, 12330, 13962, 15791, 17840, 20131, 22691

Offset: 0

Ilya Gutkovskiy, Aug 19 2018

nonn

Partial sums of A067661.
From Gus Wiseman, Jul 29 2021: (Start)
Also the number of strict integer partitions of 2n+1 of odd length with exactly one odd part. For example, the a(1) = 1 through a(7) = 10 partitions are:
  (1)  (3)  (5)  (7)      (9)      (11)     (13)      (15)
                 (4,2,1)  (4,3,2)  (5,4,2)  (6,4,3)   (6,5,4)
                          (6,2,1)  (6,3,2)  (6,5,2)   (7,6,2)
                                   (6,4,1)  (7,4,2)   (8,4,3)
                                   (8,2,1)  (8,3,2)   (8,5,2)
                                            (8,4,1)   (8,6,1)
                                            (10,2,1)  (9,4,2)
                                                      (10,3,2)
                                                      (10,4,1)
                                                      (12,2,1)
The following relate to these partitions:
- Not requiring odd length gives A036469.
- The non-strict version is A304620.
- The version for even instead of odd length is A318156.
- Allowing any number of odd parts gives A346634 (bisection of A067659).
(End)

Joerg Arndt, Matters Computational (The Fxtbook), section 16.4.2 "Partitions into distinct parts", page 350.
Index entries for sequences related to partitions

Cf. A036469, A078616, A304620, A318156.
First differences are A067661 (non-strict: A027187, odd bisection: A343942).
A000041 counts partitions.
A000070 counts partitions with alternating sum 1.
A078408 counts strict partitions of 2n+1 (odd bisection of A000009).
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A344610 counts partitions by sum and positive reverse-alternating sum.
Cf. A027193, A035294, A067659, A087447, A236559, A236914, A239829, A306145, A344611, A344739, A346634.

nmax = 53; CoefficientList[Series[1/(1 - x) Sum[x^(k (2 k + 1))/Product[(1 - x^j), {j, 1, 2 k}], {k, 0, nmax}], {x, 0, nmax}], x]
nmax = 53; CoefficientList[Series[(QPochhammer[-x, x] + QPochhammer[x])/(2 (1 - x)), {x, 0, nmax}], x]
Table[Length[Select[IntegerPartitions[2n+1],UnsameQ@@#&&OddQ[Length[#]]&&Count[#,?OddQ]==1&]],{n,0,15}] (* _Gus Wiseman, Jul 29 2021 *)

a(n) = A036469(n) - A318156(n).
a(n) = A318156(n) + A078616(n).
a(n) ~ 3^(1/4) * exp(Pi*sqrt(n/3)) / (4*Pi*n^(1/4)). - Vaclav Kotesovec, Aug 20 2018

cp's OEIS Frontend

A304620 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(2k) / Product_{j=1..2k} (1 - x^j).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A306145 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(2k+1) / Product_{j=1..2k+1} (1 - x^j).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A318155 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(k(2k+1)) / Product_{j=1..2*k} (1 - x^j).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

cp's OEIS Frontend

A304620 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(2*k) / Product_{j=1..2*k} (1 - x^j).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A306145 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(2*k+1) / Product_{j=1..2*k+1} (1 - x^j).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A318155 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(k*(2*k+1)) / Product_{j=1..2*k} (1 - x^j).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A304620 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(2k) / Product_{j=1..2k} (1 - x^j).

A306145 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(2k+1) / Product_{j=1..2k+1} (1 - x^j).

A318155 Expansion of (1/(1 - x)) * Sum_{k>=0} x^(k(2k+1)) / Product_{j=1..2*k} (1 - x^j).