A008289 -id:A008289 - cp's OEIS frontend

A364272 Number of strict integer partitions of n containing the sum of some subset of the parts. A variation of sum-full strict partitions.

0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 3, 1, 4, 3, 8, 6, 11, 10, 17, 16, 26, 25, 39, 39, 54, 60, 82, 84, 116, 126, 160, 177, 222, 242, 302, 337, 402, 453, 542, 601, 722, 803, 936, 1057, 1234, 1373, 1601, 1793, 2056, 2312, 2658, 2950, 3395, 3789, 4281, 4814, 5452, 6048

Offset: 0

Gus Wiseman, Aug 01 2023

nonn

First differs from A316402 at a(16) = 11 due to (7,5,3,1).

			The a(6) = 1 through a(16) = 11 partitions (A=10):
  (321) . (431) . (532)  (5321) (642)  (5431) (743)  (6432)  (853)
                  (541)         (651)  (6421) (752)  (6531)  (862)
                  (4321)        (5421) (7321) (761)  (7431)  (871)
                                (6321)        (5432) (7521)  (6532)
                                              (6431) (9321)  (6541)
                                              (6521) (54321) (7432)
                                              (7421)         (7621)
                                              (8321)         (8431)
                                                             (8521)
                                                             (A321)
                                                             (64321)

The non-strict complement is A237667, ranks A364531.
The non-strict version is A237668, ranks A364532.
The complement in strict partitions is A364349, binary A364533.
The linear combination-free version is A364350.
For subsets of {1..n} we have A364534, complement A151897.
The binary version is A364670, allowing re-used parts A363226.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A108917 counts knapsack partitions, strict A275972, ranks A299702.
A236912 counts binary sum-free partitions, complement A237113.
A323092 counts double-free partitions, ranks A320340.
Cf. A007865, A025065, A085489, A093971, A111133, A240861, A320347, A325862, A363225, A364346.

Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Intersection[#, Total/@Subsets[#,{2,Length[#]}]]!={}&]],{n,0,30}]

A015723 Number of parts in all partitions of n into distinct parts.

Original entry on oeis.org

1, 1, 3, 3, 5, 8, 10, 13, 18, 25, 30, 40, 49, 63, 80, 98, 119, 149, 179, 218, 266, 318, 380, 455, 541, 640, 760, 895, 1050, 1234, 1442, 1679, 1960, 2272, 2635, 3052, 3520, 4054, 4669, 5359, 6142, 7035, 8037, 9170, 10460, 11896, 13517, 15349, 17394, 19691

Offset: 1

Clark Kimberling

nonn

			The strict integer partitions of 6 are {(6), (5,1), (4,2), (3,2,1)} with a total of 1 + 2 + 2 + 3 = 8 parts, so a(6) = 8. - _Gus Wiseman_, May 09 2019

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)
Martin Klazar, What is an answer? — remarks, results and problems on PIO formulas in combinatorial enumeration, part I, arXiv:1808.08449 [math.CO], 2018.
Arnold Knopfmacher, and Neville Robbins, Identities for the total number of parts in partitions of integers, Util. Math. 67 (2005), 9-18.
Mircea Merca, Combinatorial interpretations of a recent convolution for the number of divisors of a positive integer, Journal of Number Theory, Volume 160, March 2016, Pages 60-75. See s(n).
Eric Weisstein's World of Mathematics, q-Polygamma Function, q-Pochhammer Symbol.

Cf. A006128, A008289, A079499, A067619, A186545.
Column k=1 of: A210485, A213177, A327622.
Row lengths of A325537.
Cf. A022629, A066186, A066189, A325504, A325505, A325506, A325513, A325515.

b:= proc(n, i) option remember; `if`(n=0, [1, 0], `if`(i<1, [0, 0],
      add((l->[l[1], l[2]+l[1]*j])(b(n-i*j, i-1)), j=0..min(n/i, 1))))
    end:
a:= n-> b(n, n)[2]:
seq(a(n), n=1..50);  # Alois P. Heinz, Feb 27 2013

