A067661 -id:A067661 - cp's OEIS frontend

A347445 Number of integer partitions of n with integer reverse-alternating product.

1, 1, 2, 2, 4, 4, 7, 8, 12, 14, 20, 24, 32, 40, 50, 62, 77, 99, 115, 151, 170, 224, 251, 331, 360, 481, 517, 690, 728, 980, 1020, 1379, 1420, 1918, 1962, 2643, 2677, 3630, 3651, 4920, 4926, 6659, 6625, 8931, 8853, 11905, 11781, 15805, 15562, 20872, 20518

Offset: 0

Gus Wiseman, Sep 14 2021

nonn

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

			The a(1) = 1 through a(8) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (221)    (33)      (322)      (44)
                    (211)   (311)    (222)     (331)      (332)
                    (1111)  (11111)  (411)     (421)      (422)
                                     (2211)    (511)      (611)
                                     (21111)   (22111)    (2222)
                                     (111111)  (31111)    (3311)
                                               (1111111)  (22211)
                                                          (41111)
                                                          (221111)
                                                          (2111111)
                                                          (11111111)

Allowing any reverse-alternating product >= 1 gives A344607.
Allowing any reverse-alternating product < 1 gives A344608.
The multiplicative version is A347442, unreversed A347437.
Allowing any reverse-alternating product <= 1 gives A347443.
Restricting to odd length gives A347444, ranked by A347453.
The unreversed version is A347446, ranked by A347457.
Allowing any reverse-alternating product > 1 gives A347449.
Ranked by A347454.
A000041 counts partitions, with multiplicative version A001055.
A027187 counts partitions of even length.
A027193 counts partitions of odd length.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A339890 counts factorizations with alternating product > 1, reverse A347705.
A347462 counts possible reverse-alternating products of partitions.
Cf. A025047, A067661, A119620, A344654, A344740, A347439, A347440, A347448, A347450, A347451, A347461, A347463, A347704.

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

A340602 Heinz numbers of integer partitions of even rank.

Original entry on oeis.org

1, 2, 5, 6, 8, 9, 11, 14, 17, 20, 21, 23, 24, 26, 30, 31, 32, 35, 36, 38, 39, 41, 44, 45, 47, 49, 50, 54, 56, 57, 58, 59, 65, 66, 67, 68, 73, 74, 75, 80, 81, 83, 84, 86, 87, 91, 92, 95, 96, 97, 99, 102, 103, 104, 106, 109, 110, 111, 120, 122, 124, 125, 126, 127

Offset: 1

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is 0.

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 of partitions with their Heinz numbers begins:
     1: ()           31: (11)           58: (10,1)
     2: (1)          32: (1,1,1,1,1)    59: (17)
     5: (3)          35: (4,3)          65: (6,3)
     6: (2,1)        36: (2,2,1,1)      66: (5,2,1)
     8: (1,1,1)      38: (8,1)          67: (19)
     9: (2,2)        39: (6,2)          68: (7,1,1)
    11: (5)          41: (13)           73: (21)
    14: (4,1)        44: (5,1,1)        74: (12,1)
    17: (7)          45: (3,2,2)        75: (3,3,2)
    20: (3,1,1)      47: (15)           80: (3,1,1,1,1)
    21: (4,2)        49: (4,4)          81: (2,2,2,2)
    23: (9)          50: (3,3,1)        83: (23)
    24: (2,1,1,1)    54: (2,2,2,1)      84: (4,2,1,1)
    26: (6,1)        56: (4,1,1,1)      86: (14,1)
    30: (3,2,1)      57: (8,2)          87: (10,2)

FindStat, St000145: The Dyson rank of a partition

Taking only length gives A001222.
Taking only maximum part gives A061395.
These partitions are counted by A340601.
The complement is A340603.
The case of positive rank is A340605.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A101198 counts partitions of rank 1 (A325233).
A101707 counts partitions of odd positive rank (A340604).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A324516 counts partitions with rank = maximum minus minimum part (A324515).
A340653 counts factorizations of rank 0.
A340692 counts partitions of odd rank (A340603).
- Even -
A024430 counts set partitions of even length.
A027187 counts partitions of even length (A028260).
A027187 (also) counts partitions of even maximum (A244990).
A034008 counts compositions of even length.
A035363 counts partitions into even parts (A066207).
A052841 counts ordered set partitions of even length.
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A236913 counts even-length partitions of even numbers (A340784).
A339846 counts factorizations of even length.
Cf. A000041, A006141, A056239, A072233, A112798, A168659, A325134, A326836, A326845, A340386, A340387.

