A333223
Numbers k such that every distinct consecutive subsequence of the k-th composition in standard order has a different sum.
Original entry on oeis.org
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 15, 16, 17, 18, 19, 20, 21, 24, 26, 28, 31, 32, 33, 34, 35, 36, 40, 41, 42, 48, 50, 56, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 80, 81, 84, 85, 88, 96, 98, 100, 104, 106, 112, 120, 127, 128, 129, 130, 131, 132, 133
Offset: 1
The list of terms together with the corresponding compositions begins:
0: () 21: (2,2,1) 65: (6,1)
1: (1) 24: (1,4) 66: (5,2)
2: (2) 26: (1,2,2) 67: (5,1,1)
3: (1,1) 28: (1,1,3) 68: (4,3)
4: (3) 31: (1,1,1,1,1) 69: (4,2,1)
5: (2,1) 32: (6) 70: (4,1,2)
6: (1,2) 33: (5,1) 71: (4,1,1,1)
7: (1,1,1) 34: (4,2) 72: (3,4)
8: (4) 35: (4,1,1) 73: (3,3,1)
9: (3,1) 36: (3,3) 74: (3,2,2)
10: (2,2) 40: (2,4) 80: (2,5)
12: (1,3) 41: (2,3,1) 81: (2,4,1)
15: (1,1,1,1) 42: (2,2,2) 84: (2,2,3)
16: (5) 48: (1,5) 85: (2,2,2,1)
17: (4,1) 50: (1,3,2) 88: (2,1,4)
18: (3,2) 56: (1,1,4) 96: (1,6)
19: (3,1,1) 63: (1,1,1,1,1,1) 98: (1,4,2)
20: (2,3) 64: (7) 100: (1,3,3)
These compositions are counted by
A325676.
The number of distinct positive subsequence-sums is
A333224.
The number of distinct subsequence-sums is
A333257.
Numbers whose binary indices are a strict knapsack partition are
A059519.
Golomb subsets are counted by
A143823.
Heinz numbers of knapsack partitions are
A299702.
Maximal Golomb rulers are counted by
A325683.
Cf.
A000120,
A003022,
A029931,
A048793,
A066099,
A070939,
A103295 A325779,
A233564,
A325680,
A325687,
A325770,
A333217.
-
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],UnsameQ@@Total/@Union[ReplaceList[stc[#],{_,s__,_}:>{s}]]&]
A364346
Number of strict integer partitions of n such that there is no ordered triple of parts (a,b,c) (repeats allowed) satisfying a + b = c. A variation of sum-free strict partitions.
Original entry on oeis.org
1, 1, 1, 1, 2, 3, 2, 4, 4, 5, 5, 8, 9, 11, 11, 16, 16, 20, 20, 25, 30, 34, 38, 42, 50, 58, 64, 73, 80, 90, 105, 114, 128, 148, 158, 180, 201, 220, 241, 277, 306, 333, 366, 404, 447, 497, 544, 592, 662, 708, 797, 861, 954, 1020, 1131, 1226, 1352, 1456, 1600
Offset: 0
The a(1) = 1 through a(14) = 11 partitions (A..E = 10..14):
1 2 3 4 5 6 7 8 9 A B C D E
31 32 51 43 53 54 64 65 75 76 86
41 52 62 72 73 74 93 85 95
61 71 81 82 83 A2 94 A4
531 91 92 B1 A3 B3
A1 543 B2 C2
641 732 C1 D1
731 741 652 851
831 751 932
832 941
931 A31
For subsets of {1..n} we have
A007865 (sum-free sets), differences
A288728.
A236912 counts sum-free partitions not re-using parts, complement
A237113.
Cf.
A002865,
A025065,
A085489,
A093971,
A108917,
A111133,
A240861,
A275972,
A320347,
A325862,
A326083,
A363260.
-
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&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 A364346(n): return sum(1 for p in partitions(n) if max(p.values(),default=1)==1 and not any(q[0]+q[1]==q[2] for q in combinations_with_replacement(sorted(Counter(p).elements()),3))) # Chai Wah Wu, Sep 20 2023
A364347
Numbers k > 0 such that if prime(a) and prime(b) both divide k, then prime(a+b) does not.
Original entry on oeis.org
1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 20, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 64, 67, 68, 69, 71, 73, 74, 75, 76, 77, 79, 80, 81, 82, 83, 85
Offset: 1
We don't have 6 because prime(1), prime(1), and prime(1+1) are all divisors.
The terms together with their prime indices begin:
1: {}
2: {1}
3: {2}
4: {1,1}
5: {3}
7: {4}
8: {1,1,1}
9: {2,2}
10: {1,3}
11: {5}
13: {6}
14: {1,4}
15: {2,3}
16: {1,1,1,1}
17: {7}
19: {8}
20: {1,1,3}
Subsets of this type are counted by
A007865 (sum-free sets).
Partitions of this type are counted by
A364345.
The squarefree case is counted by
A364346.
The non-binary version is counted by
A364350.
Without re-using parts we have complement
A364462, counted by
A237113.
-
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Intersection[prix[#],Total/@Tuples[prix[#],2]]=={}&]
A367213
Number of integer partitions of n whose length (number of parts) is not equal to the sum of any submultiset.
Original entry on oeis.org
0, 0, 1, 1, 2, 2, 5, 4, 7, 8, 12, 13, 19, 21, 29, 33, 45, 49, 67, 73, 97, 108, 139, 152, 196, 217, 274, 303, 379, 420, 523, 579, 709, 786, 960, 1061, 1285, 1423, 1714, 1885, 2265, 2498, 2966, 3280, 3881, 4268, 5049, 5548, 6507, 7170, 8391, 9194, 10744, 11778, 13677
Offset: 0
The a(3) = 1 through a(9) = 8 partitions:
(3) (4) (5) (6) (7) (8) (9)
(3,1) (4,1) (3,3) (4,3) (4,4) (5,4)
(5,1) (6,1) (5,3) (6,3)
(2,2,2) (5,1,1) (7,1) (8,1)
(4,1,1) (4,2,2) (4,4,1)
(6,1,1) (5,2,2)
(5,1,1,1) (7,1,1)
(6,1,1,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
-------------------------------------------
Triangles:
A046663 counts partitions of n without a subset-sum k, strict
A365663.
-
Table[Length[Select[IntegerPartitions[n], FreeQ[Total/@Subsets[#], Length[#]]&]], {n,0,10}]
A367225
Numbers m without a divisor whose prime indices sum to bigomega(m).
Original entry on oeis.org
3, 5, 7, 10, 11, 13, 14, 17, 19, 22, 23, 25, 26, 27, 28, 29, 31, 34, 35, 37, 38, 41, 43, 44, 46, 47, 49, 52, 53, 55, 58, 59, 61, 62, 63, 65, 67, 68, 71, 73, 74, 76, 77, 79, 82, 83, 85, 86, 88, 89, 91, 92, 94, 95, 97, 98, 99, 101, 103, 104, 106, 107, 109, 113
Offset: 1
The prime indices of 24 are {1,1,1,2} with submultiset {1,1,2} summing to 4, so 24 is not in the sequence.
The terms together with their prime indices begin:
3: {2} 29: {10} 58: {1,10}
5: {3} 31: {11} 59: {17}
7: {4} 34: {1,7} 61: {18}
10: {1,3} 35: {3,4} 62: {1,11}
11: {5} 37: {12} 63: {2,2,4}
13: {6} 38: {1,8} 65: {3,6}
14: {1,4} 41: {13} 67: {19}
17: {7} 43: {14} 68: {1,1,7}
19: {8} 44: {1,1,5} 71: {20}
22: {1,5} 46: {1,9} 73: {21}
23: {9} 47: {15} 74: {1,12}
25: {3,3} 49: {4,4} 76: {1,1,8}
26: {1,6} 52: {1,1,6} 77: {4,5}
27: {2,2,2} 53: {16} 79: {22}
28: {1,1,4} 55: {3,5} 82: {1,13}
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
-------------------------------------------
Triangles:
A046663 counts partitions of n without a subset-sum k, strict
A365663.
-
prix[n_]:=If[n==1,{}, Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100], FreeQ[Total/@prix/@Divisors[#], PrimeOmega[#]]&]
A371791
Number of biquanimous subsets of {1..n}. Sets with a subset having the same sum as the complement.
Original entry on oeis.org
1, 1, 1, 2, 4, 8, 18, 38, 82, 175, 373, 787, 1651, 3439, 7126, 14667, 30049, 61249, 124440, 251922, 508779, 1025183, 2062287, 4142644, 8312927, 16667005, 33395275, 66880828, 133892910, 267976571, 536225921, 1072842931, 2146233971, 4293248183, 8587569636, 17176654105, 34355356676, 68713584720, 137430991937, 274867311960, 549741605972, 1099492913172, 2198998307679, 4398013970156, 8796049891377, 17592130283755, 35184298506429
Offset: 0
For S = {1,3,4,6} we have {{1,6},{3,4}}, so S is counted under a(6).
The a(0) = 1 through a(6) = 18 subsets:
{} {} {} {} {} {} {}
{1,2,3} {1,2,3} {1,2,3} {1,2,3}
{1,3,4} {1,3,4} {1,3,4}
{1,2,3,4} {1,4,5} {1,4,5}
{2,3,5} {1,5,6}
{1,2,3,4} {2,3,5}
{1,2,4,5} {2,4,6}
{2,3,4,5} {1,2,3,4}
{1,2,3,6}
{1,2,4,5}
{1,2,5,6}
{1,3,4,6}
{2,3,4,5}
{2,3,5,6}
{3,4,5,6}
{1,2,3,4,6}
{1,2,4,5,6}
{2,3,4,5,6}
A371781 lists numbers with biquanimous prime signature, complement
A371782.
A371783 counts k-quanimous partitions.
-
biqQ[y_]:=MemberQ[Total/@Subsets[y],Total[y]/2];
Table[Length[Select[Subsets[Range[n]],biqQ]],{n,0,15}]
A325683
Number of maximal Golomb rulers of length n.
Original entry on oeis.org
1, 1, 1, 2, 2, 4, 2, 6, 8, 18, 16, 24, 20, 28, 42, 76, 100, 138, 168, 204, 194, 272, 276, 450, 588, 808, 992, 1578, 1612, 1998, 2166, 2680, 2732, 3834, 3910, 5716, 6818, 9450, 10524, 15504, 16640, 22268, 23754, 30430, 31498, 40644, 40294, 52442, 56344, 72972, 77184
Offset: 0
The a(1) = 1 through a(8) = 8 maximal Golomb rulers:
{0,1} {0,2} {0,1,3} {0,1,4} {0,1,5} {0,1,4,6} {0,1,3,7} {0,1,3,8}
{0,2,3} {0,3,4} {0,2,5} {0,2,5,6} {0,1,5,7} {0,1,5,8}
{0,3,5} {0,2,3,7} {0,1,6,8}
{0,4,5} {0,2,6,7} {0,2,3,8}
{0,4,5,7} {0,2,7,8}
{0,4,6,7} {0,3,7,8}
{0,5,6,8}
{0,5,7,8}
The a(1) = 1 through a(10) = 16 minimal compositions:
(1) (2) (12) (13) (14) (132) (124) (125) (126) (127)
(21) (31) (23) (231) (142) (143) (135) (136)
(32) (214) (152) (153) (154)
(41) (241) (215) (162) (163)
(412) (251) (216) (172)
(421) (341) (234) (217)
(512) (243) (253)
(521) (261) (271)
(315) (316)
(324) (352)
(342) (361)
(351) (451)
(423) (613)
(432) (631)
(513) (712)
(531) (721)
(612)
(621)
-
fasmax[y_]:=Complement[y,Union@@(Most[Subsets[#]]&/@y)];
Table[Length[fasmax[Accumulate/@Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@ReplaceList[#,{_,s__,_}:>Plus[s]]&]]],{n,0,15}]
A363226
Number of strict integer partitions of n containing some three possibly equal parts (a,b,c) such that a + b = c. A variation of sum-full strict partitions.
Original entry on oeis.org
0, 0, 0, 1, 0, 0, 2, 1, 2, 3, 5, 4, 6, 7, 11, 11, 16, 18, 26, 29, 34, 42, 51, 62, 72, 84, 101, 119, 142, 166, 191, 226, 262, 300, 354, 405, 467, 540, 623, 705, 807, 927, 1060, 1206, 1369, 1551, 1760, 1998, 2248, 2556, 2861, 3236, 3628, 4100, 4587, 5152, 5756
Offset: 0
The a(3) = 1 through a(15) = 11 partitions (A=10, B=11, C=12):
21 . . 42 421 431 63 532 542 84 643 653 A5
321 521 432 541 632 642 742 743 843
621 631 821 651 841 752 942
721 5321 921 A21 761 C21
4321 5421 5431 842 6432
6321 6421 B21 6531
7321 5432 7431
6431 7521
6521 8421
7421 9321
8321 54321
For subsets of {1..n} we have
A093971 (sum-full sets), complement
A007865.
A236912 counts sum-free partitions not re-using parts, complement
A237113.
-
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Select[Tuples[#,3],#[[1]]+#[[2]]==#[[3]]&]!={}&]],{n,0,30}]
-
from itertools import combinations_with_replacement
from collections import Counter
from sympy.utilities.iterables import partitions
def A363226(n): return sum(1 for p in partitions(n) if max(p.values(),default=0)==1 and any(q[0]+q[1]==q[2] for q in combinations_with_replacement(sorted(Counter(p).elements()),3))) # Chai Wah Wu, Sep 20 2023
A367212
Number of integer partitions of n whose length (number of parts) is equal to the sum of some submultiset.
Original entry on oeis.org
1, 1, 1, 2, 3, 5, 6, 11, 15, 22, 30, 43, 58, 80, 106, 143, 186, 248, 318, 417, 530, 684, 863, 1103, 1379, 1741, 2162, 2707, 3339, 4145, 5081, 6263, 7640, 9357, 11350, 13822, 16692, 20214, 24301, 29300, 35073, 42085, 50208, 59981, 71294, 84866, 100509, 119206
Offset: 0
The partition (3,2,1,1) has submultisets (3,1) or (2,1,1) with sum 4, so is counted under a(7).
The a(1) = 1 through a(8) = 15 partitions:
(1) (11) (21) (22) (32) (42) (52) (62)
(111) (211) (221) (321) (322) (332)
(1111) (311) (2211) (331) (431)
(2111) (3111) (421) (521)
(11111) (21111) (2221) (2222)
(111111) (3211) (3221)
(4111) (3311)
(22111) (4211)
(31111) (22211)
(211111) (32111)
(1111111) (41111)
(221111)
(311111)
(2111111)
(11111111)
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
-------------------------------------------
Triangles:
-
Table[Length[Select[IntegerPartitions[n], MemberQ[Total/@Subsets[#], Length[#]]&]], {n,0,10}]
A367214
Number of strict integer partitions of n whose length (number of parts) is equal to the sum of some submultiset.
Original entry on oeis.org
1, 1, 0, 1, 0, 1, 2, 2, 3, 4, 5, 5, 7, 8, 10, 12, 14, 17, 21, 25, 30, 36, 43, 51, 60, 71, 83, 97, 113, 132, 153, 178, 205, 238, 272, 315, 360, 413, 471, 539, 613, 698, 792, 899, 1018, 1153, 1302, 1470, 1658, 1867, 2100, 2362, 2652, 2974, 3335, 3734, 4178, 4672
Offset: 0
The strict partition (6,4,3,2,1) has submultisets {1,4} and {2,3} with sum 5 so is counted under a(16).
The a(1) = 1 through a(10) = 5 strict partitions:
(1) . (2,1) . (3,2) (4,2) (5,2) (6,2) (7,2) (8,2)
(3,2,1) (4,2,1) (4,3,1) (4,3,2) (5,3,2)
(5,2,1) (5,3,1) (6,3,1)
(6,2,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
-------------------------------------------
A240855 counts strict partitions whose length is a part, complement
A240861.
Triangles:
A365661 counts strict partitions with a subset-sum k, non-strict
A365543.
Cf.
A002865,
A126796,
A237113,
A237668,
A238628,
A363225,
A364346,
A364350,
A364533,
A365311,
A365922.
-
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&MemberQ[Total/@Subsets[#], Length[#]]&]], {n,0,30}]
Comments