A008289 -id:A008289 - cp's OEIS frontend

A367215 Number of strict integer partitions of n whose length (number of parts) is not equal to the sum of any subset.

0, 0, 1, 1, 2, 2, 2, 3, 3, 4, 5, 7, 8, 10, 12, 15, 18, 21, 25, 29, 34, 40, 46, 53, 62, 71, 82, 95, 109, 124, 143, 162, 185, 210, 240, 270, 308, 347, 393, 443, 500, 562, 634, 711, 798, 895, 1002, 1120, 1252, 1397, 1558, 1735, 1930, 2146, 2383, 2644, 2930, 3245

Offset: 0

Gus Wiseman, Nov 12 2023

nonn

These partitions have Heinz numbers A367225 /\ A005117.

			The a(2) = 1 through a(11) = 7 strict partitions:
  (2)  (3)  (4)    (5)    (6)    (7)    (8)    (9)    (10)     (11)
            (3,1)  (4,1)  (5,1)  (4,3)  (5,3)  (5,4)  (6,4)    (6,5)
                                 (6,1)  (7,1)  (6,3)  (7,3)    (7,4)
                                               (8,1)  (9,1)    (8,3)
                                                      (5,4,1)  (10,1)
                                                               (5,4,2)
                                                               (6,4,1)
The a(2) = 1 through a(15) = 15 strict partitions (A..F = 10..15):
  2  3  4   5   6   7   8   9   A    B    C    D    E     F
        31  41  51  43  53  54  64   65   75   76   86    87
                    61  71  63  73   74   84   85   95    96
                            81  91   83   93   94   A4    A5
                                541  A1   B1   A3   B3    B4
                                     542  642  C1   D1    C3
                                     641  651  652  752   E1
                                          741  742  761   654
                                               751  842   762
                                               841  851   852
                                                    941   861
                                                    6521  942
                                                          951
                                                          A41
                                                          7521

Chai Wah Wu, Table of n, a(n) for n = 0..118

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum or linear combination of the parts. The current sequence is starred.
               sum-full   sum-free   comb-full  comb-free
              -------------------------------------------
  partitions:  A367212    A367213    A367218    A367219
  strict:      A367214    A367215*   A367220    A367221
  subsets:     A367216    A367217    A367222    A367223
  ranks:       A367224    A367225    A367226    A367227
