cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 31-40 of 55 results. Next

A365922 Number of non-subset-sums of strict integer partitions of n.

Original entry on oeis.org

0, 1, 2, 4, 8, 11, 18, 25, 38, 51, 70, 93, 122, 159, 206, 263, 328, 420, 514, 645, 776, 967, 1154, 1413, 1686, 2042, 2414, 2890, 3394, 4062, 4732, 5598, 6494, 7652, 8836, 10329, 11884, 13833, 15830, 18376, 20936, 24131, 27476, 31547, 35780, 40966, 46292, 52737
Offset: 1

Views

Author

Gus Wiseman, Sep 23 2023

Keywords

Comments

For an integer partition y of n, we call a positive integer k <= n a non-subset-sum iff there is no submultiset of y summing to k.

Examples

			The a(6) = 11 ways, showing each strict partition and its non-subset-sums:
    (6): 1,2,3,4,5
   (51): 2,3,4
   (42): 1,3,5
  (321):
		

Crossrefs

The complement (positive subset-sums) is A284640, non-strict A276024.
Weighted row sums of A365545, non-strict A365923.
Row sums of A365663, non-strict A046663.
The non-strict version is A365918.
The zero-full complement (subset-sums) is A365925, non-strict A304792.
A000041 counts integer partitions, strict A000009.
A126796 counts complete partitions, ranks A325781, strict A188431.
A364350 counts combination-free strict partitions, complement A364839.
A365543 counts partitions with a submultiset summing to k.
A365661 counts strict partitions w/ a subset summing to k.
A365924 counts incomplete partitions, ranks A365830, strict A365831.