Select[Range[100],EvenQ[PrimePi[FactorInteger[#][[-1,1]]]-PrimeOmega[#]]&]

Either n = 1 or A061395(n) - A001222(n) is even.

A347443 Number of integer partitions of n with reverse-alternating product <= 1.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 6, 10, 12, 19, 22, 34, 40, 60, 69, 101, 118, 168, 195, 272, 317, 434, 505, 679, 793, 1050, 1224, 1599, 1867, 2409, 2811, 3587, 4186, 5290, 6168, 7724, 9005, 11186, 13026, 16062, 18692, 22894, 26613, 32394, 37619, 45535, 52815, 63593, 73680

Offset: 0

Gus Wiseman, Sep 14 2021

nonn

Includes all partitions of even length (A027187).
Also the number of integer partitions of n with reverse-alternating sum <= 1.
Also the number of integer partitions of n having either even length (A027187) or having exactly one odd part in the conjugate partition (A100824).
We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)). The reverse-alternating product is the alternating product of the reversed sequence.

			The a(1) = 1 through a(8) = 12 partitions:
  (1)  (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (2111)   (2211)    (331)      (71)
                            (11111)  (3111)    (2221)     (2222)
                                     (111111)  (3211)     (3221)
                                               (4111)     (3311)
                                               (22111)    (4211)
                                               (211111)   (5111)
                                               (1111111)  (221111)
                                                          (311111)
                                                          (11111111)

The odd-length case is A035363 (shifted).
The strict case is A067661.
The non-reverse version is counted by A119620, ranked by A347466.
The even bisection is A236913.
The opposite version (>= instead of <=) is A344607.
The case of < 1 instead of <= 1 is A344608.
The multiplicative version (factorizations) is A347438, non-reverse A339846.
Allowing any integer reverse-alternating product gives A347445.
The complement (> 1 instead of <= 1) is counted by A347449.
Ranked by A347465, non-reverse A347450.
A000041 counts partitions.
A027187 counts partitions of even length.
A027193 counts partitions of odd length.
A058622 counts compositions with alternating sum <= 0 (A294175 for < 0).
A100824 counts partitions with alternating sum <= 1.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A347461 counts possible alternating products of partitions.
A347462 counts possible reverse-alternating products of partitions.
Cf. A000070, A038548, A086543, A116406, A325534, A325535, A344611, A344654, A344740, A347440, A347442, A347446, A347448.

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

a(n) = A027187(n) + A035363(n-1) for n >= 1. [Corrected by Georg Fischer, Dec 13 2022]

a(n) = A119620(n) + A344608(n).

A340784 Heinz numbers of even-length integer partitions of even numbers.

Original entry on oeis.org

1, 4, 9, 10, 16, 21, 22, 25, 34, 36, 39, 40, 46, 49, 55, 57, 62, 64, 81, 82, 84, 85, 87, 88, 90, 91, 94, 100, 111, 115, 118, 121, 129, 133, 134, 136, 144, 146, 155, 156, 159, 160, 166, 169, 183, 184, 187, 189, 194, 196, 198, 203, 205, 206, 210, 213, 218, 220

Offset: 1

Gus Wiseman, Jan 30 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are positive integers whose number of prime indices and sum of prime indices are both even, counting multiplicity in both cases.

A multiplicative semigroup: if m and n are in the sequence, then so is m*n. - Antti Karttunen, Jul 28 2024

			The sequence of partitions together with their Heinz numbers begins:
      1: ()            57: (8,2)            118: (17,1)
      4: (1,1)         62: (11,1)           121: (5,5)
      9: (2,2)         64: (1,1,1,1,1,1)    129: (14,2)
     10: (3,1)         81: (2,2,2,2)        133: (8,4)
     16: (1,1,1,1)     82: (13,1)           134: (19,1)
     21: (4,2)         84: (4,2,1,1)        136: (7,1,1,1)
     22: (5,1)         85: (7,3)            144: (2,2,1,1,1,1)
     25: (3,3)         87: (10,2)           146: (21,1)
     34: (7,1)         88: (5,1,1,1)        155: (11,3)
     36: (2,2,1,1)     90: (3,2,2,1)        156: (6,2,1,1)
     39: (6,2)         91: (6,4)            159: (16,2)
     40: (3,1,1,1)     94: (15,1)           160: (3,1,1,1,1,1)
     46: (9,1)        100: (3,3,1,1)        166: (23,1)
     49: (4,4)        111: (12,2)           169: (6,6)
     55: (5,3)        115: (9,3)            183: (18,2)

Antti Karttunen, Table of n, a(n) for n = 1..20000
Index entries for sequences computed from indices in prime factorization

Note: A-numbers of Heinz-number sequences are in parentheses below.
The case of prime powers is A056798.
These partitions are counted by A236913.
The odd version is A160786 (A340931).
A000009 counts partitions into odd parts (A066208).
A001222 counts prime factors.
A047993 counts balanced partitions (A106529).
A056239 adds up prime indices.
A058695 counts partitions of odd numbers (A300063).
A061395 selects the maximum prime index.
A072233 counts partitions by sum and length.
A112798 lists the prime indices of each positive integer.
- Even -
A027187 counts partitions of even length/maximum (A028260/A244990).
A034008 counts compositions of even length.
A035363 counts partitions into even parts (A066207).
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A339846 counts factorizations of even length.
A340601 counts partitions of even rank (A340602).
A340785 counts factorizations into even factors.
A340786 counts even-length factorizations into even factors.
Cf. A026424, A257541, A300272, A326837, A326845, A340385 (A340386), A340604, A353331 (characteristic function), A353332, A353333, A353334.
Squares (A000290) is a subsequence.
Not a subsequence of A329609 (30 is the first term of A329609 not occurring here, and 210 is the first term here not present in A329609).
Positions of even terms in A373381.

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

A056239(n) = { my(f); if(1==n, 0, f=factor(n); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1]))); }
A353331(n) = ((!(bigomega(n)%2)) && (!(A056239(n)%2)));
isA340784(n) = A353331(n); \\ Antti Karttunen, Apr 14 2022