nn=50; Rest[CoefficientList[Series[D[Product[1+y x^i,{i,1,nn}],y]/.y->1,{x,0,nn}],x]]  (* Geoffrey Critzer, Oct 29 2012; fixed by Vaclav Kotesovec, Apr 16 2016 *)
q[n_, k_] := q[n, k] = If[nVaclav Kotesovec, Apr 16 2016 *)
Table[Length[Join@@Select[IntegerPartitions[n],UnsameQ@@#&]],{n,1,50}] (* Gus Wiseman, May 09 2019 *)
b[n_, i_] := b[n, i] = If[n == 0, {1, 0}, If[i<1, {0, 0},
   Sum[{#[[1]], #[[2]] + #[[1]]*j}&@ b[n-i*j, i-1], {j, 0, Min[n/i, 1]}]]];
a[n_] := b[n, n][[2]];
Array[a, 50] (* Jean-François Alcover, May 21 2021, after Alois P. Heinz *)

N=66;  q='q+O('q^N); gf=sum(n=0,N, n*q^(n*(n+1)/2) / prod(k=1,n, 1-q^k ) );
Vec(gf) /* Joerg Arndt, Oct 20 2012 */

G.f.: sum(k>=1, x^k/(1+x^k) ) * prod(m>=1, 1+x^m ). Convolution of A048272 and A000009. - Vladeta Jovovic, Nov 26 2002
G.f.: sum(k>=1, k*x^(k*(k+1)/2)/prod(i=1..k, 1-x^i ) ). - Vladeta Jovovic, Sep 21 2005
a(n) = A238131(n)+A238132(n) = sum_{k=1..n} A048272(k)*A000009(n-k). - Mircea Merca, Feb 26 2014
a(n) = Sum_{k>=1} k*A008289(n,k). - Vaclav Kotesovec, Apr 16 2016
G.f.: -(-1; x)inf * (log(1-x) + psi_x(1 - log(-1)/log(x)))/(2*log(x)), where psi_q(z) is the q-digamma function, (a; q)_inf is the q-Pochhammer symbol, log(-1) = i*Pi. - _Vladimir Reshetnikov, Nov 21 2016
a(n) ~ 3^(1/4) * log(2) * exp(Pi*sqrt(n/3)) / (2 * Pi * n^(1/4)). - Vaclav Kotesovec, May 19 2018
For n > 0, a(n) = A116676(n) + A116680(n). - Vaclav Kotesovec, May 26 2018

Extended and corrected by Naohiro Nomoto, Feb 24 2002

A237113 Number of partitions of n such that some part is a sum of two other parts.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 3, 3, 8, 10, 17, 22, 37, 47, 71, 91, 133, 170, 236, 301, 408, 515, 686, 860, 1119, 1401, 1798, 2232, 2829, 3495, 4378, 5381, 6682, 8165, 10060, 12238, 14958, 18116, 22018, 26533, 32071, 38490, 46265, 55318, 66193, 78843, 93949, 111503, 132326

Offset: 0

Clark Kimberling, Feb 04 2014

nonn

These are partitions containing the sum of some 2-element submultiset of the parts, a variation of binary sum-full partitions where parts cannot be re-used, ranked by A364462. The complement is counted by A236912. The non-binary version is A237668. For re-usable parts we have A363225. - Gus Wiseman, Aug 10 2023

			Of the 11 partitions of 6, only these 3 include a part that is a sum of two other parts: [3,2,1], [2,2,1,1], [2,1,1,1,1].  Thus, a(6) = 3.
From _Gus Wiseman_, Aug 09 2023: (Start)
The a(0) = 0 through a(9) = 10 partitions:
  .  .  .  .  (211)  (2111)  (321)    (3211)    (422)      (3321)
                             (2211)   (22111)   (431)      (4221)
                             (21111)  (211111)  (3221)     (4311)
                                                (4211)     (5211)
                                                (22211)    (32211)
                                                (32111)    (42111)
                                                (221111)   (222111)
                                                (2111111)  (321111)
                                                           (2211111)
                                                           (21111111)
(End)

The complement for subsets is A085489, with re-usable parts A007865.
For subsets of {1..n} we have A088809, with re-usable parts A093971.
The complement is counted by A236912, ranks A364461.
The non-binary complement is A237667, ranks A364531.
The non-binary version is A237668, ranks A364532.
With re-usable parts we have A363225, ranks A364348.
The complement with re-usable parts is A364345, ranks A364347.
These partitions have ranks A364462.
The strict case is A364670, with re-usable parts A363226.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A108917 counts knapsack partitions, ranks A299702.
A323092 counts double-free partitions, ranks A320340.
Cf. A002865, A151897, A237984, A325862, A326083, A363260.

z = 20; t = Map[Count[Map[Length[Cases[Map[Total[#] &, Subsets[#, {2}]],  Apply[Alternatives, #]]] &, IntegerPartitions[#]], 0] &, Range[z]] (* A236912 *)
u = PartitionsP[Range[z]] - t  (* A237113, Peter J. C. Moses, Feb 03 2014 *)
Table[Length[Select[IntegerPartitions[n],Intersection[#,Total/@Subsets[#,{2}]]!={}&]],{n,0,30}] (* Gus Wiseman, Aug 09 2023 *)

a(n) = A000041(n) - A236912(n).

a(0)=0 prepended by Alois P. Heinz, Sep 17 2023

A359902 Triangle read by rows where T(n,k) is the number of odd-length integer partitions of n with median k.

Original entry on oeis.org

1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 2, 1, 0, 0, 1, 2, 2, 0, 0, 0, 1, 4, 2, 1, 0, 0, 0, 1, 4, 3, 2, 0, 0, 0, 0, 1, 7, 4, 3, 1, 0, 0, 0, 0, 1, 8, 6, 3, 2, 0, 0, 0, 0, 0, 1, 12, 8, 4, 3, 1, 0, 0, 0, 0, 0, 1, 14, 11, 5, 4, 2, 0, 0, 0, 0, 0, 0, 1

Offset: 1

Gus Wiseman, Jan 21 2023

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

			Triangle begins:
  1
  0  1
  1  0  1
  1  0  0  1
  2  1  0  0  1
  2  2  0  0  0  1
  4  2  1  0  0  0  1
  4  3  2  0  0  0  0  1
  7  4  3  1  0  0  0  0  1
  8  6  3  2  0  0  0  0  0  1
 12  8  4  3  1  0  0  0  0  0  1
 14 11  5  4  2  0  0  0  0  0  0  1
 21 14  8  4  3  1  0  0  0  0  0  0  1
 24 20 10  5  4  2  0  0  0  0  0  0  0  1
 34 25 15  6  5  3  1  0  0  0  0  0  0  0  1
For example, row n = 9 counts the following partitions:
  (7,1,1)              (5,2,2)      (3,3,3)  (4,4,1)  .  .  .  .  (9)
  (3,3,1,1,1)          (6,2,1)      (4,3,2)
  (4,2,1,1,1)          (2,2,2,2,1)  (5,3,1)
  (5,1,1,1,1)          (3,2,2,1,1)
  (2,2,1,1,1,1,1)
  (3,1,1,1,1,1,1)
  (1,1,1,1,1,1,1,1,1)

Column k=1 is A002865(n-1).
Row sums are A027193 (odd-length ptns), strict A067659.
This is the odd-length case of A359901, with half-steps A359893.
The median statistic is ranked by A360005(n)/2.
First appearances of medians are ranked by A360006, A360007.
A000041 counts partitions, strict A000009.
A058398 counts partitions by mean, see also A008284, A327482.
A067538 counts partitions w/ integer mean, strict A102627, ranked by A316413.
A240219 counts partitions w/ the same mean as median, complement A359894.
A325347 counts partitions w/ integer median, complement A307683.
A326567/A326568 gives mean of prime indices.
Cf. A008289, A026424, A327472, A359889, A359895, A359906, A359907, A359910.

Table[Length[Select[IntegerPartitions[n],OddQ[Length[#]]&&Median[#]==k&]],{n,15},{k,n}]

A236912 Number of partitions of n such that no part is a sum of two other parts.

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 8, 12, 14, 20, 25, 34, 40, 54, 64, 85, 98, 127, 149, 189, 219, 277, 316, 395, 456, 557, 638, 778, 889, 1070, 1226, 1461, 1667, 1978, 2250, 2645, 3019, 3521, 3997, 4652, 5267, 6093, 6909, 7943, 8982, 10291, 11609, 13251, 14947, 16984, 19104

Offset: 0

Clark Kimberling, Feb 01 2014

nonn

These are partitions containing the sum of no 2-element submultiset of the parts, a variation of binary sum-free partitions where parts cannot be re-used, ranked by A364461. The complement is counted by A237113. The non-binary version is A237667. For re-usable parts we have A364345. - Gus Wiseman, Aug 09 2023

			Of the 11 partitions of 6, only these 3 include a part that is a sum of two other parts: [3,2,1], [2,2,1,1], [2,1,1,1,1].  Thus, a(6) = 11 - 3 = 8.
From _Gus Wiseman_, Aug 09 2023: (Start)
The a(1) = 1 through a(8) = 14 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (311)    (222)     (322)      (71)
                            (11111)  (411)     (331)      (332)
                                     (3111)    (421)      (521)
                                     (111111)  (511)      (611)
                                               (2221)     (2222)
                                               (4111)     (3311)
                                               (31111)    (5111)
                                               (1111111)  (41111)
                                                          (311111)
                                                          (11111111)
(End)

For subsets of {1..n} we have A085489, complement A088809.
The complement is counted by A237113, ranks A364462.
The non-binary version is A237667, ranks A364531.
The non-binary complement is A237668, ranks A364532.
The version with re-usable parts is A364345, ranks A364347.
The (strict) version for linear combinations of parts is A364350.
These partitions have ranks A364461.
The strict case is A364533, non-binary A364349.
The strict complement is A364670, with re-usable parts A363226.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A108917 counts knapsack partitions, ranks A299702.
A323092 counts double-free partitions, ranks A320340.
Cf. A002865, A007865, A151897, A275972, A325862, A326083, A363225, A363260, A364346, A364755.

z = 20; t = Map[Count[Map[Length[Cases[Map[Total[#] &, Subsets[#, {2}]],  Apply[Alternatives, #]]] &, IntegerPartitions[#]], 0] &, Range[z]] (* A236912 *)
u = PartitionsP[Range[z]] - t  (* A237113, Peter J. C. Moses, Feb 03 2014 *)
Table[Length[Select[IntegerPartitions[n],Intersection[#,Total/@Subsets[#,{2}]]=={}&]],{n,0,15}] (* Gus Wiseman, Aug 09 2023 *)

a(n) = A000041(n) - A237113(n).

a(0)=1 prepended by Alois P. Heinz, Sep 17 2023

A237667 Number of partitions of n such that no part is a sum of two or more other parts.

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 7, 11, 12, 17, 19, 29, 28, 41, 42, 61, 61, 87, 85, 120, 117, 160, 156, 224, 216, 288, 277, 380, 363, 483, 474, 622, 610, 783, 755, 994, 986, 1235, 1191, 1549, 1483, 1876, 1865, 2306, 2279, 2806, 2732, 3406, 3413, 4091, 4013, 4991, 4895, 5872

Offset: 0

Clark Kimberling, Feb 11 2014

nonn

From Gus Wiseman, Aug 09 2023: (Start)
Includes all knapsack partitions (A108917), but first differs at a(12) = 28, A108917(12) = 25. The difference is accounted for by the non-knapsack partitions: (4332), (5331), (33222).
These are partitions not containing the sum of any non-singleton submultiset of the parts, a variation of non-binary sum-free partitions where parts cannot be re-used, ranked by A364531. The complement is counted by A237668. The binary version is A236912. For re-usable parts we have A364350.
(End)

			For n = 6, the nonqualifiers are 123, 1113, 1122, 11112, leaving a(6) = 7.
From _Gus Wiseman_, Aug 09 2023: (Start)
The partition y = (5,3,1,1) has submultiset (3,1,1) with sum in y, so is not counted under a(10).
The partition y = (5,3,3,1) has no non-singleton submultiset with sum in y, so is counted under a(12).
The a(1) = 1 through a(8) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (311)    (222)     (322)      (71)
                            (11111)  (411)     (331)      (332)
                                     (111111)  (421)      (521)
                                               (511)      (611)
                                               (2221)     (2222)
                                               (4111)     (3311)
                                               (1111111)  (5111)
                                                          (11111111)
(End)

Giovanni Resta, Table of n, a(n) for n = 0..100
Giovanni Resta, C program for computing a(0)-a(100)

For subsets of {1..n} we have A151897, binary A085489.
The binary version is A236912, ranks A364461.
The binary complement is A237113, ranks A364462.
The complement is counted by A237668, ranks A364532.
The binary version with re-usable parts is A364345, strict A364346.
The strict case is A364349, binary A364533.
These partitions have ranks A364531.
The complement for subsets is A364534, binary A088809.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A108917 counts knapsack partitions, ranks A299702.
A323092 counts double-free partitions, ranks A320340.
Cf. A002865, A007865, A179009, A325862, A326083, A363225, A363226, A364348, A364350, A364670.

Map[Count[Map[MemberQ[#,Apply[Alternatives,Map[Apply[Plus,#]&, DeleteDuplicates[DeleteCases[Subsets[#],?(Length[#]<2&)]]]]]&, IntegerPartitions[#]],False]&,Range[20]]  (* _Peter J. C. Moses, Feb 10 2014 *)
Table[Length[Select[IntegerPartitions[n],Intersection[#,Total/@Subsets[#,{2,Length[#]}]]=={}&]],{n,0,15}] (* Gus Wiseman, Aug 09 2023 *)

a(21)-a(53) from Giovanni Resta, Feb 22 2014

A067661 Number of partitions of n into distinct parts such that number of parts is even.

Original entry on oeis.org

1, 0, 0, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 9, 11, 13, 16, 19, 23, 27, 32, 38, 45, 52, 61, 71, 83, 96, 111, 128, 148, 170, 195, 224, 256, 292, 334, 380, 432, 491, 556, 630, 713, 805, 908, 1024, 1152, 1295, 1455, 1632, 1829, 2049, 2291, 2560, 2859, 3189, 3554, 3959, 4404

Offset: 0

Naohiro Nomoto, Feb 23 2002

Ramanujan theta functions: phi(q) (A000122), chi(q) (A000700).

			G.f. = 1 + x^3 + x^4 + 2*x^5 + 2*x^6 + 3*x^7 + 3*x^8 + 4*x^9 + 5*x^10 + ...
From _Gus Wiseman_, Jan 08 2021: (Start)
The a(3) = 1 through a(14) = 11 partitions (A-D = 10..13):
  21   31   32   42   43   53   54   64     65     75     76     86
            41   51   52   62   63   73     74     84     85     95
                      61   71   72   82     83     93     94     A4
                                81   91     92     A2     A3     B3
                                     4321   A1     B1     B2     C2
                                            5321   5421   C1     D1
                                                   6321   5431   5432
                                                          6421   6431
                                                          7321   6521
                                                                 7421
                                                                 8321
(End)

B. C. Berndt, Ramanujan's Notebooks Part III, Springer-Verlag, see p. 18 Entry 9 Corollary (2).

Alois P. Heinz, Table of n, a(n) for n = 0..10000
Joerg Arndt, Matters Computational (The Fxtbook), end of section 16.4.2 "Partitions into distinct parts", pp.348ff
Mircea Merca, Combinatorial interpretations of a recent convolution for the number of divisors of a positive integer, Journal of Number Theory, Volume 160, March 2016, Pages 60-75, function q_e(n).
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Dominates A000009.
Numbers with these strict partitions as binary indices are A001969.
The non-strict case is A027187, ranked by A028260.
The Heinz numbers of these partitions are A030229.
The odd version is A067659, ranked by A030059.
The version for rank is A117192, with positive case A101708.
Other cases of even length:
- A024430 counts set partitions of even length.
- A034008 counts compositions of even length.
- A052841 counts ordered set partitions of even length.
- A174725 counts ordered factorizations of even length.
- A332305 counts strict compositions of even length
- A339846 counts factorizations of even length.
A008289 counts strict partitions by sum and length.
A026805 counts partitions whose least part is even.
Cf. A000700, A027193, A058696, A072233, A096373, A236913, A244990, A300061.

b:= proc(n, i, t) option remember; `if`(n>i*(i+1)/2, 0,
      `if`(n=0, t, add(b(n-i*j, i-1, abs(t-j)), j=0..min(n/i, 1))))
    end:
a:= n-> b(n$2, 1):
seq(a(n), n=0..80);  # Alois P. Heinz, Apr 01 2014

b[n_, i_, t_] := b[n, i, t] = If[n > i*(i + 1)/2, 0, If[n == 0, t, Sum[b[n - i*j, i - 1, Abs[t - j]], {j, 0, Min[n/i, 1]}]]]; a[n_] := b[n, n, 1]; Table[a[n], {n, 0, 80}] (* Jean-François Alcover, Jan 16 2015, after Alois P. Heinz *)
a[ n_] := SeriesCoefficient[ (QPochhammer[ -x, x] + QPochhammer[ x]) / 2, {x, 0, n}]; (* Michael Somos, May 06 2015 *)
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&EvenQ[Length[#]]&]],{n,0,30}] (* Gus Wiseman, Jan 08 2021 *)

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( (eta(x^2 + A) / eta(x + A) + eta(x + A)) / 2, n))}; /* Michael Somos, Feb 14 2006 */

N=66;  q='q+O('q^N);  S=1+2*sqrtint(N);
gf=sum(n=0, S, (n%2==0) * q^(n*(n+1)/2) / prod(k=1, n, 1-q^k ) );
Vec(gf)  \\ Joerg Arndt, Apr 01 2014

G.f.: A(q) = Sum_{n >= 0} a(n) q^n = 1 + q^3 + q^4 + 2 q^5 + 2 q^6 + 3 q^7 + ... = Sum_{n >= 0} q^(n(2n+1))/(q; q){2n} [_Bill Gosper, Jun 25 2005]
Also, let B(q) = Sum_{n >= 0} A067659(n) q^n = q + q^2 + q^3 + q^4 + q^5 + 2 q^6 + ... Then B(q) = Sum_{n >= 0} q^((n+1)(2n+1))/(q; q)_{2n+1}.
Also we have the following identity involving 2 X 2 matrices:
Prod_{k >= 1} [ 1, q^k; q^k, 1 ] = [ A(q), B(q); B(q), A(q) ] [Bill Gosper, Jun 25 2005]
a(n) = (A000009(n)+A010815(n))/2. - Vladeta Jovovic, Feb 24 2002
Expansion of (1 + phi(-x)) / (2*chi(-x)) in powers of x where phi(), chi() are Ramanujan theta functions. - Michael Somos, Feb 14 2006
a(n) + A067659(n) = A000009(n). - R. J. Mathar, Jun 18 2016
a(n) ~ exp(Pi*sqrt(n/3)) / (8*3^(1/4)*n^(3/4)). - Vaclav Kotesovec, May 24 2018
A000009(n) = a(n) + A067659(n). - Gus Wiseman, Jan 09 2021
From Peter Bala, Feb 05 2021: (Start)
G.f.: A(x) = (1/2)*((Product_{n >= 0} 1 + x^n) + (Product_{n >= 0} 1 - x^n)).
Let B(x) denote the g.f. of A067659. Then
A(x)^2 - B(x)^2 = A(x^2) - B(x^2) = Product_{n >= 1} 1 - x^(2*n) = Sum_{n in Z} (-1)^n*x^(n*(3*n+1)).
A(x) + B(x) is the g.f. of A000009.
1/(A(x) - B(x)) is the g.f. of A000041.
(A(x) + B(x))/(A(x) - B(x)) is the g.f. of A015128.
A(x)/(A(x) + B(x)) = Sum_{n >= 0} (-1)^n*x^n^2 = (1 + theta_3(-x))/2.
B(x)/(A(x) - B(x)) is the g.f. of A014968.
A(x)/(A(x^2) - B(x^2)) is the g.f. of A027187.
B(x)/(A(x^2) - B(x^2)) is the g.f. of A027193. (End)

A054973 Number of numbers whose divisors sum to n.

Original entry on oeis.org

1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 2, 1, 1, 1, 0, 0, 2, 0, 1, 0, 0, 0, 3, 0, 0, 0, 1, 0, 1, 2, 2, 0, 0, 0, 1, 0, 1, 1, 1, 0, 3, 0, 1, 0, 0, 0, 3, 0, 0, 0, 0, 0, 2, 0, 2, 1, 0, 0, 3, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 5, 0, 1, 0, 0, 0, 1, 0, 2, 0, 0, 0, 3, 0, 0, 0, 0, 0, 3, 1, 0, 1, 0, 0, 4, 0

Offset: 1

Henry Bottomley, May 16 2000

nonn

a(n) = frequency of values n in A000203(m), where A000203(m) = sum of divisors of m. a(n) >= 1 for such n that A175192(n) = 1, a(n) >= 1 if A000203(m) = n for any m. a(n) = 0 for such n that A175192(n) = 0, a(n) = 0 if A000203(m) = n has no solution. - Jaroslav Krizek, Mar 01 2010
First occurrence of k: 2, 1, 12, 24, 96, 72, ..., = A007368. - Robert G. Wilson v, May 14 2014
a(n) is also the number of positive terms in the n-th row of triangle A299762. - Omar E. Pol, Mar 14 2018
Also the number of integer partitions of n whose parts form the set of divisors of some number (necessarily the greatest part). The Heinz numbers of these partitions are given by A371283. For example, the a(24) = 3 partitions are: (23,1), (15,5,3,1), (14,7,2,1). - Gus Wiseman, Mar 22 2024

			a(12) = 2 since 11 has factors 1 and 11 with 1 + 11 = 12 and 6 has factors 1, 2, 3 and 6 with 1 + 2 + 3 + 6 = 12.

T. D. Noe, Table of n, a(n) for n = 1..10000
Max Alekseyev, PARI/GP Scripts for Miscellaneous Math Problems (invphi.gp).

Cf. A000203 (sum-of-divisors function).
For partial sums see A074753.
Cf. A002191, A007609, A308039.
The non-strict version is A371284, ranks A371288.
These partitions have ranks A371283, unsorted version A275700.
A000005 counts divisors, row-lengths of A027750.
A000041 counts integer partitions, strict A000009.
Cf. A001221, A002865, A008289, A371286, A371285.

nn = 105; t = Table[0, {nn}]; k = 1; While[k < 6 nn^(3/2)/Pi^2, d = DivisorSigma[1, k]; If[d < nn + 1, t[[d]]++]; k++]; t (* Robert G. Wilson v, May 14 2014 *)
Table[Length[Select[IntegerPartitions[n],#==Reverse[Divisors[Max@@#]]&]],{n,30}] (* Gus Wiseman, Mar 22 2024 *)

a(n)=v = vector(0); for (i = 1, n, if (sigma(i) == n, v = concat(v, i));); #v; \\ Michel Marcus, Oct 22 2013

a(n)=sum(k=1,n,sigma(k)==n) \\ Charles R Greathouse IV, Nov 12 2013

first(n)=my(v=vector(n),t); for(k=1,n, t=sigma(n); if(t<=n, v[t]++)); v \\ Charles R Greathouse IV, Mar 08 2017

A054973(n)=#invsigma(n) \\ See Alekseyev link for invsigma(). - M. F. Hasler, Nov 21 2019

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A308039. - Amiram Eldar, Dec 23 2024

Incorrect comment deleted by M. F. Hasler, Nov 21 2019

A237668 Number of partitions of n such that some part is a sum of two or more other parts.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 4, 4, 10, 13, 23, 27, 49, 60, 93, 115, 170, 210, 300, 370, 510, 632, 846, 1031, 1359, 1670, 2159, 2630, 3355, 4082, 5130, 6220, 7739, 9360, 11555, 13889, 16991, 20402, 24824, 29636, 35855, 42707, 51309, 60955, 72896, 86328, 102826, 121348

Offset: 0

Clark Kimberling, Feb 11 2014

nonn

These are partitions containing the sum of some non-singleton submultiset of the parts, a variation of non-binary sum-full partitions where parts cannot be re-used, ranked by A364532. The complement is counted by A237667. The binary version is A237113, or A363225 with re-usable parts. This sequence is weakly increasing. - Gus Wiseman, Aug 12 2023

			a(6) = 4 counts these partitions: 123, 1113, 1122, 11112.
From _Gus Wiseman_, Aug 12 2023: (Start)
The a(0) = 0 through a(9) = 13 partitions:
  .  .  .  .  (211)  (2111)  (321)    (3211)    (422)      (3321)
                             (2211)   (22111)   (431)      (4221)
                             (3111)   (31111)   (3221)     (4311)
                             (21111)  (211111)  (4211)     (5211)
                                                (22211)    (32211)
                                                (32111)    (33111)
                                                (41111)    (42111)
                                                (221111)   (222111)
                                                (311111)   (321111)
                                                (2111111)  (411111)
                                                           (2211111)
                                                           (3111111)
                                                           (21111111)
(End)

Giovanni Resta, Table of n, a(n) for n = 0..100
Giovanni Resta, C program for computing a(0)-a(100)

Cf. A179009.
The binary complement is A236912, ranks A364461.
The binary version is A237113, ranks A364462.
The complement is counted by A237667, ranks A364531.
The binary version with re-usable parts is A363225, ranks A364348.
The strict case is A364272.
The binary complement with re-usable parts is A364345, ranks A364347.
These partitions have ranks A364532.
For subsets instead of partitions we have A364534, complement A151897.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A108917 counts knapsack partitions, ranks A299702.
A299701 counts distinct subset-sums of prime indices.
A323092 counts double-free partitions, ranks A320340.
Cf. A002865, A088809, A237984, A325862, A326083, A363226, A364670.

z = 20; m = Map[Count[Map[MemberQ[#, Apply[Alternatives, Map[Apply[Plus, #] &, DeleteDuplicates[DeleteCases[Subsets[#], _?(Length[#] < 2 &)]]]]] &, IntegerPartitions[#]], False] &, Range[z]]; PartitionsP[Range[z]] - m
(* Peter J. C. Moses, Feb 10 2014 *)
Table[Length[Select[IntegerPartitions[n],Intersection[#,Total/@Subsets[#,{2,Length[#]}]]!={}&]],{n,0,15}] (* Gus Wiseman, Aug 12 2023 *)

a(21)-a(47) from Giovanni Resta, Feb 22 2014

A363225 Number of integer partitions of n containing three parts (a,b,c) (repeats allowed) such that a + b = c. A variation of sum-full partitions.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 4, 5, 9, 14, 21, 29, 43, 58, 81, 109, 148, 195, 263, 339, 445, 574, 744, 942, 1209, 1515, 1923, 2399, 3005, 3721, 4629, 5693, 7024, 8589, 10530, 12804, 15596, 18876, 22870, 27538, 33204, 39816, 47766, 57061, 68161, 81099, 96510, 114434, 135634

Offset: 0

Gus Wiseman, Jul 19 2023

nonn

Note that, by this definition, the partition (2,1) is sum-full, because (1,1,2) is a triple satisfying a + b = c.

			The a(3) = 1 through a(9) = 14 partitions:
  (21)  (211)  (221)   (42)     (421)     (422)      (63)
               (2111)  (321)    (2221)    (431)      (432)
                       (2211)   (3211)    (521)      (621)
                       (21111)  (22111)   (3221)     (3321)
                                (211111)  (4211)     (4221)
                                          (22211)    (4311)
                                          (32111)    (5211)
                                          (221111)   (22221)
                                          (2111111)  (32211)
                                                     (42111)
                                                     (222111)
                                                     (321111)
                                                     (2211111)
                                                     (21111111)

For subsets of {1..n} we have A093971, A088809 without re-using parts.
The complement for subsets is A007865, A085489 without re-using parts.
Without re-using parts we have A237113, complement A236912.
For sums of any length > 1 (without re-usable parts) we have A237668, complement A237667.
The strict case is A363226.
The complement is counted by A364345, strict A364346.
These partitions have ranks A364348, complement A364347.
The strict linear combination-free version is A364350.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A323092 counts double-free partitions, ranks A320340.
Cf. A002865, A025065, A026905, A108917, A237984, A326083, A363260.

Table[Length[Select[IntegerPartitions[n],Select[Tuples[#,3],#[[1]]+#[[2]]==#[[3]]&]!={}&]],{n,0,15}]

from collections import Counter
from itertools import combinations_with_replacement
from sympy.utilities.iterables import partitions
def A363225(n): return sum(1 for p in partitions(n) if any(q[0]+q[1]==q[2] for q in combinations_with_replacement(sorted(Counter(p).elements()),3))) # Chai Wah Wu, Sep 21 2023

a(31)-a(48) from Chai Wah Wu, Sep 21 2023

cp's OEIS Frontend

A364272 Number of strict integer partitions of n containing the sum of some subset of the parts. A variation of sum-full strict partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A015723 Number of parts in all partitions of n into distinct parts.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A237113 Number of partitions of n such that some part is a sum of two other parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A359902 Triangle read by rows where T(n,k) is the number of odd-length integer partitions of n with median k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A236912 Number of partitions of n such that no part is a sum of two other parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A237667 Number of partitions of n such that no part is a sum of two or more other parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A067661 Number of partitions of n into distinct parts such that number of parts is even.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Formula