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.

Showing 1-10 of 14 results. Next

A126796 Number of complete partitions of n.

Original entry on oeis.org

1, 1, 1, 2, 2, 4, 5, 8, 10, 16, 20, 31, 39, 55, 71, 100, 125, 173, 218, 291, 366, 483, 600, 784, 971, 1244, 1538, 1957, 2395, 3023, 3693, 4605, 5604, 6942, 8397, 10347, 12471, 15235, 18309, 22267, 26619, 32219, 38414, 46216, 54941, 65838, 77958, 93076, 109908
Offset: 0

Views

Author

Brian Hopkins, Feb 20 2007

Keywords

Comments

A partition of n is complete if every number 1 to n can be represented as a sum of parts of the partition. This generalizes perfect partitions, where the representation for each number must be unique.
A partition is complete iff each part is no more than 1 more than the sum of all smaller parts. (This includes the smallest part, which thus must be 1.) - Franklin T. Adams-Watters, Mar 22 2007
For n > 0: a(n) = sum of n-th row in A261036 and also a(floor(n/2)) = A261036(n,floor((n+1)/2)). - Reinhard Zumkeller, Aug 08 2015
a(n+1) is the number of partitions of n such that each part is no more than 2 more than the sum of all smaller parts (generalizing Adams-Watters's criterion). Bijection: each partition counted by a(n+1) must contain a 1, removing that gives a desired partition of n. - Brian Hopkins, May 16 2017
A partition (x_1, ..., x_k) is complete if and only if 1, x_1, ..., x_k is a "regular sequence" (see A003513 for definition). As a result, the number of complete partitions with n parts is given by A003513(n+1). - Nathaniel Johnston, Jun 29 2023

Examples

			There are a(5) = 4 complete partitions of 5:
  [1, 1, 1, 1, 1], [1, 1, 1, 2], [1, 2, 2], and [1, 1, 3].
G.f.: 1 = 1*(1-x) + 1*x*(1-x)*(1-x^2) + 1*x^2*(1-x)*(1-x^2)*(1-x^3) + 2*x^3*(1-x)*(1-x^2)*(1-x^3)*(1-x^4) + 2*x^4*(1-x)*(1-x^2)*(1-x^3)*(1-x^4)*(1-x^5) + ...
From _Gus Wiseman_, Oct 14 2023: (Start)
The a(1) = 1 through a(8) = 10 partitions:
  (1)  (11)  (21)   (211)   (221)    (321)     (421)      (3221)
             (111)  (1111)  (311)    (2211)    (2221)     (3311)
                            (2111)   (3111)    (3211)     (4211)
                            (11111)  (21111)   (4111)     (22211)
                                     (111111)  (22111)    (32111)
                                               (31111)    (41111)
                                               (211111)   (221111)
                                               (1111111)  (311111)
                                                          (2111111)
                                                          (11111111)
(End)
		

Crossrefs

For parts instead of sums we have A000009 (sc. coverings), ranks A055932.
The strict case is A188431, complement A365831.
These partitions have ranks A325781.
First column k = 0 of A365923.
The complement is counted by A365924, ranks A365830.

Programs

  • Haskell
    import Data.MemoCombinators (memo3, integral, Memo)
    a126796 n = a126796_list !! n
    a126796_list = map (pMemo 1 1) [0..] where
       pMemo = memo3 integral integral integral p
       p   0 = 1
       p s k m
         | k > min m s = 0
         | otherwise   = pMemo (s + k) k (m - k) + pMemo s (k + 1) m
    -- Reinhard Zumkeller, Aug 07 2015
  • Maple
    isCompl := proc(p,n) local m,pers,reps,f,lst,s; reps := {}; pers := combinat[permute](p); for m from 1 to nops(pers) do lst := op(m,pers); for f from 1 to nops(lst) do s := add( op(i,lst),i=1..f); reps := reps union {s}; od; od; for m from 1 to n do if not m in reps then RETURN(false); fi; od; RETURN(true); end: A126796 := proc(n) local prts, res,p; prts := combinat[partition](n); res :=0; for p from 1 to nops(prts) do if isCompl(op(p,prts),n) then res := res+1; fi; od; RETURN(res); end: for n from 1 to 40 do printf("%d %d ",n,A126796(n)); od; # R. J. Mathar, Feb 27 2007
    # At the beginning of the 2nd Maple program replace the current 15 by any other positive integer n in order to obtain a(n). - Emeric Deutsch, Mar 04 2007
    with(combinat): a:=proc(n) local P,b,k,p,S,j: P:=partition(n): b:=0: for k from 1 to numbpart(n) do p:=powerset(P[k]): S:={}: for j from 1 to nops(p) do S:=S union {add(p[j][i],i=1..nops(p[j]))} od: if nops(S)=n+1 then b:=b+1 else b:=b: fi: od: end: seq(a(n),n=1..30); # Emeric Deutsch, Mar 04 2007
    with(combinat): n:=15: P:=partition(n): b:=0: for k from 1 to numbpart(n) do p:=powerset(P[k]): S:={}: for j from 1 to nops(p) do S:=S union {add(p[j][i],i=1..nops(p[j]))} od: if nops(S)=n+1 then b:=b+1 else b:=b: fi: od: b; # Emeric Deutsch, Mar 04 2007
  • Mathematica
    T[n_, k_] := T[n, k] = If[k <= 1, 1, If[n < 2k-1, T[n, Floor[(n+1)/2]], T[n, k-1] + T[n-k, k]]];
    a[n_] := T[n, Floor[(n+1)/2]];
    Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Apr 11 2017, after Franklin T. Adams-Watters *)
    nmz[y_]:=Complement[Range[Total[y]], Total/@Subsets[y]]; Table[Length[Select[IntegerPartitions[n], nmz[#]=={}&]],{n,0,15}] (* Gus Wiseman, Oct 14 2023 *)
  • PARI
    {T(n,k)=if(k<=1,1,if(n<2*k-1,T(n,floor((n+1)/2)),T(n,k-1)+T(n-k,k)))}
    {a(n)=T(n,floor((n+1)/2))} /* If modified to save earlier results, this would be efficient. */ /* Franklin T. Adams-Watters, Mar 22 2007 */
    
  • PARI
    /* As coefficients in g.f.: */
    {a(n)=local(A=[1,1]);for(i=1,n+1,A=concat(A,0);A[#A]=polcoeff(1-sum(m=1,#A,A[m]*x^m*prod(k=1,m,1-x^k +x*O(x^#A))),#A) );A[n+1]}
    for(n=0,50,print1(a(n),",")) /* Paul D. Hanna, Mar 06 2012 */
    

Formula

G.f.: 1 = Sum_{n>=0} a(n)*x^n*Product_{k=1..n+1} (1-x^k). - Paul D. Hanna, Mar 08 2012
a(n) ~ exp(Pi*sqrt(2*n/3)) / (4*sqrt(3)*n) * (1 - (sqrt(3/2)/Pi + 25*Pi/(24*sqrt(6))) / sqrt(n) + (25/16 - 1679*Pi^2/6912)/n). - Vaclav Kotesovec, May 24 2018, extended Nov 02 2019
a(n) = A000041(n) - A365924(n). - Gus Wiseman, Oct 14 2023

Extensions

More terms from R. J. Mathar, Feb 27 2007
More terms from Emeric Deutsch, Mar 04 2007
Further terms from Franklin T. Adams-Watters and David W. Wilson, Mar 22 2007

A365924 Number of incomplete integer partitions of n, meaning not every number from 0 to n is the sum of some submultiset.

Original entry on oeis.org

0, 0, 1, 1, 3, 3, 6, 7, 12, 14, 22, 25, 38, 46, 64, 76, 106, 124, 167, 199, 261, 309, 402, 471, 604, 714, 898, 1053, 1323, 1542, 1911, 2237, 2745, 3201, 3913, 4536, 5506, 6402, 7706, 8918, 10719, 12364, 14760, 17045, 20234, 23296, 27600, 31678, 37365, 42910, 50371, 57695, 67628, 77300, 90242, 103131, 119997
Offset: 0

Views

Author

Gus Wiseman, Sep 26 2023

Keywords

Comments

The complement (complete partitions) is A126796.

Examples

			The a(0) = 0 through a(8) = 12 partitions:
  .  .  (2)  (3)  (4)    (5)    (6)      (7)      (8)
                  (2,2)  (3,2)  (3,3)    (4,3)    (4,4)
                  (3,1)  (4,1)  (4,2)    (5,2)    (5,3)
                                (5,1)    (6,1)    (6,2)
                                (2,2,2)  (3,2,2)  (7,1)
                                (4,1,1)  (3,3,1)  (3,3,2)
                                         (5,1,1)  (4,2,2)
                                                  (4,3,1)
                                                  (5,2,1)
                                                  (6,1,1)
                                                  (2,2,2,2)
                                                  (5,1,1,1)
		

Crossrefs

For parts instead of sums we have A047967/A365919, ranks A080259/A055932.
The complement is A126796, ranks A325781, strict A188431.
These partitions have ranks A365830.
The strict case is A365831.
Row sums of A365923 without the first column, strict A365545.
A000041 counts integer partitions, strict A000009.
A046663 counts partitions w/o a submultiset summing to k, strict A365663.
A276024 counts positive subset-sums of partitions, strict A284640.
A325799 counts non-subset-sums of prime indices.
A364350 counts combination-free strict partitions.
A365543 counts partitions with a submultiset summing to k, strict A365661.

Programs

  • Mathematica
    nmz[y_]:=Complement[Range[Total[y]],Total/@Subsets[y]];
    Table[Length[Select[IntegerPartitions[n],Length[nmz[#]]>0&]],{n,0,15}]

Formula

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

A365831 Number of incomplete strict integer partitions of n, meaning not every number from 0 to n is the sum of some submultiset.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 3, 4, 6, 8, 9, 11, 13, 16, 21, 25, 31, 36, 43, 50, 59, 69, 82, 96, 113, 131, 155, 179, 208, 239, 276, 315, 362, 414, 472, 539, 614, 698, 795, 902, 1023, 1158, 1311, 1479, 1672, 1881, 2118, 2377, 2671, 2991, 3354, 3748, 4194, 4679, 5223, 5815
Offset: 0

Views

Author

Gus Wiseman, Sep 28 2023

Keywords

Examples

			The strict partition (14,5,4,2,1) has no subset summing to 13 so is counted under a(26).
The a(2) = 1 through a(10) = 9 strict partitions:
  (2)  (3)  (4)    (5)    (6)    (7)    (8)      (9)      (10)
            (3,1)  (3,2)  (4,2)  (4,3)  (5,3)    (5,4)    (6,4)
                   (4,1)  (5,1)  (5,2)  (6,2)    (6,3)    (7,3)
                                 (6,1)  (7,1)    (7,2)    (8,2)
                                        (4,3,1)  (8,1)    (9,1)
                                        (5,2,1)  (4,3,2)  (5,3,2)
                                                 (5,3,1)  (5,4,1)
                                                 (6,2,1)  (6,3,1)
                                                          (7,2,1)
		

Crossrefs

For parts instead of sums we have ranks A080259, A055932.
The strict complement is A188431, non-strict A126796 (ranks A325781).
Row sums of A365545 without the first column, non-strict A365923.
The non-strict version is A365924, ranks A365830.
A000041 counts integer partitions, strict A000009.
A046663 counts partitions w/o a submultiset summing to k, strict A365663.
A276024 counts positive subset-sums of partitions, strict A284640.
A325799 counts non-subset-sums of prime indices.
A365543 counts partitions with a submultiset summing to k, strict A365661.

Programs

  • Mathematica
    nmz[y_]:=Complement[Range[Total[y]], Total/@Subsets[y]];
    Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Length[nmz[#]]>0&]],{n,0,15}]

A365925 Number of subset-sums of strict integer partitions of n.

Original entry on oeis.org

1, 2, 2, 6, 6, 10, 17, 22, 29, 42, 59, 74, 102, 130, 171, 226, 281, 356, 454, 566, 699, 896, 1080, 1342, 1637, 2006, 2413, 2962, 3548, 4286, 5114, 6148, 7272, 8738, 10268, 12224, 14387, 16996, 19863, 23450, 27257, 31984, 37187, 43364, 50173, 58428, 67322
Offset: 0

Views

Author

Gus Wiseman, Sep 26 2023

Keywords

Comments

This is the "not necessarily positive" version, cf. A284640.

Examples

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

Crossrefs

The positive case is A284640.
The non-strict version is A304792, positive case A276024.
Row sums of A365661, non-strict A365543.
The complement (non-subset-sums) is A365922, non-strict A365918.
A000041 counts integer partitions, strict A000009.
A126796 counts complete partitions, ranks A325781, strict A188431.
A365923 counts partitions by non-subset-sums, strict A365545.
A365924 counts incomplete partitions, ranks A365830, strict A365831.

Programs

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

A365918 Number of distinct non-subset-sums of integer partitions of n.

Original entry on oeis.org

0, 1, 2, 6, 8, 19, 24, 46, 60, 101, 124, 206, 250, 378, 462, 684, 812, 1165, 1380, 1927, 2268, 3108, 3606, 4862, 5648, 7474, 8576, 11307, 12886, 16652, 19050, 24420, 27584, 35225, 39604, 49920, 56370, 70540, 78608, 98419, 109666, 135212, 151176, 185875, 205308
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) = 19 ways, showing each partition and its non-subset-sums:
       (6): 1,2,3,4,5
      (51): 2,3,4
      (42): 1,3,5
     (411): 3
      (33): 1,2,4,5
     (321):
    (3111):
     (222): 1,3,5
    (2211):
   (21111):
  (111111):
		

Crossrefs

Row sums of A046663, strict A365663.
The zero-full complement (subset-sums) is A304792.
The strict case is A365922.
Weighted row-sums of A365923, rank statistic A325799, complement A365658.
A000041 counts integer partitions, strict A000009.
A126796 counts complete partitions, ranks A325781, strict A188431.
A365543 counts partitions with a submultiset summing to k, strict A365661.
A365924 counts incomplete partitions, ranks A365830, strict A365831.

Programs

  • Mathematica
    Table[Total[Length[Complement[Range[n],Total/@Subsets[#]]]&/@IntegerPartitions[n]],{n,10}]
  • Python
    # uses A304792_T
    from sympy import npartitions
    def A365918(n): return (n+1)*npartitions(n)-A304792_T(n,n,(0,),1) # Chai Wah Wu, Sep 25 2023

Formula

a(n) = (n+1)*A000041(n) - A304792(n).

Extensions

a(21)-a(45) from Chai Wah Wu, Sep 25 2023

A365923 Triangle read by rows where T(n,k) is the number of integer partitions of n with exactly k distinct non-subset-sums.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 2, 0, 1, 0, 2, 1, 1, 1, 0, 4, 0, 2, 0, 1, 0, 5, 1, 0, 3, 1, 1, 0, 8, 0, 3, 0, 3, 0, 1, 0, 10, 2, 1, 2, 2, 3, 1, 1, 0, 16, 0, 5, 0, 3, 0, 5, 0, 1, 0, 20, 2, 2, 4, 2, 6, 0, 4, 1, 1, 0, 31, 0, 6, 0, 8, 0, 5, 0, 5, 0, 1, 0, 39, 4, 4, 4, 1, 6, 6, 3, 2, 6, 1, 1, 0
Offset: 0

Views

Author

Gus Wiseman, Sep 24 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 partition (4,2) has subset-sums {2,4,6} and non-subset-sums {1,3,5} so is counted under T(6,3).
Triangle begins:
   1
   1  0
   1  1  0
   2  0  1  0
   2  1  1  1  0
   4  0  2  0  1  0
   5  1  0  3  1  1  0
   8  0  3  0  3  0  1  0
  10  2  1  2  2  3  1  1  0
  16  0  5  0  3  0  5  0  1  0
  20  2  2  4  2  6  0  4  1  1  0
  31  0  6  0  8  0  5  0  5  0  1  0
  39  4  4  4  1  6  6  3  2  6  1  1  0
  55  0 13  0  8  0 12  0  6  0  6  0  1  0
  71  5  8  7  3  5  3 16  3  6  0  6  1  1  0
Row n = 6 counts the following partitions:
  (321)     (411)  .  (51)   (33)  (6)  .
  (3111)              (42)
  (2211)              (222)
  (21111)
  (111111)
		

Crossrefs

Row sums are A000041.
The rank statistic counted by this triangle is A325799.
The strict case is A365545, weighted row sums A365922.
The complement (positive subset-sum) is A365658.
Weighted row sums are A365918, for positive subset-sums A304792.
A046663 counts partitions w/o a submultiset summing to k, strict A365663.
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, strict A365661.
A365924 counts incomplete partitions, ranks A365830, strict A365831.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], Length[Complement[Range[n], Total/@Subsets[#]]]==k&]], {n,0,10}, {k,0,n}]

A365545 Triangle read by rows where T(n,k) is the number of strict integer partitions of n with exactly k distinct non-subset-sums.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Sep 24 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.
Is column k = n - 7 given by A325695?

Examples

			Triangle begins:
  1
  1  0
  0  1  0
  1  0  1  0
  0  1  0  1  0
  0  0  2  0  1  0
  1  0  0  2  0  1  0
  1  0  0  0  3  0  1  0
  0  1  1  0  0  3  0  1  0
  0  0  3  0  0  0  4  0  1  0
  1  0  0  2  2  0  0  4  0  1  0
  1  0  0  0  5  0  0  0  5  0  1  0
  2  0  0  0  0  5  2  0  0  5  0  1  0
  2  0  1  0  0  0  8  0  0  0  6  0  1  0
  1  1  3  0  0  0  0  7  3  0  0  6  0  1  0
  2  0  4  0  1  0  0  0 12  0  0  0  7  0  1  0
  1  1  2  2  3  1  0  0  0 11  3  0  0  7  0  1  0
  2  0  3  0  7  0  1  0  0  0 16  0  0  0  8  0  1  0
  3  0  0  2  6  3  3  1  0  0  0 15  4  0  0  8  0  1  0
Row n = 12: counts the following partitions:
  (6,3,2,1)  .  .  .  .  (9,2,1)  (6,5,1)  .  .  (11,1)  .  (12)  .
  (5,4,2,1)              (8,3,1)  (6,4,2)        (10,2)
                         (7,4,1)                 (9,3)
                         (7,3,2)                 (8,4)
                         (5,4,3)                 (7,5)
		

Crossrefs

Row sums are A000009, non-strict A000041.
The complement (positive subset-sums) is also A365545 with rows reversed.
Weighted row sums are A365922, non-strict A365918.
The non-strict version is A365923, complement A365658, rank stat A325799.
A046663 counts partitions without a subset summing to k, strict A365663.
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, strict A365661.
A365924 counts incomplete partitions, ranks A365830, strict A365831.

Programs

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

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}]

A367402 Number of integer partitions of n whose semi-sums cover an interval of positive integers.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 9, 10, 13, 17, 20, 26, 31, 38, 44, 58, 64, 81, 95, 116, 137, 166, 192, 233, 278, 330, 385, 459, 542, 636, 759, 879, 1038, 1211, 1418, 1656, 1942, 2242, 2618, 3029, 3535, 4060, 4735, 5429, 6299, 7231, 8346, 9556, 11031, 12593, 14482, 16525
Offset: 0

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-sums {2,3,4,5}, which is an interval, so y is counted under a(7).
The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (211)   (221)    (51)      (61)       (62)
                    (1111)  (2111)   (222)     (322)      (71)
                            (11111)  (321)     (2221)     (332)
                                     (2211)    (3211)     (2222)
                                     (21111)   (22111)    (3221)
                                     (111111)  (211111)   (22211)
                                               (1111111)  (32111)
                                                          (221111)
                                                          (2111111)
                                                          (11111111)
		

Crossrefs

For parts instead of sums we have A034296, ranks A073491.
For all subset-sums we have A126796, ranks A325781, strict A188431.
The complement for parts instead of sums is A239955, ranks A073492.
The complement for all sub-sums is A365924, ranks A365830, strict A365831.
The complement is counted by A367403.
The strict case is A367410, complement A367411.
A000009 counts partitions covering an initial interval, ranks A055932.
A086971 counts semi-sums of prime indices.
A261036 counts complete partitions by maximum.
A276024 counts positive subset-sums of partitions, strict A284640.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], (d=Total/@Subsets[#,{2}];If[d=={}, {}, Range[Min@@d,Max@@d]]==Union[d])&]], {n,0,15}]

A366127 Number of finite incomplete multisets of positive integers with greatest non-subset-sum n.

Original entry on oeis.org

1, 2, 4, 6, 11, 15, 25, 35, 53, 72, 108
Offset: 1

Views

Author

Gus Wiseman, Sep 30 2023

Keywords

Comments

A non-subset-sum of a multiset of positive integers summing to n is an element of {1..n} that is not the sum of any submultiset. A multiset is incomplete if it has at least one non-subset-sum.

Examples

			The non-subset-sums of y = {2,2,3} are {1,6}, with maximum 6, so y is counted under a(6).
The a(1) = 1 through a(6) = 15 multisets:
  {2}  {3}    {4}      {5}        {6}          {7}
       {1,3}  {1,4}    {1,5}      {1,6}        {1,7}
              {2,2}    {2,3}      {2,4}        {2,5}
              {1,1,4}  {1,1,5}    {3,3}        {3,4}
                       {1,2,5}    {1,1,6}      {1,1,7}
                       {1,1,1,5}  {1,2,6}      {1,2,7}
                                  {1,3,3}      {1,3,4}
                                  {2,2,2}      {2,2,3}
                                  {1,1,1,6}    {1,1,1,7}
                                  {1,1,2,6}    {1,1,2,7}
                                  {1,1,1,1,6}  {1,1,3,7}
                                               {1,2,2,7}
                                               {1,1,1,1,7}
                                               {1,1,1,2,7}
                                               {1,1,1,1,1,7}
		

Crossrefs

For least instead of greatest we have A126796, ranks A325781, strict A188431.
These multisets have ranks A365830.
Counts appearances of n in the rank statistic A365920.
Column sums of A365921.
These multisets counted by sum are A365924, strict A365831.
The strict case is A366129.
A000041 counts integer partitions, strict A000009.
A046663 counts partitions without a submultiset summing k, strict A365663.
A325799 counts non-subset-sums of prime indices.
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.
A365918 counts non-subset-sums of partitions.
A365923 counts partitions by non-subset sums, strict A365545.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    nmz[y_]:=Complement[Range[Total[y]],Total/@Subsets[y]];
    Table[Length[Select[Join@@IntegerPartitions/@Range[n,2*n],Max@@nmz[#]==n&]],{n,5}]
Showing 1-10 of 14 results. Next