Intersection of A028260 and A300061.

A340785 Number of factorizations of 2n into even factors > 1.

Original entry on oeis.org

1, 2, 1, 3, 1, 2, 1, 5, 1, 2, 1, 4, 1, 2, 1, 7, 1, 3, 1, 4, 1, 2, 1, 7, 1, 2, 1, 4, 1, 3, 1, 11, 1, 2, 1, 6, 1, 2, 1, 7, 1, 3, 1, 4, 1, 2, 1, 12, 1, 3, 1, 4, 1, 3, 1, 7, 1, 2, 1, 7, 1, 2, 1, 15, 1, 3, 1, 4, 1, 3, 1, 12, 1, 2, 1, 4, 1, 3, 1, 12, 1, 2, 1, 7, 1

Offset: 1

Gus Wiseman, Jan 30 2021

nonn

			The a(n) factorizations for n = 2*2, 2*4, 2*8, 2*12, 2*16, 2*32, 2*36, 2*48 are:
  4    8      16       24     32         64           72      96
  2*2  2*4    2*8      4*6    4*8        8*8          2*36    2*48
       2*2*2  4*4      2*12   2*16       2*32         4*18    4*24
              2*2*4    2*2*6  2*2*8      4*16         6*12    6*16
              2*2*2*2         2*4*4      2*4*8        2*6*6   8*12
                              2*2*2*4    4*4*4        2*2*18  2*6*8
                              2*2*2*2*2  2*2*16               4*4*6
                                         2*2*2*8              2*2*24
                                         2*2*4*4              2*4*12
                                         2*2*2*2*4            2*2*4*6
                                         2*2*2*2*2*2          2*2*2*12
                                                              2*2*2*2*6

Antti Karttunen, Table of n, a(n) for n = 1..20000

