A236914 -id:A236914 - cp's OEIS frontend

A089677 Exponential convolution of A000670(n), with A000670(0)=0, with the sequence of all ones alternating in sign.

0, 1, 1, 7, 37, 271, 2341, 23647, 272917, 3543631, 51123781, 811316287, 14045783797, 263429174191, 5320671485221, 115141595488927, 2657827340990677, 65185383514567951, 1692767331628422661, 46400793659664205567, 1338843898122192101557

Offset: 0

Mario Catalani (mario.catalani(AT)unito.it), Jan 03 2004

Stirling transform of A005212(n)=[1,0,6,0,120,0,5040,...] is a(n)=[1,1,7,37,271,...]. - Michael Somos, Mar 04 2004

Occurs also as first column of a matrix-inversion occurring in a sum-of-like-powers problem. Consider the problem for any fixed natural number m>2 of finding solutions to sum(k=1,n,k^m) = (k+1)^m. Erdos conjectured that there are no solutions for n,m>2. Let D be the matrix of differences of D[m,n] := sum(k=1,n,k^m) - (k+1)^m. Then the generating functions for the rows of this matrix D constitute a set of polynomials in n (for varying n along columns) and the m-th polynomial defining the m-th row. Let GF_D be the matrix of the coefficients of this set of polynomials. Then the present sequence is the (unsigned) second column of GF_D^-1. - Gottfried Helms, Apr 01 2007

			From _Gus Wiseman_, Jan 06 2021: (Start)
a(n) is the number of ordered set partitions of {1..n} into an odd number of blocks. The a(1) = 1 through a(3) = 7 ordered set partitions are:
  {{1}}  {{1,2}}  {{1,2,3}}
                  {{1},{2},{3}}
                  {{1},{3},{2}}
                  {{2},{1},{3}}
                  {{2},{3},{1}}
                  {{3},{1},{2}}
                  {{3},{2},{1}}
(End)

Vincenzo Librandi, Table of n, a(n) for n = 0..200
J.-C. Aval, V. Féray, J.-C. Novelli, J.-Y. Thibon, Quasi-symmetric functions as polynomial functions on Young diagrams, arXiv preprint arXiv:1312.2727, 2013
Gottfried Helms, Discussion of a problem concerning summing of like powers

Ordered set partitions are counted by A000670.
The case of (unordered) set partitions is A024429.
The complement (even-length ordered set partitions) is counted by A052841.
A058695 counts partitions of odd numbers, ranked by A300063.
A101707 counts partitions of odd positive rank.
A160786 counts odd-length partitions of odd numbers, ranked by A300272.
A340102 counts odd-length factorizations into odd factors.
A340692 counts partitions of odd rank.
Other cases of odd length:
- A027193 counts partitions of odd length.
- A067659 counts strict partitions of odd length.
- A166444 counts compositions of odd length.
- A174726 counts ordered factorizations of odd length.
- A332304 counts strict compositions of odd length.
- A339890 counts factorizations of odd length.
Cf. A000700, A026424, A027187, A028260, A078408, A174725, A236914, A340101.

h := n -> add(combinat:-eulerian1(n,k)*2^k,k=0..n):
a := n -> (h(n)-(-1)^n)/2: seq(a(n),n=0..20); # Peter Luschny, Jul 09 2015

Table[Sum[Binomial[n, k](-1)^(n-k)Sum[i! StirlingS2[k, i], {i, 1, k}], {k, 0, n}], {n, 0, 20}]

a(n)=if(n<0,0,n!*polcoeff(subst(y/(1-y^2),y,exp(x+x*O(x^n))-1),n))

{a(n)=polcoeff(sum(m=0,n,(2*m+1)!*x^(2*m+1)/prod(k=1,2*m+1,1-k*x+x*O(x^n))),n)} /* Paul D. Hanna, Jul 20 2011 */

def A089677_list(len):  # with a(0)=1
    e, r = [1], [1]
    for i in (1..len-1):
        for k in range(i-1, -1, -1): e[k] = (e[k]*i)//(i-k)
        r.append(-sum(e[j]*(-1)^(i-j) for j in (0..i-1)))
        e.append(sum(e))
    return r
A089677_list(21) # Peter Luschny, Jul 09 2015

