A299702 -id:A299702 - cp's OEIS frontend

A316365 Number of factorizations of n into factors > 1 such that every distinct subset of the factors has a different sum.

1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 4, 1, 4, 1, 4, 2, 2, 1, 7, 2, 2, 3, 4, 1, 4, 1, 6, 2, 2, 2, 9, 1, 2, 2, 7, 1, 5, 1, 4, 4, 2, 1, 9, 2, 4, 2, 4, 1, 6, 2, 7, 2, 2, 1, 10, 1, 2, 4, 9, 2, 5, 1, 4, 2, 4, 1, 14, 1, 2, 4, 4, 2, 5, 1, 11, 5, 2, 1, 9, 2, 2, 2, 7, 1, 10, 2, 4, 2, 2, 2, 15, 1, 4, 4, 9, 1, 5, 1, 7, 5

Offset: 1

Gus Wiseman, Jun 30 2018

nonn

Also the number of factorizations of n into factors > 1 which form a knapsack partition.

			The a(24) = 7 factorizations are (2*2*2*3), (2*2*6), (2*3*4), (2*12), (3*8), (4*6), (24).
The a(54) = 6 factorizations are (2*3*3*3), (2*3*9), (2*27), (3*18), (6*9), (54).

Antti Karttunen, Table of n, a(n) for n = 1..10080
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000

Cf. A001055, A108917, A275972, A292886, A293627, A294150, A299702, A316313, A316314, A316364.

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