Note: A-numbers of Heinz-number sequences are in parentheses below.
The version for partitions is A035363 (A066207).
The odd version is A340101.
The even length case is A340786.
- Factorizations -
A001055 counts factorizations, with strict case A045778.
A340653 counts balanced factorizations.
A340831/A340832 count factorizations with odd maximum/minimum.
A316439 counts factorizations by product and length
A340102 counts odd-length factorizations of odd numbers into odd factors.
- Even -
A027187 counts partitions of even length/maximum (A028260/A244990).
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A236913 counts partitions of even length and sum.
A340601 counts partitions of even rank (A340602).
Cf. A001147, A001222, A050320, A066208, A160786, A174725, A320655, A320656, A339890, A340851.
Even bisection of A349906.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],Select[#,OddQ]=={}&]],{n,2,100,2}]

A349906(n, m=n) = if(1==n, 1, my(s=0); fordiv(n, d, if((d>1)&&(d<=m)&&!(d%2), s += A349906(n/d, d))); (s));
A340785(n) = A349906(2*n); \\ Antti Karttunen, Dec 13 2021

a(n) = A349906(2*n). - Antti Karttunen, Dec 13 2021

A351004 Alternately constant partitions. Number of integer partitions y of n such that y_i = y_{i+1} for all odd i.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 5, 4, 7, 7, 10, 9, 15, 13, 21, 19, 28, 26, 40, 35, 54, 49, 72, 64, 97, 87, 128, 115, 167, 151, 220, 195, 284, 256, 366, 328, 469, 421, 598, 537, 757, 682, 959, 859, 1204, 1085, 1507, 1354, 1880, 1694, 2338, 2104, 2892, 2609, 3574, 3218, 4394

Offset: 0

Gus Wiseman, Jan 31 2022

nonn

These are partitions of n with all even multiplicities (or run-lengths), except possibly the last.

			The a(1) = 1 through a(9) = 7 partitions:
  1  2   3    4     5      6       7        8         9
     11  111  22    221    33      331      44        333
              1111  11111  222     22111    332       441
                           2211    1111111  2222      22221
                           111111           3311      33111
                                            221111    2211111
                                            11111111  111111111

The ordered version (compositions) is A016116.
The even-length case is A035363.
A reverse version is A096441, both A349060.
The version for unequal instead of equal is A122129, even-length A351008.
The version for even instead of odd indices is A351003, even-length A351012.
The strict version is A351005, opposite A351006, even-length A035457.
Cf. A000070, A018819, A027383, A088218, A067661, A101417, A122134, A122135, A350842, A351007.

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

A340605 Heinz numbers of integer partitions of even positive rank.

Original entry on oeis.org

5, 11, 14, 17, 21, 23, 26, 31, 35, 38, 39, 41, 44, 47, 49, 57, 58, 59, 65, 66, 67, 68, 73, 74, 83, 86, 87, 91, 92, 95, 97, 99, 102, 103, 104, 106, 109, 110, 111, 122, 124, 127, 129, 133, 137, 138, 142, 143, 145, 149, 152, 153, 154, 156, 157, 158, 159, 164, 165

Offset: 1

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its number of parts. The rank of an empty partition is 0.

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 of partitions with their Heinz numbers begins:
      5: (3)         57: (8,2)       97: (25)
     11: (5)         58: (10,1)      99: (5,2,2)
     14: (4,1)       59: (17)       102: (7,2,1)
     17: (7)         65: (6,3)      103: (27)
     21: (4,2)       66: (5,2,1)    104: (6,1,1,1)
     23: (9)         67: (19)       106: (16,1)
     26: (6,1)       68: (7,1,1)    109: (29)
     31: (11)        73: (21)       110: (5,3,1)
     35: (4,3)       74: (12,1)     111: (12,2)
     38: (8,1)       83: (23)       122: (18,1)
     39: (6,2)       86: (14,1)     124: (11,1,1)
     41: (13)        87: (10,2)     127: (31)
     44: (5,1,1)     91: (6,4)      129: (14,2)
     47: (15)        92: (9,1,1)    133: (8,4)
     49: (4,4)       95: (8,3)      137: (33)

FindStat, St000145: The Dyson rank of a partition

Note: Heinz numbers are given in parentheses below.
Allowing any positive rank gives A064173 (A340787).
The odd version is counted by A101707 (A340604).
These partitions are counted by A101708.
The not necessarily positive case is counted by A340601 (A340602).
A001222 counts prime indices.
A061395 gives maximum prime index.
A072233 counts partitions by sum and length.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A064173 counts partitions of negative rank (A340788).
A064174 counts partitions of nonnegative rank (A324562).
A064174 (also) counts partitions of nonpositive rank (A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A340692 counts partitions of odd rank (A340603).
- Even -
A027187 counts partitions of even length (A028260).
A027187 (also) counts partitions of even maximum (A244990).
A035363 counts partitions into even parts (A066207).
A058696 counts partitions of even numbers (A300061).
A067661 counts strict partitions of even length (A030229).
A339846 counts factorizations of even length.
Cf. A006141, A024430, A056239, A112798, A340387, A340598, A340600, A340608, A340609, A340610, A340653.

rk[n_]:=PrimePi[FactorInteger[n][[-1,1]]]-PrimeOmega[n];
Select[Range[100],EvenQ[rk[#]]&&rk[#]>0&]

A061395(a(n)) - A001222(a(n)) is even and positive.

A340604 \/ A340605 = A340787.

A347444 Number of odd-length integer partitions of n with integer alternating product.

Original entry on oeis.org

0, 1, 1, 2, 2, 4, 4, 8, 7, 14, 13, 24, 21, 40, 35, 62, 55, 99, 85, 151, 128, 224, 195, 331, 283, 481, 416, 690, 593, 980, 844, 1379, 1189, 1918, 1665, 2643, 2292, 3630, 3161, 4920, 4299, 6659, 5833, 8931, 7851, 11905, 10526, 15805, 13987, 20872, 18560, 27398

Offset: 0

Gus Wiseman, Sep 14 2021

nonn

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

The reverse version (integer reverse-alternating product) is the same.

			The a(1) = 1 through a(9) = 14 partitions:
  (1)  (2)  (3)    (4)    (5)      (6)      (7)        (8)        (9)
            (111)  (211)  (221)    (222)    (322)      (332)      (333)
                          (311)    (411)    (331)      (422)      (441)
                          (11111)  (21111)  (421)      (611)      (522)
                                            (511)      (22211)    (621)
                                            (22111)    (41111)    (711)
                                            (31111)    (2111111)  (22221)
                                            (1111111)             (32211)
                                                                  (33111)
                                                                  (42111)
                                                                  (51111)
                                                                  (2211111)
                                                                  (3111111)
                                                                  (111111111)

The reciprocal version is A035363.
Allowing any alternating product gives A027193.
The multiplicative version (factorizations) is A347441.
Allowing any length gives A347446, reverse A347445.
Allowing any length and alternating product > 1 gives A347448.
Allowing any reverse-alternating product > 1 gives A347449.
Ranked by A347453.
The even-length instead of odd-length version is A347704.
A000041 counts partitions.
A000302 counts odd-length compositions, ranked by A053738.
A025047 counts wiggly compositions.
A026424 lists numbers with odd bigomega.
A027187 counts partitions of even length, strict A067661.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1, ranked by A028982.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A339890 counts odd-length factorizations.
A347437 counts factorizations with integer alternating product.
A347461 counts possible alternating products of partitions.
Cf. A000070, A236559, A236913, A236914, A304620, A344654, A347439, A347442, A347456, A347457, A347460, A347462, A347463.

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

A332305 Number of compositions (ordered partitions) of n into distinct parts such that number of parts is even.

Original entry on oeis.org

1, 0, 0, 2, 2, 4, 4, 6, 6, 8, 32, 34, 58, 84, 132, 158, 230, 280, 376, 450, 570, 1388, 1556, 2398, 3310, 4920, 6600, 9674, 12122, 16684, 21340, 28110, 34974, 45392, 55208, 69274, 124498, 143676, 204012, 270758, 377966, 493024, 690304, 895434, 1223826, 1562948

Offset: 0

Ilya Gutkovskiy, Feb 09 2020

nonn

			a(5) = 4 because we have [4, 1], [3, 2], [2, 3] and [1, 4].

Alois P. Heinz, Table of n, a(n) for n = 0..5000
Index entries for sequences related to compositions

Cf. A027187, A032020, A034008, A067661, A332304.

b:= proc(n, i, p) option remember; `if`(i*(i+1)/2 b(n$2, 0):
seq(a(n), n=0..55);  # Alois P. Heinz, Feb 09 2020

nmax = 45; CoefficientList[Series[Sum[(2 k)! x^(k (2 k + 1))/Product[1 - x^j, {j, 1, 2 k}], {k, 0, nmax}], {x, 0, nmax}], x]

G.f.: Sum_{k>=0} (2*k)! * x^(k*(2*k + 1)) / Product_{j=1..2*k} (1 - x^j).

a(n) = A032020(n) - A332304(n).

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

cp's OEIS Frontend

A347445 Number of integer partitions of n with integer reverse-alternating product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340602 Heinz numbers of integer partitions of even rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A347443 Number of integer partitions of n with reverse-alternating product <= 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A340784 Heinz numbers of even-length integer partitions of even numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A340785 Number of factorizations of 2n into even factors > 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A351004 Alternately constant partitions. Number of integer partitions y of n such that y_i = y_{i+1} for all odd i.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340605 Heinz numbers of integer partitions of even positive rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A347444 Number of odd-length integer partitions of n with integer alternating product.

Views

Author

Keywords

Comments

Examples