A000041 counts integer partitions, strict A000009.
A007865/A085489/A151897 count certain types of sum-free subsets.
A124506 appears to count combination-free subsets, differences of A326083.
A188431 counts complete strict partitions, incomplete A365831.
A237667 counts sum-free partitions, ranks A364531.
A240861 counts strict partitions with length not a part, complement A240855.
A275972 counts strict knapsack partitions, non-strict A108917.
A364349 counts sum-free strict partitions, sum-full A364272.
Triangles:
A008289 counts strict partitions by length, non-strict A008284.
A365661 counts strict partitions with a subset-sum k, non-strict A365543.
A365663 counts strict partitions without a subset-sum k, non-strict A046663.
A365832 counts strict partitions by subset-sums, non-strict A365658.
Cf. A002865, A229816, A238628, A364346, A364350, A365312, A365922, A366320.

Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&FreeQ[Total/@Subsets[#], Length[#]]&]], {n,0,30}]

A367218 Number of integer partitions of n whose length can be written as a nonnegative linear combination of the distinct parts.

Original entry on oeis.org

1, 1, 1, 2, 4, 6, 8, 13, 18, 26, 35, 50, 66, 92, 119, 160, 208, 275, 350, 457, 579, 742, 933, 1185, 1476, 1859, 2300, 2868, 3531, 4371, 5343, 6575, 8003, 9776, 11842, 14394, 17351, 20987, 25191, 30315, 36257, 43448, 51753, 61776, 73342, 87192, 103184, 122253, 144211

Offset: 0

Gus Wiseman, Nov 14 2023

nonn

The Heinz numbers of these partitions are given by A367226.

			The partition (4,2,1) has 3 = (2)+(1) or 3 = (1+1+1) so is counted under a(7).
The a(1) = 1 through a(7) = 13 partitions:
  (1)  (11)  (21)   (22)    (32)     (42)      (52)
             (111)  (31)    (41)     (51)      (61)
                    (211)   (221)    (321)     (322)
                    (1111)  (311)    (411)     (331)
                            (2111)   (2211)    (421)
                            (11111)  (3111)    (511)
                                     (21111)   (2221)
                                     (111111)  (3211)
                                               (4111)
                                               (22111)
                                               (31111)
                                               (211111)
                                               (1111111)

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum or linear combination of the parts. The current sequence is starred.
               sum-full   sum-free   comb-full  comb-free
              -------------------------------------------
  partitions:  A367212    A367213    A367218*   A367219
  strict:      A367214    A367215    A367220    A367221
  subsets:     A367216    A367217    A367222    A367223
  ranks:       A367224    A367225    A367226    A367227
A000041 counts integer partitions, strict A000009.
A002865 counts partitions whose length is a part, complement A229816.
A008284 counts partitions by length, strict A008289.
A240855 counts strict partitions whose length is a part, complement A240861.
A365046 counts combination-full subsets, differences of A364914.
Cf. A088314, A363225, A364350, A365073, A365311, A365918.

combs[n_,y_]:=With[{s=Table[{k,i},{k,y}, {i,0,Floor[n/k]}]}, Select[Tuples[s], Total[Times@@@#]==n&]];
Table[Length[Select[IntegerPartitions[n], combs[Length[#], Union[#]]!={}&]], {n,0,15}]

a(31)-a(48) from Chai Wah Wu, Nov 15 2023

A367219 Number of integer partitions of n whose length cannot be written as a nonnegative linear combination of the distinct parts.

Original entry on oeis.org

0, 0, 1, 1, 1, 1, 3, 2, 4, 4, 7, 6, 11, 9, 16, 16, 23, 22, 35, 33, 48, 50, 69, 70, 99, 99, 136, 142, 187, 194, 261, 267, 346, 367, 468, 489, 626, 650, 824, 870, 1081, 1135, 1421, 1485, 1833, 1942, 2374, 2501, 3062, 3220, 3915, 4145, 4987, 5274, 6363, 6709, 8027

Offset: 0

Gus Wiseman, Nov 14 2023

nonn

			3 cannot be written as a nonnegative linear combination of 2 and 5, so (5,2,2) is counted under a(9).
The a(2) = 1 through a(10) = 7 partitions:
  (2)  (3)  (4)  (5)  (6)      (7)    (8)      (9)      (10)
                      (3,3)    (4,3)  (4,4)    (5,4)    (5,5)
                      (2,2,2)         (5,3)    (6,3)    (6,4)
                                      (4,2,2)  (5,2,2)  (7,3)
                                                        (4,4,2)
                                                        (6,2,2)
                                                        (2,2,2,2,2)

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum or linear combination of the parts. The current sequence is starred.
               sum-full   sum-free   comb-full  comb-free
              -------------------------------------------
  partitions:  A367212    A367213    A367218    A367219*
  strict:      A367214    A367215    A367220    A367221
  subsets:     A367216    A367217    A367222    A367223
  ranks:       A367224    A367225    A367226    A367227
A000041 counts integer partitions, strict A000009.
A002865 counts partitions whose length is a part, complement A229816.
A008284 counts partitions by length, strict A008289.
A124506 appears to count combination-free subsets, differences of A326083.
A365046 counts combination-full subsets, differences of A364914.
Cf. A068911, A088314, A116861, A364345, A364350, A365073, A365312, A365380.

combs[n_,y_]:=With[{s=Table[{k,i},{k,y},{i,0,Floor[n/k]}]},Select[Tuples[s],Total[Times@@@#]==n&]];
Table[Length[Select[IntegerPartitions[n],combs[Length[#],Union[#]]=={}&]],{n,0,15}]

a(31)-a(56) from Chai Wah Wu, Nov 15 2023

A367220 Number of strict integer partitions of n whose length (number of parts) can be written as a nonnegative linear combination of the parts.

Original entry on oeis.org

1, 1, 0, 1, 1, 2, 3, 3, 4, 5, 7, 7, 10, 11, 15, 17, 22, 25, 32, 37, 46, 53, 65, 75, 90, 105, 124, 143, 168, 193, 224, 258, 297, 340, 390, 446, 509, 580, 660, 751, 852, 967, 1095, 1240, 1401, 1584, 1786, 2015, 2269, 2554, 2869, 3226, 3617, 4056, 4541, 5084

Offset: 0

Gus Wiseman, Nov 14 2023

nonn

The non-strict version is A367218.

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

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum or linear combination of the parts. The current sequence is starred.
               sum-full   sum-free   comb-full  comb-free
              -------------------------------------------
  partitions:  A367212    A367213    A367218    A367219
  strict:      A367214    A367215    A367220*   A367221
  subsets:     A367216    A367217    A367222    A367223
  ranks:       A367224    A367225    A367226    A367227
A000041 counts integer partitions, strict A000009.
A002865 counts partitions whose length is a part, complement A229816.
A188431 counts complete strict partitions, incomplete A365831.
A240855 counts strict partitions whose length is a part, complement A240861.
A364272 counts sum-full strict partitions, sum-free A364349.
A365046 counts combination-full subsets, differences of A364914.
Cf. A008289, A088314, A116861, A124506, A363225, A364346, A364350, A364916, A365073, A365311, A365312.

combs[n_,y_]:=With[{s=Table[{k,i},{k,y}, {i,0,Floor[n/k]}]}, Select[Tuples[s], Total[Times@@@#]==n&]];
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&combs[Length[#], Union[#]]!={}&]], {n,0,15}]

A367221 Number of strict integer partitions of n whose length (number of parts) cannot be written as a nonnegative linear combination of the parts.

Original entry on oeis.org

0, 0, 1, 1, 1, 1, 1, 2, 2, 3, 3, 5, 5, 7, 7, 10, 10, 13, 14, 17, 18, 23, 24, 29, 32, 37, 41, 49, 54, 63, 72, 82, 93, 108, 122, 139, 159, 180, 204, 231, 261, 293, 331, 370, 415, 464, 518, 575, 641, 710, 789, 871, 965, 1064, 1177, 1294, 1428, 1569, 1729, 1897

Offset: 0

Gus Wiseman, Nov 14 2023

nonn

The non-strict version is A367219.

			The a(2) = 1 through a(16) = 10 strict partitions (A..G = 10..16):
  2  3  4  5  6  7   8   9   A   B    C    D    E    F    G
                 43  53  54  64  65   75   76   86   87   97
                         63  73  74   84   85   95   96   A6
                                 83   93   94   A4   A5   B5
                                 542  642  A3   B3   B4   C4
                                           652  752  C3   D3
                                           742  842  654  754
                                                     762  862
                                                     852  952
                                                     942  A42

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum or linear combination of the parts. The current sequence is starred.
               sum-full   sum-free   comb-full  comb-free
              -------------------------------------------
  partitions:  A367212    A367213    A367218    A367219
  strict:      A367214    A367215    A367220    A367221*
  subsets:     A367216    A367217    A367222    A367223
  ranks:       A367224    A367225    A367226    A367227
A000041 counts integer partitions, strict A000009.
A002865 counts partitions whose length is a part, complement A229816.
A124506 appears to count combination-free subsets, differences of A326083.
A188431 counts complete strict partitions, incomplete A365831.
A240855 counts strict partitions whose length is a part, complement A240861.
A364272 counts sum-full strict partitions, sum-free A364349.
Triangles:
A008284 counts partitions by length, strict A008289.
A046663 counts partitions of n without a subset-sum k, strict A365663.
A365541 counts subsets containing two distinct elements summing to k.
A365658 counts partitions by number of subset-sums, strict A365832.
Cf. A088314, A103580, A116861, A364346, A364350, A364533, A365312, A365380.

combs[n_,y_]:=With[{s=Table[{k,i},{k,y}, {i,0,Floor[n/k]}]}, Select[Tuples[s], Total[Times@@@#]==n&]];
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&combs[Length[#], Union[#]]=={}&]], {n,0,30}]

A367222 Number of subsets of {1..n} whose cardinality can be written as a nonnegative linear combination of the elements.

Original entry on oeis.org

1, 2, 3, 6, 12, 24, 49, 101, 207, 422, 859, 1747, 3548, 7194, 14565, 29452, 59496, 120086, 242185, 488035, 982672, 1977166, 3975508, 7989147, 16047464, 32221270, 64674453, 129775774, 260337978, 522124197, 1046911594, 2098709858, 4206361369, 8429033614, 16887728757, 33829251009, 67755866536, 135687781793, 271693909435

Offset: 0

Gus Wiseman, Nov 14 2023

nonn

			The set {1,2,4} has 3 = (2)+(1) or 3 = (1+1+1) so is counted under a(4).
The a(0) = 1 through a(4) = 12 subsets:
  {}  {}   {}     {}       {}
      {1}  {1}    {1}      {1}
           {1,2}  {1,2}    {1,2}
                  {1,3}    {1,3}
                  {2,3}    {1,4}
                  {1,2,3}  {2,3}
                           {2,4}
                           {1,2,3}
                           {1,2,4}
                           {1,3,4}
                           {2,3,4}
                           {1,2,3,4}

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum or linear combination of the parts. The current sequence is starred.
               sum-full   sum-free   comb-full  comb-free
              -------------------------------------------
  partitions:  A367212    A367213    A367218    A367219
  strict:      A367214    A367215    A367220    A367221
  subsets:     A367216    A367217    A367222*   A367223
  ranks:       A367224    A367225    A367226    A367227
A002865 counts partitions whose length is a part, complement A229816.
A007865/A085489/A151897 count certain types of sum-free subsets.
A088809/A093971/A364534 count certain types of sum-full subsets.
A124506 appears to count combination-free subsets, differences of A326083.
A326020 counts complete subsets.
A365046 counts combination-full subsets, differences of A364914.
Triangles:
A008284 counts partitions by length, strict A008289.
A365381 counts sets with a subset summing to k, without A366320.
A365541 counts subsets containing two distinct elements summing to k.
Cf. A068911, A088314, A103580, A116861, A326080, A364350, A365073, A365311, A365376, A365380, A365544.

combs[n_,y_]:=With[{s=Table[{k,i},{k,y}, {i,0,Floor[n/k]}]}, Select[Tuples[s], Total[Times@@@#]==n&]];
Table[Length[Select[Subsets[Range[n]], combs[Length[#], Union[#]]!={}&]], {n,0,10}]

from itertools import combinations
from sympy.utilities.iterables import partitions
def A367222(n):
    c, mlist = 1, []
    for m in range(1,n+1):
        t = set()
        for p in partitions(m):
            t.add(tuple(sorted(p.keys())))
        mlist.append([set(d) for d in t])
    for k in range(1,n+1):
        for w in combinations(range(1,n+1),k):
            ws = set(w)
            for s in mlist[k-1]:
                if s <= ws:
                    c += 1
                    break
    return c # Chai Wah Wu, Nov 16 2023

a(n) = 2^n - A367223(n).

a(13)-a(33) from Chai Wah Wu, Nov 15 2023

a(34)-a(38) from Max Alekseyev, Feb 25 2025

A124944 Table, number of partitions of n with k as high median.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 1, 4, 3, 1, 1, 1, 1, 6, 4, 1, 1, 1, 1, 1, 8, 6, 3, 1, 1, 1, 1, 1, 11, 8, 5, 1, 1, 1, 1, 1, 1, 15, 11, 7, 3, 1, 1, 1, 1, 1, 1, 20, 15, 9, 5, 1, 1, 1, 1, 1, 1, 1, 26, 21, 12, 8, 3, 1, 1, 1, 1, 1, 1, 1, 35, 27, 16, 10, 5, 1, 1, 1, 1, 1, 1, 1, 1, 45, 37, 21, 13, 8, 3

Offset: 1

Franklin T. Adams-Watters, Nov 13 2006

For a multiset with an odd number of elements, the high median is the same as the median. For a multiset with an even number of elements, the high median is the larger of the two central elements.
This table may be read as an upper right triangle with n >= 1 as column index and k >= 1 as row index. - Peter Munn, Jul 16 2017
Arrange the parts of a partition nonincreasing order.  Remove the last part, then the first, then the last remaining part, then the first remaining part, and continue until only a single number, the high median, remains. - Clark Kimberling, May 14 2019

			For the partition [2,1^2], the sole middle element is 1, so that is the high median. For [3,2,1^2], the two middle elements are 1 and 2; the high median is the larger, 2.
From _Gus Wiseman_, Jul 12 2023: (Start)
Triangle begins:
   1
   1  1
   1  1  1
   2  1  1  1
   3  1  1  1  1
   4  3  1  1  1  1
   6  4  1  1  1  1  1
   8  6  3  1  1  1  1  1
  11  8  5  1  1  1  1  1  1
  15 11  7  3  1  1  1  1  1  1
  20 15  9  5  1  1  1  1  1  1  1
  26 21 12  8  3  1  1  1  1  1  1  1
  35 27 16 10  5  1  1  1  1  1  1  1  1
  45 37 21 13  8  3  1  1  1  1  1  1  1  1
  58 48 29 16 11  5  1  1  1  1  1  1  1  1  1
Row n = 8 counts the following partitions:
  (611)       (521)    (431)   (44)  (53)  (62)  (71)  (8)
  (5111)      (422)    (332)
  (41111)     (4211)   (3311)
  (32111)     (3221)
  (311111)    (2222)
  (221111)    (22211)
  (2111111)
  (11111111)
(End)

Row sums are A000041.
Column k = 1 is A027336(n-1), ranks A364056.
Column k = 1 in the low version is A027336, ranks A363488.
The low version of this triangle is A124943.
The rank statistic for this triangle is A363942, low version A363941.
A version for mean instead of median is A363946, low A363945.
A version for mode instead of median is A363953, low A363952.
A008284 counts partitions by length, maximum, or decreasing mean.
A026794 counts partitions by minimum, strict A026821.
A325347 counts partitions with integer median, ranks A359908.
A359893 and A359901 count partitions by median.
A360005(n)/2 returns median of prime indices.
Cf. A008289, A025065, A027193, A067538, A237984, A240219, A362608, A363740, A363943, A363944.

Map[BinCounts[#, {1, #[[1]] + 1, 1}] &[Map[#[[Floor[(Length[#] + 1)/2]]] &, IntegerPartitions[#]]] &, Range[13]]  (* Peter J. C. Moses, May 14 2019 *)

A363724 Number of integer partitions of n whose mean is a mode, i.e., partitions whose mean appears at least as many times as each of the other parts.

Original entry on oeis.org

1, 2, 2, 3, 2, 5, 2, 5, 5, 6, 2, 15, 2, 8, 15, 17, 2, 30, 2, 43, 30, 15, 2, 112, 36, 21, 60, 119, 2, 251, 2, 201, 126, 41, 271, 655, 2, 57, 250, 1060, 2, 1099, 2, 844, 1508, 107, 2, 3484, 802, 2068, 900, 2136, 2, 4558, 3513, 7071, 1630, 259, 2, 20260

Offset: 1

Gus Wiseman, Jun 24 2023

nonn

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes in {a,a,b,b,b,c,d,d,d} are {b,d}.

			The a(n) partitions for n = 6, 10, 12:
  (6)            (10)                   (12)
  (3,3)          (5,5)                  (6,6)
  (2,2,2)        (2,2,2,2,2)            (4,4,4)
  (3,2,1)        (3,2,2,2,1)            (5,4,3)
  (1,1,1,1,1,1)  (4,2,2,1,1)            (6,4,2)
                 (1,1,1,1,1,1,1,1,1,1)  (7,4,1)
                                        (3,3,3,3)
                                        (4,3,3,2)
                                        (5,3,3,1)
                                        (6,3,2,1)
                                        (2,2,2,2,2,2)
                                        (3,2,2,2,2,1)
                                        (3,3,2,2,1,1)
                                        (4,2,2,2,1,1)
                                        (1,1,1,1,1,1,1,1,1,1,1,1)

For parts instead of modes we have A237984, complement A327472.
The case of a unique mode is A363723, non-constant A362562.
The case of more than one mode is A363731.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length (or decreasing mean), strict A008289.
A362608 counts partitions with a unique mode.
A363719 = all three averages equal, ranks A363727, non-constant A363728.
A363720 = all three averages different, ranks A363730, unique mode A363725.
Cf. A240219, A326567/A326568, A363726, A363740.

modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
Table[Length[Select[IntegerPartitions[n],MemberQ[modes[#],Mean[#]]&]],{n,30}]

A101271 Number of partitions of n into 3 distinct and relatively prime parts.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 6, 8, 9, 12, 12, 16, 15, 21, 20, 26, 25, 33, 28, 40, 36, 45, 42, 56, 44, 65, 56, 70, 64, 84, 66, 96, 81, 100, 88, 120, 90, 133, 110, 132, 121, 161, 120, 175, 140, 176, 156, 208, 153, 220, 180, 222, 196, 261, 184, 280, 225, 270, 240, 312, 230, 341, 272

Offset: 6

Vladeta Jovovic, Dec 19 2004

The Heinz numbers of these partitions are the intersection of A289509 (relatively prime), A005117 (strict), and A014612 (triple). - Gus Wiseman, Oct 15 2020

			For n=10 we have 4 such partitions: 1+2+7, 1+3+6, 1+4+5 and 2+3+5.
From _Gus Wiseman_, Oct 13 2020: (Start)
The a(6) = 1 through a(18) = 15 triples (A..F = 10..15):
  321  421  431  432  532  542  543  643  653  654  754  764  765
            521  531  541  632  651  652  743  753  763  854  873
                 621  631  641  732  742  752  762  853  863  954
                      721  731  741  751  761  843  871  872  972
                           821  831  832  851  852  943  953  981
                                921  841  932  861  952  962  A53
                                     931  941  942  961  971  A71
                                     A21  A31  951  A51  A43  B43
                                          B21  A32  B32  A52  B52
                                               A41  B41  A61  B61
                                               B31  C31  B42  C51
                                               C21  D21  B51  D32
                                                         C32  D41
                                                         C41  E31
                                                         D31  F21
                                                         E21
(End)

Fausto A. C. Cariboni, Table of n, a(n) for n = 6..10000

Cf. A023024-A023030, A000742-A000743, A023031-A023035.
A000741 is the ordered non-strict version.
A001399(n-6) does not require relative primality.
A023022 counts pairs instead of triples.
A023023 is the not necessarily strict version.
A078374 counts these partitions of any length, with Heinz numbers A302796.
A101271*6 is the ordered version.
A220377 is the pairwise coprime instead of relatively prime version.
A284825 counts the case that is pairwise non-coprime also.
A337605 is the pairwise non-coprime instead of relatively prime version.
A008289 counts strict partitions by sum and length.
A007304 gives the Heinz numbers of 3-part strict partitions.
A307719 counts 3-part pairwise coprime partitions.
A337601 counts 3-part partitions whose distinct parts are pairwise coprime.
Cf. A000010, A000217, A000837, A007360, A014612, A055684, A289509, A332004, A337452, A337563.

m:=3: with(numtheory): g:=sum(mobius(k)*x^(m*(m+1)/2*k)/Product(1-x^(i*k),i=1..m),k=1..20): gser:=series(g,x=0,80): seq(coeff(gser,x^n),n=6..77); # Emeric Deutsch, May 31 2005

Table[Length[Select[IntegerPartitions[n,{3}],UnsameQ@@#&&GCD@@#==1&]],{n,6,50}] (* Gus Wiseman, Oct 13 2020 *)

G.f. for the number of partitions of n into m distinct and relatively prime parts is Sum(moebius(k)*x^(m*(m+1)/2*k)/Product(1-x^(i*k), i=1..m), k=1..infinity).

More terms from Emeric Deutsch, May 31 2005

A072574 Triangle T(n,k) of number of compositions (ordered partitions) of n into exactly k distinct parts, 1<=k<=n.

Original entry on oeis.org

1, 1, 0, 1, 2, 0, 1, 2, 0, 0, 1, 4, 0, 0, 0, 1, 4, 6, 0, 0, 0, 1, 6, 6, 0, 0, 0, 0, 1, 6, 12, 0, 0, 0, 0, 0, 1, 8, 18, 0, 0, 0, 0, 0, 0, 1, 8, 24, 24, 0, 0, 0, 0, 0, 0, 1, 10, 30, 24, 0, 0, 0, 0, 0, 0, 0, 1, 10, 42, 48, 0, 0, 0, 0, 0, 0, 0, 0, 1, 12, 48, 72, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 12, 60, 120, 0

Offset: 1

Henry Bottomley, Jun 21 2002

If terms in the compositions did not need to be distinct then the triangle would have values C(n-1,k-1), essentially A007318 offset.

			T(6,2)=4 since 6 can be written as 1+5=2+4=4+2=5+1.
Triangle starts (trailing zeros omitted for n>=10):
[ 1]  1;
[ 2]  1, 0;
[ 3]  1, 2, 0;
[ 4]  1, 2, 0, 0;
[ 5]  1, 4, 0, 0, 0;
[ 6]  1, 4, 6, 0, 0, 0;
[ 7]  1, 6, 6, 0, 0, 0, 0;
[ 8]  1, 6, 12, 0, 0, 0, 0, 0;
[ 9]  1, 8, 18, 0, 0, 0, 0, 0, 0;
[10]  1, 8, 24, 24, 0, 0, ...;
[11]  1, 10, 30, 24, 0, 0, ...;
[12]  1, 10, 42, 48, 0, 0, ...;
[13]  1, 12, 48, 72, 0, 0, ...;
[14]  1, 12, 60, 120, 0, 0, ...;
[15]  1, 14, 72, 144, 120, 0, 0, ...;
[16]  1, 14, 84, 216, 120, 0, 0, ...;
[17]  1, 16, 96, 264, 240, 0, 0, ...;
[18]  1, 16, 114, 360, 360, 0, 0, ...;
[19]  1, 18, 126, 432, 600, 0, 0, ...;
[20]  1, 18, 144, 552, 840, 0, 0, ...;
These rows (without the zeros) are shown in the Richmond/Knopfmacher reference.
From _Gus Wiseman_, Oct 17 2022: (Start)
Column n = 8 counts the following compositions.
  (8)  (1,7)  (1,2,5)
       (2,6)  (1,3,4)
       (3,5)  (1,4,3)
       (5,3)  (1,5,2)
       (6,2)  (2,1,5)
       (7,1)  (2,5,1)
              (3,1,4)
              (3,4,1)
              (4,1,3)
              (4,3,1)
              (5,1,2)
              (5,2,1)
(End)

Joerg Arndt, Table of n, a(n) for n = 1..5050 (rows 1..100, flattened).
B. Richmond and A. Knopfmacher, Compositions with distinct parts, Aequationes Mathematicae 49 (1995), pp. 86-97.
Index entries for sequences related to compositions

Columns (offset) include A057427 and A052928.
Row sums are A032020.
Cf. A060016, A072576.
A008289 is the version for partitions (zeros removed).
A072575 counts strict compositions by maximum.
A097805 is the non-strict version, or A007318 (zeros removed).
A113704 is the constant instead of strict version.
A216652 is a condensed version (zeros removed).
A336131 counts splittings of partitions with distinct sums.
A336139 counts strict compositions of each part of a strict composition.
Cf. A075900, A097910, A307068, A336127, A336128, A336130, A336132, A336141, A336142, A336342, A336343.

Table[Length[Select[Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&],Length[#]==k&]],{n,0,15},{k,1,n}] (* Gus Wiseman, Oct 17 2022 *)

N=21;  q='q+O('q^N);
gf=sum(n=0,N, n! * z^n * q^((n^2+n)/2) / prod(k=1,n, 1-q^k ) );
/* print triangle: */
gf -= 1; /* remove row zero */
P=Pol(gf,'q);
{ for (n=1,N-1,
    p = Pol(polcoeff(P, n),'z);
    p += 'z^(n+1);  /* preserve trailing zeros */
    v = Vec(polrecip(p));
    v = vector(n,k,v[k]); /* trim to size n */
    print(v);
); }
/* Joerg Arndt, Oct 20 2012 */

T(n, k) = T(n-k, k)+k*T(n-k, k-1) [with T(n, 0)=1 if n=0 and 0 otherwise] = A000142(k)*A060016(n, k).

G.f.: sum(n>=0, n! * z^n * q^((n^2+n)/2) / prod(k=1..n, 1-q^k ) ), rows by powers of q, columns by powers of z; includes row 0 (drop term for n=0 for this triangle, see PARI code); setting z=1 gives g.f. for A032020. [Joerg Arndt, Oct 20 2012]

cp's OEIS Frontend

A367215 Number of strict integer partitions of n whose length (number of parts) is not equal to the sum of any subset.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A367218 Number of integer partitions of n whose length can be written as a nonnegative linear combination of the distinct parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A367219 Number of integer partitions of n whose length cannot be written as a nonnegative linear combination of the distinct parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A367220 Number of strict integer partitions of n whose length (number of parts) can be written as a nonnegative linear combination of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A367221 Number of strict integer partitions of n whose length (number of parts) cannot be written as a nonnegative linear combination of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A367222 Number of subsets of {1..n} whose cardinality can be written as a nonnegative linear combination of the elements.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A124944 Table, number of partitions of n with k as high median.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363724 Number of integer partitions of n whose mean is a mode, i.e., partitions whose mean appears at least as many times as each of the other parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A101271 Number of partitions of n into 3 distinct and relatively prime parts.

Views

Author