E.g.f.: (exp(x)-1)/(exp(x)*(2-exp(x))).
O.g.f.: Sum_{n>=0} (2*n+1)! * x^(2*n+1) / Product_{k=1..2*n+1} (1-k*x). - Paul D. Hanna, Jul 20 2011
a(n)=Sum(Binomial(n, k)(-1)^(n-k)Sum(i! Stirling2(k, i), i=1, ..k), k=0, .., n).
a(n) = (A000670(n)-(-1)^n)/2. - Vladeta Jovovic, Jan 17 2005
a(n) ~ n! / (4*(log(2))^(n+1)). - Vaclav Kotesovec, Feb 25 2014
a(n) = Sum_{k=0..floor(n/2)} (2*k+1)!*Stirling2(n, 2*k+1). - Peter Luschny, Sep 20 2015

A100824 Number of partitions of n with at most one odd part.

Original entry on oeis.org

1, 1, 1, 2, 2, 4, 3, 7, 5, 12, 7, 19, 11, 30, 15, 45, 22, 67, 30, 97, 42, 139, 56, 195, 77, 272, 101, 373, 135, 508, 176, 684, 231, 915, 297, 1212, 385, 1597, 490, 2087, 627, 2714, 792, 3506, 1002, 4508, 1255, 5763, 1575, 7338, 1958, 9296, 2436, 11732, 3010, 14742

Offset: 0

Vladeta Jovovic, Jan 13 2005

From Gus Wiseman, Jan 21 2022: (Start)
Also the number of integer partitions of n with alternating sum <= 1, where the alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i. These are the conjugates of partitions with at most one odd part. For example, the a(1) = 1 through a(9) = 12 partitions with alternating sum <= 1 are:
  1  11  21   22    32     33      43       44        54
         111  1111  221    2211    331      2222      441
                    2111   111111  2221     3311      3222
                    11111          3211     221111    3321
                                   22111    11111111  4311
                                   211111             22221
                                   1111111            33111
                                                      222111
                                                      321111
                                                      2211111
                                                      21111111
                                                      111111111
(End)

			From _Gus Wiseman_, Jan 21 2022: (Start)
The a(1) = 1 through a(9) = 12 partitions with at most one odd part:
  (1)  (2)  (3)   (4)   (5)    (6)    (7)     (8)     (9)
            (21)  (22)  (32)   (42)   (43)    (44)    (54)
                        (41)   (222)  (52)    (62)    (63)
                        (221)         (61)    (422)   (72)
                                      (322)   (2222)  (81)
                                      (421)           (432)
                                      (2221)          (441)
                                                      (522)
                                                      (621)
                                                      (3222)
                                                      (4221)
                                                      (22221)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..1000

Cf. A008951, A000070, A000097, A000098, A000710.
The case of alternating sum 0 (equality) is A000070.
A multiplicative version is A339846.
These partitions are ranked by A349150, conjugate A349151.
A000041 = integer partitions, strict A000009.
A027187 = partitions of even length, strict A067661, ranked by A028260.
A027193 = partitions of odd length, ranked by A026424.
A058695 = partitions of odd numbers.
A103919 = partitions by sum and alternating sum (reverse: A344612).
A277103 = partitions with the same number of odd parts as their conjugate.
Cf. A000984, A001791, A008549, A097805, A119620, A182616, A236559, A236913, A236914, A304620, A344607, A345958, A347443.

seq(coeff(convert(series((1+x/(1-x^2))/mul(1-x^(2*i),i=1..100),x,100),polynom),x,n),n=0..60); (C. Ronaldo)