Programs

  • Mathematica
    Table[Total[Length[Complement[Range[n], Total/@Subsets[#]]]& /@ Select[IntegerPartitions[n], UnsameQ@@#&]],{n,30}]

A365662 Number of ordered pairs of disjoint strict integer partitions of n.

Original entry on oeis.org

1, 0, 0, 2, 2, 6, 8, 14, 18, 32, 42, 66, 92, 136, 190, 280, 374, 532, 744, 1014, 1366, 1896, 2512, 3384, 4526, 6006, 7910, 10496, 13648, 17842, 23338, 30116, 38826, 50256, 64298, 82258, 105156, 133480, 169392, 214778, 270620, 340554, 428772, 536302, 670522
Offset: 0

Views

Author

Gus Wiseman, Sep 19 2023

Keywords

Comments

Also the number of ways to first choose a strict partition of 2n, then a subset of it summing to n.

Examples

			The a(0) = 1 through a(7) = 14 pairs:
  ()()  .  .  (21)(3)  (31)(4)  (32)(5)   (42)(6)   (43)(7)
              (3)(21)  (4)(31)  (41)(5)   (51)(6)   (52)(7)
                                (5)(32)   (6)(42)   (61)(7)
                                (5)(41)   (6)(51)   (7)(43)
                                (32)(41)  (321)(6)  (7)(52)
                                (41)(32)  (42)(51)  (7)(61)
                                          (51)(42)  (421)(7)
                                          (6)(321)  (43)(52)
                                                    (43)(61)
                                                    (52)(43)
                                                    (52)(61)
                                                    (61)(43)
                                                    (61)(52)
                                                    (7)(421)
		

Crossrefs

For subsets instead of partitions we have A000244, non-disjoint A000302.
If the partitions can have different sums we get A032302.
The non-strict version is A054440, non-disjoint A001255.
The unordered version is A108796, non-strict A260669.
A000041 counts integer partitions, strict A000009.
A000124 counts distinct possible sums of subsets of {1..n}.
A000712 counts distinct submultisets of partitions.
A002219 and A237258 count partitions of 2n including a partition of n.
A304792 counts subset-sums of partitions, positive A276024, strict A284640.
A364272 counts sum-full strict partitions, sum-free A364349.

Programs

  • Mathematica
    Table[Length[Select[Tuples[Select[IntegerPartitions[n], UnsameQ@@#&],2], Intersection@@#=={}&]], {n,0,15}]
    Table[SeriesCoefficient[Product[(1 + x^k + y^k), {k, 1, n}], {x, 0, n}, {y, 0, n}], {n, 0, 50}] (* Vaclav Kotesovec, Apr 24 2025 *)

Formula

a(n) = 2*A108796(n) for n > 1.
a(n) = [(x*y)^n] Product_{k>=1} (1 + x^k + y^k). - Ilya Gutkovskiy, Apr 24 2025

A367404 Triangle read by rows where T(n,k) is the number of integer partitions of n with a semi-sum k.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 3, 2, 2, 2, 5, 3, 4, 2, 3, 7, 5, 6, 4, 3, 3, 11, 7, 9, 6, 6, 3, 4, 15, 11, 13, 10, 9, 6, 4, 4, 22, 15, 20, 13, 15, 9, 8, 4, 5, 30, 22, 27, 21, 21, 15, 12, 8, 5, 5, 42, 30, 39, 28, 30, 21, 20, 12, 10, 5, 6, 56, 42, 53, 41, 42, 33, 28, 20, 15, 10, 6, 6
Offset: 2

Views

Author

Gus Wiseman, Nov 17 2023

Keywords

Comments

We define a semi-sum of a multiset to be any sum of a 2-element submultiset. This is different from sums of pairs of elements. For example, 2 is the sum of a pair of elements of {1}, but there are no semi-sums.

Examples

			The partition y = (3,2,1,1) has semi-sum 3 = 2+1, but no semi-sum 6, so y is counted under T(7,3) but not under T(7,6).
Triangle begins:
   1
   1   1
   2   1   2
   3   2   2   2
   5   3   4   2   3
   7   5   6   4   3   3
  11   7   9   6   6   3   4
  15  11  13  10   9   6   4   4
  22  15  20  13  15   9   8   4   5
  30  22  27  21  21  15  12   8   5   5
  42  30  39  28  30  21  20  12  10   5   6
  56  42  53  41  42  33  28  20  15  10   6   6
  77  56  73  55  60  42  44  28  25  15  12   6   7
Row n = 7 counts the following partitions:
  (511)      (421)     (331)    (421)   (511)  (61)
  (4111)     (3211)    (322)    (4111)  (421)  (52)
  (3211)     (2221)    (3211)   (322)   (331)  (43)
  (31111)    (22111)   (31111)  (3211)
  (22111)    (211111)  (2221)
  (211111)             (22111)
  (1111111)
		

Crossrefs

Column k = 0 is A000041.
Column n = k is A004526.
The complement for all submultisets is A046663, strict A365663.
For subsets instead of partitions we have A365541, non-binary A365381.
The non-binary version is A365543, strict A365661.
Row sums are A366738.
The strict case is A367405.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], MemberQ[Total/@Subsets[#, {2}],k]&]], {n,2,10}, {k,2,n}]

A367405 Triangle read by rows where T(n,k) is the number of strict integer partitions of n with two distinct parts summing to k.

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 1, 1, 1, 2, 1, 0, 1, 1, 3, 1, 1, 1, 1, 2, 3, 1, 1, 1, 2, 2, 2, 4, 2, 2, 3, 2, 3, 2, 3, 4, 2, 2, 3, 2, 3, 3, 3, 3, 5, 3, 2, 4, 3, 4, 4, 5, 3, 4, 5, 3, 3, 5, 4, 4, 5, 5, 5, 4, 4, 6, 4, 3, 6, 5, 6, 5, 7, 5, 7, 4, 5, 6, 5, 5, 7, 7, 8, 7, 8, 8, 7, 7, 5, 5, 7
Offset: 3

Views

Author

Gus Wiseman, Nov 18 2023

Keywords

Examples

			Triangle begins:
  1
  0  1
  0  0  2
  1  1  1  2
  1  0  1  1  3
  1  1  1  1  2  3
  1  1  1  2  2  2  4
  2  2  3  2  3  2  3  4
  2  2  3  2  3  3  3  3  5
  3  2  4  3  4  4  5  3  4  5
  3  3  5  4  4  5  5  5  4  4  6
  4  3  6  5  6  5  7  5  7  4  5  6
  5  5  7  7  8  7  8  8  7  7  5  5  7
  6  5  9  8 10  7 10  9 10  7  9  5  6  7
  7  7 10 10 12 11 11 11 12 10  9  9  6  6  8
  9  7 13 11 15 12 13 13 15 13 13  9 11  6  7  8
Row n = 9 counts the following strict partitions:
  (6,2,1)  (5,3,1)  (4,3,2)  (5,3,1)  (6,2,1)  (6,2,1)  (8,1)
                             (4,3,2)  (4,3,2)  (5,3,1)  (7,2)
                                                        (6,3)
                                                        (5,4)
Row n = 13 counts the following strict partitions (A=10, B=11, C=12):
  A21   931   841   751   652   751   841   931   A21  A21  C1
  7321  7321  832   742   643   7321  742   832   832  931  B2
  6421  5431  7321  6421  6421  652   7321  7321  742  841  A3
              6421  5431  5431  6421  643   643   652  751  94
              5431              5431  5431  6421            85
                                                            76
		

Crossrefs

Column n = k is A004526.
Column k = 3 is A025148.
For subsets instead of partitions we have A365541, non-binary A365381.
The non-binary version is A365661, non-strict A365543.
The non-binary complement is A365663, non-strict A046663.
Row sums are A366741, non-strict A366738.
The non-strict version is A367404.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&MemberQ[Total/@Subsets[#,{2}], k]&]], {n,3,10}, {k,3,n}]

A365832 Triangle read by rows where T(n,k) is the number of strict integer partitions of n with k distinct sums of nonempty subsets.

Original entry on oeis.org

1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 2, 0, 0, 0, 1, 0, 2, 0, 0, 1, 0, 1, 0, 3, 0, 0, 0, 1, 0, 1, 0, 3, 0, 0, 1, 1, 0, 0, 1, 0, 4, 0, 0, 0, 3, 0, 0, 0, 1, 0, 4, 0, 0, 2, 2, 0, 0, 1, 0, 1, 0, 5, 0, 0, 0, 5, 0, 0, 0, 1, 0, 1, 0, 5, 0, 0, 2, 5, 0, 0, 0, 0, 2
Offset: 0

Views

Author

Gus Wiseman, Sep 28 2023

Keywords

Examples

			The partition (7,6,1) has sums 1, 6, 7, 8, 13, 14, so is counted under T(14,6).
Triangle begins:
  1
  0  1
  0  1  0
  0  1  0  1
  0  1  0  1  0
  0  1  0  2  0  0
  0  1  0  2  0  0  1
  0  1  0  3  0  0  0  1
  0  1  0  3  0  0  1  1  0
  0  1  0  4  0  0  0  3  0  0
  0  1  0  4  0  0  2  2  0  0  1
  0  1  0  5  0  0  0  5  0  0  0  1
  0  1  0  5  0  0  2  5  0  0  0  0  2
  0  1  0  6  0  0  0  8  0  0  0  1  0  2
  0  1  0  6  0  0  3  7  0  0  0  0  3  1  1
  0  1  0  7  0  0  0 12  0  0  0  1  0  4  0  2
  0  1  0  7  0  0  3 11  0  0  0  1  3  2  2  1  1
  0  1  0  8  0  0  0 16  0  0  0  1  0  7  0  3  0  2
  0  1  0  8  0  0  4 15  0  0  0  1  3  3  6  2  0  0  3
  0  1  0  9  0  0  0 21  0  0  0  2  0  9  0  7  0  1  0  4
  0  1  0  9  0  0  4 20  0  0  1  0  4  8  5  5  0  0  2  0  5
Row n = 14 counts the following partitions (A..E = 10..14):
  (E)  .  (D1)  .  .  (761)  (B21)  .  .  .  .  (6521)  (8321)  (7421)
          (C2)        (752)  (A31)              (6431)
          (B3)        (743)  (941)              (5432)
          (A4)               (932)
          (95)               (851)
          (86)               (842)
                             (653)
		

Crossrefs

Row sums are A000009.
Rightmost column n = k is A188431, non-strict A126796.
The one-based weighted row sums are A284640.
The corresponding rank statistic is A299701.
The non-strict version is A365658.
Central column n = 2k in the non-strict case is A365660.
Reverse-weighted row-sums are A365922, non-strict A276024.
A000041 counts integer partitions.
A000124 counts distinct sums of subsets of {1..n}.
A365543 counts partitions with a submultiset summing to k, strict A365661.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Length[Union[Total/@Rest[Subsets[#]]]]==k&]],{n,0,15},{k,0,n}]

A366753 Number of integer partitions of n without all different sums of two-element submultisets.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 3, 4, 9, 11, 22, 27, 48, 61, 98, 123, 188, 237, 345, 435, 611, 765, 1046, 1305, 1741, 2165, 2840, 3502, 4527, 5562, 7083, 8650, 10908, 13255, 16545, 20016, 24763, 29834, 36587, 43911, 53514, 63964, 77445, 92239, 111015, 131753
Offset: 0

Views

Author

Gus Wiseman, Nov 07 2023

Keywords

Examples

			The two-element submultisets of y = {1,1,1,2,2,3} are {1,1}, {1,2}, {1,3}, {2,2}, {2,3}, with sums 2, 3, 4, 4, 5, which are not all different, so y is counted under a(10).
The a(8) = 1 through a(13) = 11 partitions:
  (3221)  (32211)  (4321)    (33221)    (4332)      (43321)
                   (32221)   (43211)    (5331)      (53221)
                   (322111)  (322211)   (5421)      (53311)
                             (3221111)  (43221)     (54211)
                                        (322221)    (332221)
                                        (332211)    (432211)
                                        (432111)    (3222211)
                                        (3222111)   (3322111)
                                        (32211111)  (4321111)
                                                    (32221111)
                                                    (322111111)
		

Crossrefs

Semiprime divisors are counted by A086971, distinct sums A366739.
The non-binary complement is A108917, strict A275972, ranks A299702.
These partitions have ranks A366740.
The non-binary version is A366754, strict A316402, ranks A299729.
A276024 counts positive subset-sums of partitions, strict A284640.
A304792 counts subset-sum of partitions, strict A365925.
A365543 counts partitions with a subset-sum k, complement A046663.
A365661 counts strict partitions with a subset-sum k, complement A365663.
A366738 counts semi-sums of partitions, strict A366741.
A367096 lists semiprime divisors, row sums A076290.

Programs

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

A237194 Triangular array: T(n,k) = number of strict partitions P of n into positive parts such that P includes a partition of k.

Original entry on oeis.org

1, 0, 1, 1, 1, 2, 1, 0, 1, 2, 1, 1, 1, 1, 3, 2, 2, 1, 2, 2, 4, 2, 2, 2, 2, 2, 2, 5, 3, 2, 3, 1, 3, 2, 3, 6, 3, 3, 4, 3, 3, 4, 3, 3, 8, 5, 4, 5, 4, 3, 4, 5, 4, 5, 10, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 12, 7, 6, 7, 7, 7, 4, 7, 7, 7, 6, 7, 15, 8, 7, 8, 8, 8, 8, 8
Offset: 1

Views

Author

Clark Kimberling, Feb 05 2014

Keywords

Examples

			First 13 rows:
1
0 1
1 1 2
1 0 1 2
1 1 1 1 3
2 2 1 2 2 4
2 2 2 2 2 2 5
3 2 3 1 3 2 3 6
3 3 4 3 3 4 3 3 8
5 4 5 4 3 4 5 4 5 10
5 5 5 5 5 5 5 5 5 5 12
7 6 7 7 7 4 7 7 7 6 7 15
8 7 8 8 8 8 8 8 8 8 7 8 18
T(12,4) = 7 counts these partitions:  [8,4], [8,3,1], [7,4,1], [6,4,2], [6,3,2,1], [5,4,3], [5,4,2,1].
		

Crossrefs

Column k = n is A000009.
Column k = 2 is A015744.
Column k = 1 is A025147.
The non-strict complement is obtained by adding zeros after A046663.
Diagonal n = 2k is A237258.
Row sums are A284640.
For subsets instead of partitions we have A365381.
The non-strict version is obtained by removing column k = 0 from A365543.
Including column k = 0 gives A365661.
The complement is obtained by adding zeros after A365663.

Programs

  • Mathematica
    Table[theTotals = Map[{#, Map[Total, Subsets[#]]} &, Select[IntegerPartitions[nn], # == DeleteDuplicates[#] &]]; Table[Length[Map[#[[1]] &, Select[theTotals, Length[Position[#[[2]], sumTo]] >= 1 &]]], {sumTo, nn}], {nn, 45}] // TableForm
    u = Flatten[%]  (* Peter J. C. Moses, Feb 04 2014 *)
    Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&MemberQ[Total/@Subsets[#], k]&]], {n,6}, {k,n}] (* Gus Wiseman, Nov 16 2023 *)

Formula

T(n,k) = T(n,n-k) for k=1..n-1, n >= 2.

A365659 Number of strict integer partitions of n that either have (1) length 2, or (2) greatest part n/2.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 3, 3, 4, 4, 6, 5, 8, 6, 10, 7, 12, 8, 15, 9, 18, 10, 21, 11, 25, 12, 29, 13, 34, 14, 40, 15, 46, 16, 53, 17, 62, 18, 71, 19, 82, 20, 95, 21, 109, 22, 125, 23, 144, 24, 165, 25, 189, 26, 217, 27, 248, 28, 283, 29, 324
Offset: 0

Views

Author

Gus Wiseman, Sep 16 2023

Keywords

Comments

Also the number of strict integer partitions of n containing two possibly equal elements summing to n.

Examples

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

Crossrefs

Without repeated parts we have A140106.
The non-strict version is A238628.
For subsets instead of strict partitions we have A365544.
A000009 counts subsets summing to n.
A365046 counts combination-full subsets, differences of A364914.
A365543 counts partitions of n with a submultiset summing to k.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&(Length[#]==2||Max@@#==n/2)&]], {n,0,30}]
  • Python
    from sympy.utilities.iterables import partitions
    def A365659(n): return n>>1 if n&1 or n==0 else (m:=n>>1)+sum(1 for p in partitions(m) if max(p.values(),default=1)==1)-2 # Chai Wah Wu, Sep 18 2023

Formula

a(n) = (n-1)/2 if n is odd. a(n) = n/2 + A000009(n/2) - 2 if n is even and n > 0. - Chai Wah Wu, Sep 18 2023

A365828 Number of strict integer partitions of 2n not containing n.

Original entry on oeis.org

1, 1, 2, 3, 5, 8, 12, 18, 27, 39, 55, 78, 108, 148, 201, 270, 359, 475, 623, 811, 1050, 1351, 1728, 2201, 2789, 3517, 4418, 5527, 6887, 8553, 10585, 13055, 16055, 19685, 24065, 29343, 35685, 43287, 52387, 63253, 76200, 91605, 109897, 131575, 157231, 187539
Offset: 0

Views

Author

Gus Wiseman, Sep 20 2023

Keywords

Examples

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

Crossrefs

The complement is counted by A111133.
For non-strict partitions we have A182616, complement A000041.
A000009 counts strict integer partitions.
A046663 counts partitions with no submultiset summing to k, strict A365663.
A365827 counts strict partitions not of length 2, complement A140106.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[2n],UnsameQ@@#&&FreeQ[#,n]&]],{n,0,30}]

Formula

a(n) = A000009(2n) - A000009(n) + 1.

A276107 Number of partitions of n which can themselves be subdivided into two partitions whose sums differ by 1 at most.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 6, 11, 14, 22, 25, 43, 53, 79, 89, 140, 167, 243, 278, 409, 480, 666, 760, 1082, 1273, 1708, 1948, 2649, 3089, 4073, 4682, 6180, 7177, 9213, 10565, 13660, 15869, 19987, 22911, 29012, 33601, 41762, 47942, 59571, 68756, 84240, 96570, 118641
Offset: 0

Views

Author

David S. Newman, Aug 18 2016

Keywords

Comments

Number of partitions whose summands can be divided into two sets whose sums are equal, or whose sums differ by one.

Examples

			For example: the partition of 6 into 2+2+2 is not counted because no subset of {2,2,2} has the sum 3. The partition of 6 into 3+2+1 is counted because {3,2,1} can be divided into two subsets {3} and {2,1} each of which has sum 3. The partition of 7 into 4+2+1 is counted because {4,2,1} can be broken up into sets {4} and {2,1} the sum of whose elements differ by one.
		

Crossrefs

Programs

  • Maple
    N:= 50: # to get a(0) .. a(N)
    Pm1:= combinat:-partition(0);
    for m from 0 to N/2 do
      Pm:= Pm1;
      A[2*m]:= nops({seq(seq(sort([op(Pm[i]),op(Pm[j])]),j=1..i),i=1..nops(Pm))});
      if 2*m+1 > N then break fi;
      Pm1:= combinat:-partition(m+1);
      A[2*m+1]:= nops({seq(seq(sort([op(Pm[i]),op(Pm1[j])]),j=1..nops(Pm1)),i=1..nops(Pm))});
    od:
    seq(A[i],i=  0..N); # Robert Israel, Aug 18 2016
  • Python
    from collections import Counter
    from sympy.utilities.iterables import partitions
    def A276107(n): return len({tuple(sorted((p+q).items())) for p in (Counter(p) for p in partitions(n>>1)) for q in (Counter(q) for q in partitions(n+1>>1))}) # Chai Wah Wu, Sep 20 2023

Formula

a(n) = A000041(n) - A046663(n,floor(n/2)). - Max Alekseyev, Oct 17 2022

Extensions

a(11)-a(47) from Alois P. Heinz, Aug 18 2016
Previous Showing 31-40 of 55 results. Next