primeprodbybits(v,b) = { my(m=1,i=1); while(b>0,if(b%2, m *= prime(v[i])); i++; b >>= 1); (m); };
sumbybits(v,b) = { my(s=0,i=1); while(b>0,s += (b%2)*v[i]; i++; b >>= 1); (s); };
all_distinct_subsets_have_different_sums(v) = { my(m=Map(),s,pp); for(i=0,(2^#v)-1, pp = primeprodbybits(v,i); s = sumbybits(v,i); if(mapisdefined(m,s), if(mapget(m,s)!=pp, return(0)), mapput(m,s,pp))); (1); };
A316365(n, m=n, facs=List([])) = if(1==n, all_distinct_subsets_have_different_sums(Vec(facs)), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A316365(n/d, d, newfacs))); (s)); \\ Antti Karttunen, Oct 08 2018

More terms from Antti Karttunen, Oct 08 2018

A319328 Heinz numbers of integer partitions such that not every distinct submultiset has a different GCD but every distinct submultiset has a different LCM.

Original entry on oeis.org

165, 255, 385, 465, 561, 595, 615, 759, 885, 935, 1001, 1005, 1015, 1023, 1045, 1085, 1173, 1245, 1309, 1353, 1435, 1455, 1505, 1547, 1581, 1615, 1635, 1705, 1771, 1905, 1947, 2065, 2091, 2139, 2211, 2235, 2255, 2345, 2355, 2365, 2387, 2397, 2409, 2431, 2465

Offset: 1

Gus Wiseman, Sep 17 2018

nonn

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

The first term of this sequence absent from A302696 (numbers whose prime indices are pairwise coprime) is 1001 with prime indices {4,5,6}.

			The sequence of partitions whose Heinz numbers belong to this sequence begins (5,3,2), (7,3,2), (5,4,3), (11,3,2), (7,5,2), (7,4,3), (13,3,2), (9,5,2), (17,3,2), (7,5,3).

Cf. A056239, A275972, A299702, A301899, A301900, A319315, A319319, A319327.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[10000],UnsameQ@@primeMS[#]&&And[!UnsameQ@@GCD@@@Union[Rest[Subsets[primeMS[#]]]],UnsameQ@@LCM@@@Union[Rest[Subsets[primeMS[#]]]]]&]

A325777 Heinz numbers of integer partitions whose distinct consecutive subsequences do not have different sums.

Original entry on oeis.org

12, 24, 30, 36, 40, 48, 60, 63, 70, 72, 80, 84, 90, 96, 108, 112, 120, 126, 132, 140, 144, 150, 154, 156, 160, 165, 168, 180, 189, 192, 198, 200, 204, 210, 216, 220, 224, 228, 240, 252, 264, 270, 273, 276, 280, 286, 288, 300, 308, 312, 315, 320, 324, 325, 330

Offset: 1

Gus Wiseman, May 20 2019

nonn

First differs from A299729 in lacking 462.

This sequence does not contain all multiples of its elements. For example, it contains 154 (with prime indices {1,4,5}) but not 462 (with prime indices {1,2,4,5}).

Complement of A325778.

Cf. A002033, A056239, A112798, A143823, A169942, A299702, A301899, A325676, A325683, A325768, A325769, A325770.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!UnsameQ@@Total/@Union[ReplaceList[primeMS[#],{_,s__,_}:>{s}]]&]

A334268 Number of compositions of n where every distinct subsequence (not necessarily contiguous) has a different sum.

Original entry on oeis.org

1, 1, 2, 4, 5, 10, 10, 24, 24, 43, 42, 88, 72, 136, 122, 242, 213, 392, 320, 630, 490, 916, 742, 1432, 1160, 1955, 1604, 2826, 2310, 3850, 2888, 5416, 4426, 7332, 5814, 10046, 7983, 12946, 10236, 17780, 14100, 22674, 17582, 30232, 23674, 37522, 29426, 49832

Offset: 0

Gus Wiseman, Jun 02 2020

nonn

A composition of n is a finite sequence of positive integers summing to n.

The contiguous case is A325676.

			The a(1) = 1 through a(6) = 19 compositions:
  (1)  (2)    (3)      (4)        (5)          (6)
       (1,1)  (1,2)    (1,3)      (1,4)        (1,5)
              (2,1)    (2,2)      (2,3)        (2,4)
              (1,1,1)  (3,1)      (3,2)        (3,3)
                       (1,1,1,1)  (4,1)        (4,2)
                                  (1,1,3)      (5,1)
                                  (1,2,2)      (1,1,4)
                                  (2,2,1)      (2,2,2)
                                  (3,1,1)      (4,1,1)
                                  (1,1,1,1,1)  (1,1,1,1,1,1)

These compositions are ranked by A334967.
Compositions where every restriction to a subinterval has a different sum are counted by A169942 and A325677 and ranked by A333222. The case of partitions is counted by A325768 and ranked by A325779.
Positive subset-sums of partitions are counted by A276024 and A299701.
Knapsack partitions are counted by A108917 and A325592 and ranked by A299702, while the strict case is counted by A275972 and ranked by A059519 and A301899.
Knapsack compositions are counted by A325676 and A325687 and ranked by A333223. The case of partitions is counted by A325769 and ranked by A325778, for which the number of distinct consecutive subsequences is given by A325770.
Cf. A003022, A029931, A103295, A143823, A325680, A333224.

b:= proc(n, s) option remember; `if`(n=0, 1, add((h->
      `if`(nops(h)=nops(map(l-> add(i, i=l), h)),
       b(n-j, h), 0))({s[], map(l-> [l[], j], s)[]}), j=1..n))
    end:
a:= n-> b(n, {[]}):
seq(a(n), n=0..23);  # Alois P. Heinz, Jun 03 2020

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@Total/@Union[Subsets[#]]&]],{n,0,15}]

a(18)-a(47) from Alois P. Heinz, Jun 03 2020

A316362 Heinz numbers of strict integer partitions such that not every distinct subset has a different average.

Original entry on oeis.org

30, 105, 110, 210, 238, 273, 330, 385, 390, 462, 506, 510, 546, 570, 627, 690, 714, 770, 806, 858, 870, 910, 930, 935, 966, 1001, 1110, 1131, 1155, 1190, 1230, 1254, 1290, 1326, 1330, 1365, 1394, 1410, 1430, 1482, 1495, 1518, 1590, 1729, 1770, 1785, 1786, 1794

Offset: 1

Gus Wiseman, Jun 30 2018

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			462 is the Heinz number of (5,4,2,1), and the subsets {1,5}, and {2,4} have the same average, so 462 belongs to the sequence.

Cf. A032302, A056239, A108917, A122768, A275972, A276024, A296150, A299702, A301899, A316313, A316314, A316361.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[3000],SquareFreeQ[#]&&!UnsameQ@@Mean/@Union[Subsets[primeMS[#]]]&]

A316401 Number of strict integer partitions of n that are not knapsack (not every subset has a different sum) but every subset has a different average.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 1, 0, 3, 1, 3, 2, 4, 2, 6, 6, 11, 9, 9, 10, 20, 16, 18, 17, 27, 24, 31, 29, 43, 31, 43, 40, 59, 52, 58, 61, 83, 68, 93, 80, 124, 99, 120, 109, 145, 151, 185, 160, 232, 163, 257, 229, 314, 280, 286, 310, 427, 385, 513, 333, 596

Offset: 1

Gus Wiseman, Jul 01 2018

nonn

			The a(22) = 11 partitions:
(11,6,5), (11,7,4), (11,8,3), (11,9,2), (11,10,1),
(11,5,4,2), (11,6,3,2), (11,8,2,1), (12,5,3,2), (12,5,4,1), (14,4,3,1).

Cf. A000009, A108917, A275972, A299702, A301899, A301900, A316271, A316313, A316314, A316399, A316400.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&!UnsameQ@@Total/@Union[Subsets[#]]&&UnsameQ@@Mean/@Union[Subsets[#]]&]],{n,20}]

A326019 Heinz numbers of non-knapsack partitions such that every non-singleton submultiset has a different sum.

Original entry on oeis.org

12, 30, 40, 63, 70, 112, 154, 165, 198, 220, 273, 286, 325, 351, 352, 364, 442, 561, 595, 646, 714, 741, 748, 765, 832, 850, 874, 918, 931, 952, 988, 1045, 1173, 1254, 1334, 1425, 1495, 1539, 1564, 1653, 1672, 1771, 1794, 1798, 1900, 2139, 2176, 2204, 2254

Offset: 1

Gus Wiseman, Jun 03 2019

nonn

A subsequence of A299729.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
An integer partition is knapsack if every distinct submultiset has a different sum.

			The sequence of terms together with their prime indices begins:
   12: {1,1,2}
   30: {1,2,3}
   40: {1,1,1,3}
   63: {2,2,4}
   70: {1,3,4}
  112: {1,1,1,1,4}
  154: {1,4,5}
  165: {2,3,5}
  198: {1,2,2,5}
  220: {1,1,3,5}
  273: {2,4,6}
  286: {1,5,6}
  325: {3,3,6}
  351: {2,2,2,6}
  352: {1,1,1,1,1,5}
  364: {1,1,4,6}
  442: {1,6,7}
  561: {2,5,7}
  595: {3,4,7}
  646: {1,7,8}

Cf. A108917, A275972, A299702, A299729, A304793.

Cf. A325780, A325862, A325863, A326016, A326018.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
Select[Range[1000],!UnsameQ@@hwt/@Divisors[#]&&UnsameQ@@hwt/@Select[Divisors[#],!PrimeQ[#]&]&]

A326033 Number of knapsack partitions of n such that no addition of one part equal to an existing part is knapsack.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 1, 1, 0, 3, 0, 0, 1, 1, 0, 8, 0, 8, 4, 3, 0, 11, 5, 3, 4, 5, 0, 30, 2, 9, 9, 20, 3, 37, 6, 18, 16, 37, 20, 71, 12, 37, 40

Offset: 1

Gus Wiseman, Jun 03 2019

An integer partition is knapsack if every distinct submultiset has a different sum.

			The partition (10,8,6,6) is counted under a(30) because (10,10,8,6,6), (10,8,8,6,6), and (10,8,6,6,6) are not knapsack.

Cf. A002033, A108917, A275972, A276024, A299702.

Cf. A325857, A325862, A325863, A325864, A325865, A326015, A326016, A326018.

sums[ptn_]:=sums[ptn]=If[Length[ptn]==1,ptn,Union@@(Join[sums[#],sums[#]+Total[ptn]-Total[#]]&/@Union[Table[Delete[ptn,i],{i,Length[ptn]}]])];
ksQ[y_]:=Length[sums[Sort[y]]]==Times@@(Length/@Split[Sort[y]]+1)-1;
maxks[n_]:=Select[IntegerPartitions[n],ksQ[#]&&Select[Table[Sort[Append[#,i]],{i,Union[#]}],ksQ]=={}&];
Table[Length[maxks[n]],{n,30}]

A367106 Triangle read by rows where T(n,k) is the number of complete length-k integer partitions of n.

Original entry on oeis.org

1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 2, 1, 1, 0, 0, 0, 1, 2, 1, 1, 0, 0, 0, 1, 3, 2, 1, 1, 0, 0, 0, 0, 3, 3, 2, 1, 1, 0, 0, 0, 0, 4, 5, 3, 2, 1, 1, 0, 0, 0, 0, 3, 5, 5, 3, 2, 1, 1, 0, 0, 0, 0, 4, 8, 7, 5, 3, 2, 1, 1, 0, 0, 0, 0, 2, 9, 9, 7, 5

Offset: 0

Gus Wiseman, Nov 09 2023

An integer partition of n is complete (ranks A325781) if every integer from 0 to n is the sum of some submultiset of the parts.

			Triangle begins:
  1
  0  1
  0  0  1
  0  0  1  1
  0  0  0  1  1
  0  0  0  2  1  1
  0  0  0  1  2  1  1
  0  0  0  1  3  2  1  1
  0  0  0  0  3  3  2  1  1
  0  0  0  0  4  5  3  2  1  1
  0  0  0  0  3  5  5  3  2  1  1
  0  0  0  0  4  8  7  5  3  2  1  1
  0  0  0  0  2  9  9  7  5  3  2  1  1
  0  0  0  0  2 11 12 11  7  5  3  2  1  1
  0  0  0  0  1 11 16 13 11  7  5  3  2  1  1
  0  0  0  0  1 14 21 19 15 11  7  5  3  2  1  1
Row n = 11 counts the following partitions (empty columns not shown):
  6311  62111  611111  5111111  41111111  311111111  2111111111  11111111111
  6221  53111  521111  4211111  32111111  221111111
  5321  52211  431111  3311111  22211111
  4421  44111  422111  3221111
        43211  332111  2222111
        42221  322211
        33311  222221
        33221

Column k appears to have A000325(k) nonzero terms.
Column sums are A003513.
Central column T(2n,n) is A007042.
Row sums are A126796, ranks A325781.
The strict case is too sparse, row sums A188431 (complement A365831).
Grouping by maximum instead of length gives A261036.
A000041 counts integer partitions.
A108917 counts knapsack partitions, ranks A299702.
A299701 counts subset-sums of prime indices, firsts A259941.
A365924 counts incomplete partitions, ranks A365830.
Cf. A002033, A018818, A046663, A047967, A055932, A276024, A304792, A365921.

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

A367108 Triangle read by rows where T(n,k) is the number of integer partitions of n with a unique submultiset summing to k.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 3, 2, 2, 3, 5, 3, 2, 3, 5, 7, 5, 4, 4, 5, 7, 11, 7, 6, 3, 6, 7, 11, 15, 11, 8, 7, 7, 8, 11, 15, 22, 15, 12, 10, 4, 10, 12, 15, 22, 30, 22, 16, 14, 12, 12, 14, 16, 22, 30, 42, 30, 22, 17, 17, 6, 17, 17, 22, 30, 42, 56, 42, 30, 25, 23, 20, 20, 23, 25, 30, 42, 56

Offset: 1

Gus Wiseman, Nov 18 2023

			Triangle begins:
   1
   1   1
   2   1   2
   3   2   2   3
   5   3   2   3   5
   7   5   4   4   5   7
  11   7   6   3   6   7  11
  15  11   8   7   7   8  11  15
  22  15  12  10   4  10  12  15  22
  30  22  16  14  12  12  14  16  22  30
  42  30  22  17  17   6  17  17  22  30  42
  56  42  30  25  23  20  20  23  25  30  42  56
  77  56  40  31  30  27   7  27  30  31  40  56  77
Row n = 5 counts the following partitions:
  (5)      (41)     (32)     (32)     (41)     (5)
  (41)     (311)    (311)    (311)    (311)    (41)
  (32)     (221)    (221)    (221)    (221)    (32)
  (311)    (2111)   (11111)  (11111)  (2111)   (311)
  (221)    (11111)                    (11111)  (221)
  (2111)                                       (2111)
  (11111)                                      (11111)
Row n = 6 counts the following partitions:
  (6)       (51)      (42)      (33)      (42)      (51)      (6)
  (51)      (411)     (411)     (2211)    (411)     (411)     (51)
  (42)      (321)     (321)     (111111)  (321)     (321)     (42)
  (411)     (3111)    (3111)              (3111)    (3111)    (411)
  (33)      (2211)    (222)               (222)     (2211)    (33)
  (321)     (21111)   (111111)            (111111)  (21111)   (321)
  (3111)    (111111)                                (111111)  (3111)
  (222)                                                       (222)
  (2211)                                                      (2211)
  (21111)                                                     (21111)
  (111111)                                                    (111111)

Columns k = 0 and k = n are A000041(n).
Column k = 1 and k = n-1 are A000041(n-1).
Column k = 2 appears to be 2*A027336(n).
The version for non-subset-sums is A046663, strict A365663.
Diagonal n = 2k is A108917, complement A366754.
Row sums are A304796, non-unique version A304792.
The non-unique version is A365543.
Cf. A002219, A122768, A275972, A299702, A299729, A301854, A364272, A364911, A365658, A365661, A367094.

Table[Length[Select[IntegerPartitions[n], Count[Total/@Union[Subsets[#]], k]==1&]], {n,0,10}, {k,0,n}]

A367094(n,1) = A108917(n).

cp's OEIS Frontend

A316365 Number of factorizations of n into factors > 1 such that every distinct subset of the factors has a different sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A319328 Heinz numbers of integer partitions such that not every distinct submultiset has a different GCD but every distinct submultiset has a different LCM.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325777 Heinz numbers of integer partitions whose distinct consecutive subsequences do not have different sums.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A334268 Number of compositions of n where every distinct subsequence (not necessarily contiguous) has a different sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

Extensions

A316362 Heinz numbers of strict integer partitions such that not every distinct subset has a different average.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A316401 Number of strict integer partitions of n that are not knapsack (not every subset has a different sum) but every subset has a different average.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A326019 Heinz numbers of non-knapsack partitions such that every non-singleton submultiset has a different sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A326033 Number of knapsack partitions of n such that no addition of one part equal to an existing part is knapsack.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A367106 Triangle read by rows where T(n,k) is the number of complete length-k integer partitions of n.

Views

Author

Keywords