nmax = 50; CoefficientList[Series[(1+x/(1-x^2)) * Product[1/(1-x^(2*k)), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 07 2016 *)
Table[Length[Select[IntegerPartitions[n],Count[#,?OddQ]<=1&]],{n,0,30}] (* _Gus Wiseman, Jan 21 2022 *)

a(n) = if(n%2==0, numbpart(n/2), sum(i=1, (n+1)\2, numbpart((n-2*i+1)\2))) \\ David A. Corneth, Jan 23 2022

G.f.: (1+x/(1-x^2))/Product(1-x^(2*i), i=1..infinity). More generally, g.f. for number of partitions of n with at most k odd parts is (1+Sum(x^i/Product(1-x^(2*j), j=1..i), i=1..k))/Product(1-x^(2*i), i=1..infinity).
a(n) ~ exp(sqrt(n/3)*Pi) / (2*sqrt(3)*n) if n is even and a(n) ~ exp(sqrt(n/3)*Pi) / (2*Pi*sqrt(n)) if n is odd. - Vaclav Kotesovec, Mar 07 2016
a(2*n) = A000041(n). a(2*n + 1) = A000070(n). - David A. Corneth, Jan 23 2022

More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 19 2005

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

Original entry on oeis.org

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

A347704 Number of even-length integer partitions of n with integer alternating product.

Original entry on oeis.org

1, 0, 1, 1, 3, 2, 6, 4, 11, 8, 18, 13, 33, 22, 49, 38, 79, 58, 122, 90, 186, 139, 268, 206, 402, 304, 569, 448, 817, 636, 1152, 907, 1612, 1283, 2220, 1791, 3071, 2468, 4162, 3409, 5655, 4634, 7597, 6283, 10171, 8478, 13491, 11336, 17906, 15088, 23513, 20012

Offset: 0

Gus Wiseman, Sep 17 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).

			The a(2) = 1 through a(9) = 8 partitions:
  (11)  (21)  (22)    (41)    (33)      (61)      (44)        (63)
              (31)    (2111)  (42)      (2221)    (62)        (81)
              (1111)          (51)      (4111)    (71)        (3321)
                              (2211)    (211111)  (2222)      (4221)
                              (3111)              (3221)      (6111)
                              (111111)            (3311)      (222111)
                                                  (4211)      (411111)
                                                  (5111)      (21111111)
                                                  (221111)
                                                  (311111)
                                                  (11111111)

Allowing any alternating product >= 1 gives A000041, reverse A344607.
Allowing any alternating product gives A027187, odd bisection A236914.
The Heinz numbers of these partitions are given by A028260 /\ A347457.
The reverse and reciprocal versions are both A035363.
The multiplicative version (factorizations) is A347438, reverse A347439.
The odd-length instead of even-length version is A347444.
Allowing any length gives A347446.
A034008 counts even-length compositions, ranked by A053754.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
Cf. A000070, A067661, A236913, A304620, A339846, A347437, A347441, A347442, A347445, A347448, A347449, A347454, A347462.

altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[IntegerPartitions[n],EvenQ[Length[#]]&&IntegerQ[altprod[#]]&]],{n,0,30}]

A343942 Number of even-length strict integer partitions of 2n+1.

Original entry on oeis.org

0, 1, 2, 3, 4, 6, 9, 13, 19, 27, 38, 52, 71, 96, 128, 170, 224, 292, 380, 491, 630, 805, 1024, 1295, 1632, 2049, 2560, 3189, 3959, 4896, 6038, 7424, 9100, 11125, 13565, 16496, 20013, 24223, 29249, 35244, 42378, 50849, 60896, 72789, 86841, 103424, 122960, 145937, 172928

Offset: 0

Gus Wiseman, Jun 09 2021

nonn

By conjugation, also the number of integer partitions of 2n+1 covering an initial interval of positive integers with greatest part even.

			The a(1) = 1 through a(7) = 13 strict partitions:
  (2,1)  (3,2)  (4,3)  (5,4)  (6,5)      (7,6)      (8,7)
         (4,1)  (5,2)  (6,3)  (7,4)      (8,5)      (9,6)
                (6,1)  (7,2)  (8,3)      (9,4)      (10,5)
                       (8,1)  (9,2)      (10,3)     (11,4)
                              (10,1)     (11,2)     (12,3)
                              (5,3,2,1)  (12,1)     (13,2)
                                         (5,4,3,1)  (14,1)
                                         (6,4,2,1)  (6,4,3,2)
                                         (7,3,2,1)  (6,5,3,1)
                                                    (7,4,3,1)
                                                    (7,5,2,1)
                                                    (8,4,2,1)
                                                    (9,3,2,1)

Ranked by A005117 (strict), A028260 (even length), and A300063 (odd sum).
Odd bisection of A067661 (non-strict: A027187).
The non-strict version is A236914.
The opposite type of strict partition (odd length and even sum) is A344650.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A344610 counts partitions by sum and positive reverse-alternating sum.
Cf. A000070, A000097, A030229, A035294, A067659, A236559, A338907, A343941, A344649, A344654, A344739.

Table[Length[Select[IntegerPartitions[2n+1],UnsameQ@@#&&EvenQ[Length[#]]&]],{n,0,15}]

The Heinz numbers are A005117 /\ A028260 /\ A300063.

More terms from Bert Dobbelaere, Jun 12 2021

A351595 Number of odd-length integer partitions y of n such that y_i > y_{i+1} for all even i.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 2, 3, 4, 5, 6, 9, 10, 13, 16, 20, 24, 30, 35, 44, 52, 63, 74, 90, 105, 126, 148, 175, 204, 242, 280, 330, 382, 446, 515, 600, 690, 800, 919, 1060, 1214, 1398, 1595, 1830, 2086, 2384, 2711, 3092, 3506, 3988, 4516, 5122, 5788, 6552, 7388, 8345

Offset: 0

Gus Wiseman, Feb 25 2022

nonn

			The a(1) = 1 through a(12) = 10 partitions (A..C = 10..12):
  1   2   3   4   5     6     7     8     9     A     B       C
                  221   321   331   332   432   442   443     543
                              421   431   441   532   542     552
                                    521   531   541   551     642
                                          621   631   632     651
                                                721   641     732
                                                      731     741
                                                      821     831
                                                      33221   921
                                                              43221

The ordered version (compositions) is A000213 shifted right once.
All odd-length partitions are counted by A027193.
The opposite appears to be A122130, even-length A351008, any length A122129.
This appears to be the odd-length case of A122135, even-length A122134.
The case that is constant at odd indices:
- any length: A351005
- odd length: A351593
- even length: A035457
- opposite any length: A351006
- opposite odd length: A053251
- opposite even length: A351007
For equality instead of inequality:
- any length: A351003
- odd-length: A000009 (except at 0)
- even-length: A351012
- opposite any length: A351004
- opposite odd-length: A351594
- opposite even-length: A035363
Cf. A000041, A000070, A003242, A027383, A236559, A236914, A350842.

Table[Length[Select[IntegerPartitions[n],OddQ[Length[#]]&&And@@Table[#[[i]]>#[[i+1]],{i,2,Length[#]-1,2}]&]],{n,0,30}]

A352128 Number of strict integer partitions of n with (1) as many even parts as odd parts, and (2) as many even conjugate parts as odd conjugate parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 2, 0, 2, 2, 3, 0, 3, 0, 2, 2, 5, 2, 5, 4, 6, 7, 7, 8, 8, 9, 9, 13, 9, 14, 12, 20, 13, 25, 17, 33, 23, 40, 26, 50, 33, 59, 39, 68, 45, 84, 58, 92, 70, 115, 88, 132, 109, 156, 139, 182, 172, 212, 211

Offset: 0

Gus Wiseman, Mar 15 2022

nonn

			The a(n) strict partitions for selected n:
n = 3      18         22          28           31              32
   -----------------------------------------------------------------------
    (2,1)  (8,5,3,2)  (8,6,5,3)   (12,7,5,4)   (10,7,5,4,3,2)  (12,8,7,5)
           (8,6,3,1)  (8,7,5,2)   (12,8,5,3)   (10,7,6,5,2,1)  (12,9,7,4)
                      (12,7,2,1)  (12,9,5,2)   (10,8,5,4,3,1)  (16,9,4,3)
                                  (16,9,2,1)   (10,9,6,3,2,1)  (12,10,7,3)
                                  (12,10,5,1)                  (12,11,7,2)
                                                               (16,11,4,1)

The first condition is A239241, non-strict A045931 (ranked by A325698).
This is the strict version of A351977, ranked by A350946.
The second condition is A352129, non-strict A045931 (ranked by A350848).
A000041 counts integer partitions, strict A000009.
A130780 counts partitions with no more even than odd parts, strict A239243.
A171966 counts partitions with no more odd than even parts, strict A239240.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847.
There are four other pairings of statistics:
- A277579, strict A352131.
- A277103, ranked by A350944, strict A000700.
- A277579, ranked by A350943, strict A352130.
- A350948, ranked by A350945.
There are two other double-pairings of statistics:
- A351976, ranked by A350949.
- A351981, ranked by A351980.
The case of all four statistics equal is A351978, ranked by A350947.
Cf. A000070, A014105, A088218, A098123, A195017, A236559, A236914, A241638, A325700, A350839, A350941.

conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Count[#,?OddQ]==Count[#,?EvenQ]&&Count[conj[#],?OddQ]==Count[conj[#],?EvenQ]&]],{n,0,30}]

A347452 Heinz numbers of integer partitions whose sum is 3/2 their length, rounded down.

Original entry on oeis.org

1, 2, 6, 12, 36, 40, 72, 80, 216, 224, 240, 432, 448, 480, 1296, 1344, 1408, 1440, 1600, 2592, 2688, 2816, 2880, 3200, 6656, 7776, 8064, 8448, 8640, 8960, 9600, 13312, 15552, 16128, 16896, 17280, 17920, 19200, 34816, 39936, 46656, 48384, 50176, 50688, 51840

Offset: 1

Gus Wiseman, Oct 28 2021

nonn

Also numbers whose sum of prime indices is 3/2 their number, rounded down, where a prime index of n is a number m such that prime(m) divides n.
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 sequence contains n iff A056239(n) = floor(3*A001222(n)/2). Here, A056239 adds up prime indices, and A001222 counts them with multiplicity.
Counting the partitions with these Heinz numbers gives A119620 with zeros interspersed every three terms.

			The initial terms and their prime indices:
      1: {}
      2: {1}
      6: {1,2}
     12: {1,1,2}
     36: {1,1,2,2}
     40: {1,1,1,3}
     72: {1,1,1,2,2}
     80: {1,1,1,1,3}
    216: {1,1,1,2,2,2}
    224: {1,1,1,1,1,4}
    240: {1,1,1,1,2,3}
    432: {1,1,1,1,2,2,2}
    448: {1,1,1,1,1,1,4}
    480: {1,1,1,1,1,2,3}
   1296: {1,1,1,1,2,2,2,2}
   1344: {1,1,1,1,1,1,2,4}
   1408: {1,1,1,1,1,1,1,5}
   1440: {1,1,1,1,1,2,2,3}
   1600: {1,1,1,1,1,1,3,3}

Counting terms by Heinz weight (in A032766) gives A119620.
An adjoint version is A348550, counted by A108711.
A000041 counts partitions.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A316524 gives the alternating sum of prime indices (reverse: A344616).
A344606 counts wiggly permutations of prime factors.
Cf. A000070, A000097, A028982, A236914, A316413, A347457, A348551.

Select[Range[1000],Total[Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]]==Floor[3*PrimeOmega[#]/2]&]

A351593 Number of odd-length integer partitions of n into parts that are alternately equal and strictly decreasing.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 4, 2, 4, 3, 5, 4, 6, 4, 8, 6, 9, 6, 12, 7, 14, 10, 16, 11, 20, 13, 24, 16, 28, 18, 34, 21, 40, 26, 46, 30, 56, 34, 64, 41, 75, 48, 88, 54, 102, 64, 118, 73, 138, 84, 159, 98, 182, 112, 210, 128, 242, 148, 276, 168, 318

Offset: 0

Gus Wiseman, Feb 23 2022

nonn

Also odd-length partitions whose run-lengths are all 2's, except for the last, which is 1.

			The a(1) = 1 through a(15) = 6 partitions (A..F = 10..15):
  1  2  3  4  5    6  7    8    9    A    B      C    D      E    F
              221     331  332  441  442  443    552  553    554  663
                                          551         661    662  771
                                          33221       44221       44331
                                                                  55221

The even-length ordered version is A003242, ranked by A351010.
The opposite version is A053251, even-length A351007, any length A351006.
This is the odd-length case of A351005, even-length A035457.
With only equalities we get:
  - opposite any length: A351003
  - opposite odd-length: A000009  (except at 0)
  - opposite even-length: A351012
- any length: A351004
- odd-length: A351594
- even-length: A035363
Without equalities we get:
  - opposite any length: A122129 (apparently)
  - opposite odd-length: A122130 (apparently)
  - opposite even-length: A351008
- any length: A122135 (apparently)
- odd-length: A351595
- even-length: A122134 (apparently)
Cf. A000070, A000984, A027383, A053738, A236559, A236914, A350842, A350844.

Table[Length[Select[IntegerPartitions[n],OddQ[Length[#]]&&And@@Table[If[EvenQ[i],#[[i]]!=#[[i+1]],#[[i]]==#[[i+1]]],{i,Length[#]-1}]&]],{n,0,30}]

cp's OEIS Frontend

A089677 Exponential convolution of A000670(n), with A000670(0)=0, with the sequence of all ones alternating in sign.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Sage

Formula

A100824 Number of partitions of n with at most one odd part.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

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

A347704 Number of even-length integer partitions of n with integer alternating product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A343942 Number of even-length strict integer partitions of 2n+1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A351595 Number of odd-length integer partitions y of n such that y_i > y_{i+1} for all even i.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A352128 Number of strict integer partitions of n with (1) as many even parts as odd parts, and (2) as many even conjugate parts as odd conjugate parts.

Views

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).