A304792 -id:A304792 - cp's OEIS frontend

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

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

Gus Wiseman, Nov 07 2023

nonn

			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)

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.
Cf. A002033, A001358, A006827, A008967, A122768, A126796, A365923, A365924, A367093, A367095.

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

A367394 Number of integer partitions of n whose length is a semi-sum of the parts.

Original entry on oeis.org

0, 0, 1, 0, 1, 1, 3, 3, 6, 7, 14, 15, 25, 30, 46, 54, 80, 97, 139, 169, 229, 282, 382, 461, 607, 746, 962, 1173, 1499, 1817, 2302, 2787, 3467, 4201, 5216, 6260, 7702, 9261, 11294, 13524, 16418, 19572, 23658, 28141, 33756, 40081, 47949, 56662, 67493, 79639

Offset: 0

Gus Wiseman, Nov 19 2023

nonn

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.

			For the partition y = (3,3,2,1) we have 4 = 3 + 1, so y is counted under a(9).
The a(2) = 1 through a(10) = 14 partitions:
  (11)  .  (211)  (221)  (321)   (421)   (521)    (621)    (721)
                         (2211)  (2221)  (2222)   (3222)   (3322)
                         (3111)  (3211)  (3221)   (3321)   (3331)
                                         (3311)   (4221)   (4222)
                                         (32111)  (4311)   (4321)
                                         (41111)  (32211)  (5221)
                                                  (42111)  (5311)
                                                           (32221)
                                                           (33211)
                                                           (42211)
                                                           (43111)
                                                           (331111)
                                                           (421111)
                                                           (511111)

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum, linear combination, or semi-sum of the parts. The current sequence is starred.
             sum-full  sum-free  comb-full comb-free semi-full semi-free
            -----------------------------------------------------------
partitions:  A367212   A367213   A367218   A367219   A367394*  A367398
strict:      A367214   A367215   A367220   A367221   A367395   A367399
subsets:     A367216   A367217   A367222   A367223   A367396   A367400
ranks:       A367224   A367225   A367226   A367227   A367397   A367401
A000041 counts partitions, strict A000009.
A002865 counts partitions whose length is a part, complement A229816.
A236912 counts partitions containing no semi-sum, ranks A364461.
A237113 counts partitions containing a semi-sum, ranks A364462.
A237668 counts sum-full partitions, sum-free A237667.
A366738 counts semi-sums of partitions, strict A366741.
Triangles:
A008284 counts partitions by length, strict A008289.
A365543 counts partitions with a subset-sum k, strict A365661.
A367404 counts partitions with a semi-sum k, strict A367405.
Cf. A000700, A088809, A093971, A126796, A238628, A304792, A363225, A364534, A365541, A365924, A367402.

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

A367396 Number of subsets of {1..n} whose cardinality is the sum of two distinct elements.

Original entry on oeis.org

0, 0, 0, 1, 3, 7, 17, 40, 90, 199, 435, 939, 2007, 4258, 8976, 18817, 39263, 81595, 168969, 348820, 718134, 1474863, 3022407, 6181687, 12621135, 25727686, 52369508, 106460521, 216162987, 438431215, 888359841, 1798371648, 3637518354, 7351824439, 14848255803

Offset: 0

Gus Wiseman, Nov 21 2023

nonn

			The set s = {1,2,3,6,7,8} has the following sums of pairs of distinct elements: {3,4,5,7,8,9,10,11,13,14,15}. This does not include 6, so s is not counted under a(8).
The a(0) = 0 through a(6) = 17 subsets:
  .  .  .  {1,2,3}  {1,2,3}    {1,2,3}      {1,2,3}
                    {1,2,4}    {1,2,4}      {1,2,4}
                    {1,2,3,4}  {1,2,5}      {1,2,5}
                               {1,2,3,4}    {1,2,6}
                               {1,2,3,5}    {1,2,3,4}
                               {1,3,4,5}    {1,2,3,5}
                               {1,2,3,4,5}  {1,2,3,6}
                                            {1,3,4,5}
                                            {1,3,4,6}
                                            {1,3,5,6}
                                            {1,2,3,4,5}
                                            {1,2,3,4,6}
                                            {1,2,3,5,6}
                                            {1,2,4,5,6}
                                            {1,3,4,5,6}
                                            {2,3,4,5,6}
                                            {1,2,3,4,5,6}

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum, linear combination, or semi-sum of the parts. The current sequence is starred.
             sum-full  sum-free  comb-full comb-free semi-full semi-free
            -----------------------------------------------------------
partitions:  A367212   A367213   A367218   A367219   A367394   A367398
strict:      A367214   A367215   A367220   A367221   A367395   A367399
subsets:     A367216   A367217   A367222   A367223   A367396*  A367400
ranks:       A367224   A367225   A367226   A367227   A367397   A367401
A002865 counts partitions whose length is a part, complement A229816.
A364534 counts sum-full subsets.
A088809 and A093971 count subsets containing semi-sums.
A366738 counts semi-sums of partitions, strict A366741.
Triangles:
A365381 counts subsets with a subset summing to k, complement A366320.
A365541 counts subsets with a semi-sum k.
A367404 counts partitions with a semi-sum k, strict A367405.
Cf. A236912, A237113, A237667, A237668, A304792, A363225, A364272, A365658, A366131, A366740.

Table[Length[Select[Subsets[Range[n]],MemberQ[Total/@Subsets[#,{2}],Length[#]]&]],{n,0,10}]

from itertools import combinations
def A367396(n): return sum(1 for k in range(3,n+1) for w in (set(d) for d in combinations(range(1,n+1),k)) if any({a,k-a}<=w for a in range(1,k+1>>1))) # Chai Wah Wu, Nov 21 2023

Conjectures from Chai Wah Wu, Nov 21 2023: (Start)
a(n) = 4*a(n-1) - 5*a(n-2) + 4*a(n-3) - 5*a(n-4) + 2*a(n-5) for n > 4.
G.f.: x^3*(x - 1)/((2*x - 1)*(x^4 - 2*x^3 + x^2 - 2*x + 1)). (End)

a(18)-a(33) from Chai Wah Wu, Nov 21 2023

a(34) from Paul Muljadi, Nov 24 2023

A367397 Numbers m such that bigomega(m) is the sum of prime indices of some semiprime divisor of m.

Original entry on oeis.org

4, 12, 18, 30, 36, 40, 42, 54, 60, 66, 78, 81, 90, 100, 102, 112, 114, 120, 126, 135, 138, 140, 150, 168, 174, 180, 186, 189, 198, 210, 220, 222, 225, 234, 246, 250, 252, 258, 260, 270, 280, 282, 297, 300, 306, 315, 318, 330, 336, 340, 342, 350, 351, 352, 354

Offset: 1

Gus Wiseman, Nov 21 2023

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

These are the Heinz numbers of the partitions counted by A367394.

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum, linear combination, or semi-sum of the parts. The current sequence is starred.
             sum-full  sum-free  comb-full comb-free semi-full semi-free
            -----------------------------------------------------------
partitions:  A367212   A367213   A367218   A367219   A367394   A367398
strict:      A367214   A367215   A367220   A367221   A367395   A367399
subsets:     A367216   A367217   A367222   A367223   A367396   A367400
ranks:       A367224   A367225   A367226   A367227   A367397*  A367401
A325761 ranks partitions whose length is a part, counted by A002865.
A088809 and A093971 count subsets containing semi-sums.
A236912 counts partitions with no semi-sum of the parts, ranks A364461.
A237113 counts partitions with a semi-sum of the parts, ranks A364462.
A304792 counts subset-sums of partitions, strict A365925.
A366738 counts semi-sums of partitions, strict A366741.
Triangles:
A365381 counts subsets with a subset summing to k, complement A366320.
A365541 counts subsets with a semi-sum k.
A367404 counts partitions with a semi-sum k, strict A367405.
Cf. A000700, A229816, A237667, A237668, A238628, A363225, A364272, A365543, A365658, A365918, A366740.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],MemberQ[Total/@Subsets[prix[#],{2}],PrimeOmega[#]]&]

A367398 Number of integer partitions of n whose length is not a semi-sum of the parts.

Original entry on oeis.org

1, 1, 1, 3, 4, 6, 8, 12, 16, 23, 28, 41, 52, 71, 89, 122, 151, 200, 246, 321, 398, 510, 620, 794, 968, 1212, 1474, 1837, 2219, 2748, 3302, 4055, 4882, 5942, 7094, 8623, 10275, 12376, 14721, 17661, 20920, 25011, 29516, 35120, 41419, 49053, 57609, 68092, 79780

Offset: 0

Gus Wiseman, Nov 19 2023

nonn

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.

			For the partition y = (4,3,1) we have semi-sums {4,5,7}, which do not include 3 (the length of y), so y is counted under a(8).
The a(1) = 1 through a(8) = 16 partitions:
  (1)  (2)  (3)    (4)     (5)      (6)       (7)        (8)
            (21)   (22)    (32)     (33)      (43)       (44)
            (111)  (31)    (41)     (42)      (52)       (53)
                   (1111)  (311)    (51)      (61)       (62)
                           (2111)   (222)     (322)      (71)
                           (11111)  (411)     (331)      (332)
                                    (21111)   (511)      (422)
                                    (111111)  (4111)     (431)
                                              (22111)    (611)
                                              (31111)    (4211)
                                              (211111)   (5111)
                                              (1111111)  (22211)
                                                         (221111)
                                                         (311111)
                                                         (2111111)
                                                         (11111111)

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum, linear combination, or semi-sum of the parts. The current sequence is starred.
             sum-full  sum-free  comb-full comb-free semi-full semi-free
            -----------------------------------------------------------
partitions:  A367212   A367213   A367218   A367219   A367394   A367398*
strict:      A367214   A367215   A367220   A367221   A367395   A367399
subsets:     A367216   A367217   A367222   A367223   A367396   A367400
ranks:       A367224   A367225   A367226   A367227   A367397   A367401
A000041 counts partitions, strict A000009.
A002865 counts partitions whose length is a part, complement A229816.
A236912 counts partitions containing no semi-sum, ranks A364461.
A237113 counts partitions containing a semi-sum, ranks A364462.
A237667 counts sum-free partitions, sum-full A237668.
A366738 counts semi-sums of partitions, strict A366741.
A367402 counts partitions with covering semi-sums, complement A367403.
Triangles:
A008284 counts partitions by length, strict A008289.
A365541 counts subsets with a semi-sum k.
A367404 counts partitions with a semi-sum k, strict A367405.
Cf. A000700, A126796, A304792, A363225, A364272, A365543.

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

A367400 Number of subsets of {1..n} whose cardinality is not the sum of two distinct elements.

Original entry on oeis.org

1, 2, 4, 7, 13, 25, 47, 88, 166, 313, 589, 1109, 2089, 3934, 7408, 13951, 26273, 49477, 93175, 175468, 330442, 622289, 1171897, 2206921, 4156081, 7826746, 14739356, 27757207, 52272469, 98439697, 185381983, 349112000, 657448942, 1238110153

Offset: 0

Gus Wiseman, Nov 21 2023

			The set s = {1,2,3,6,7,8} has the following sums of pairs of distinct elements: {3,4,5,7,8,9,10,11,13,14,15}. This does not include 6, so s is counted under a(8).
The a(0) = 1 through a(4) = 13 subsets:
  {}  {}   {}     {}     {}
      {1}  {1}    {1}    {1}
           {2}    {2}    {2}
           {1,2}  {3}    {3}
                  {1,2}  {4}
                  {1,3}  {1,2}
                  {2,3}  {1,3}
                         {1,4}
                         {2,3}
                         {2,4}
                         {3,4}
                         {1,3,4}
                         {2,3,4}

The version containing n appears to be A112575.
The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum, linear combination, or semi-sum of the parts. The current sequence is starred.
             sum-full  sum-free  comb-full comb-free semi-full semi-free
            -----------------------------------------------------------
partitions:  A367212   A367213   A367218   A367219   A367394   A367398
strict:      A367214   A367215   A367220   A367221   A367395   A367399
subsets:     A367216   A367217   A367222   A367223   A367396   A367400*
ranks:       A367224   A367225   A367226   A367227   A367397   A367401
A002865 counts partitions whose length is a part, complement A229816.
A364534 counts sum-full subsets.
A088809 and A093971 count subsets containing semi-sums.
A236912 counts partitions with no semi-sum of the parts, ranks A364461.
A366738 counts semi-sums of partitions, strict A366741.
Triangles:
A365381 counts subsets with a subset summing to k, complement A366320.
A365541 counts subsets with a semi-sum k.
A367404 counts partitions with a semi-sum k, strict A367405.
Cf. A237113, A237667, A238628, A304792, A363225, A364272, A365543, A365658, A365918, A366131, A366740.

Table[Length[Select[Subsets[Range[n]], FreeQ[Total/@Subsets[#, {2}], Length[#]]&]], {n,0,10}]

from itertools import combinations
def A367400(n): return (n*(n+1)>>1)+1+sum(1 for k in range(3,n+1) for w in (set(d) for d in combinations(range(1,n+1),k)) if not any({a,k-a}<=w for a in range(1,k+1>>1))) # Chai Wah Wu, Nov 21 2023

Conjectures from Chai Wah Wu, Nov 21 2023: (Start)
a(n) = 2*a(n-1) - a(n-2) + 2*a(n-3) - a(n-4) for n > 3.
G.f.: (-x^3 + x^2 + 1)/(x^4 - 2*x^3 + x^2 - 2*x + 1). (End)

a(18)-a(33) from Chai Wah Wu, Nov 21 2023

A367401 Numbers m such that bigomega(m) is not the sum of prime indices of any semiprime divisor of m.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77

Offset: 1

Gus Wiseman, Nov 21 2023

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

These are the Heinz numbers of the partitions counted by A367398.

			60 has semiprime divisor 10 with prime indices {1,3} summing to 4 = bigomega(60), so 60 is not in the sequence.
The terms together with their prime indices begin:
   1: {}
   2: {1}
   3: {2}
   5: {3}
   6: {1,2}
   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}

The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum, linear combination, or semi-sum of the parts. The current sequence is starred.
             sum-full  sum-free  comb-full comb-free semi-full semi-free
            -----------------------------------------------------------
partitions:  A367212   A367213   A367218   A367219   A367394   A367398
strict:      A367214   A367215   A367220   A367221   A367395   A367399
subsets:     A367216   A367217   A367222   A367223   A367396   A367400
ranks:       A367224   A367225   A367226   A367227   A367397   A367401*
A002865 counts partitions w/ length, complement A229816, ranks A325761.
A088809 and A093971 count subsets containing semi-sums.
A236912 counts partitions with no semi-sum of the parts, ranks A364461.
A237113 counts partitions with a semi-sum of the parts, ranks A364462.
A366738 counts semi-sums of partitions, strict A366741.
Triangles:
A365381 counts subsets with a subset summing to k, complement A366320.
A365541 counts subsets with a semi-sum k.
A367404 counts partitions with a semi-sum k, strict A367405.
Cf. A000700, A237667, A238628, A304792, A363225, A364272, A365543, A365658, A365918, A366740.

prix[n_]:=If[n==1,{}, Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100], FreeQ[Total/@Subsets[prix[#],{2}], PrimeOmega[#]]&]

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

Clark Kimberling, Feb 05 2014

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

Clark Kimberling, Table of n, a(n) for n = 1..1000

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.
Cf. A002219, A006827, A108796, A108917, A122768, A275972, A299701, A304792, A364272.

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 *)

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

A347708 Number of distinct possible alternating products of odd-length factorizations of n.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 2, 1, 3, 1, 1, 1, 3, 1, 1, 1, 3, 1, 2, 1, 2, 2, 1, 1, 4, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 1, 5, 1, 1, 2, 3, 1, 2, 1, 2, 1, 2, 1, 5, 1, 1, 2, 2, 1, 2, 1, 4, 2, 1, 1, 5, 1, 1, 1, 3, 1, 3, 1, 2, 1, 1, 1, 5, 1, 2, 2, 3, 1, 2, 1, 3, 2

Offset: 1

Gus Wiseman, Oct 11 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
Note that it is sufficient to look at only length-1 and length-3 factorizations; cf. A347709.

			Representative factorizations for each of the a(180) = 7 alternating products:
  (2*2*3*3*5) -> 5
     (2*2*45) -> 45
     (2*3*30) -> 20
     (2*5*18) -> 36/5
     (2*9*10) -> 20/9
     (3*4*15) -> 45/4
        (180) -> 180

Antti Karttunen, Table of n, a(n) for n = 1..65537

The version for partitions is A028310, reverse A347707.
Positions of 1's appear to be A037143 \ {1}.
The even-length version for n > 1 is A072670, strict A211159.
Counting only integers appears to give A293234, with evens A046951.
This is the odd-length case of A347460, reverse A038548.
The any-length version for partitions is A347461, reverse A347462.
The length-3 case is A347709.
A001055 counts factorizations (strict A045778, ordered A074206).
A056239 adds up prime indices, row sums of A112798.
A276024 counts distinct positive subset-sums of partitions.
A292886 counts knapsack factorizations, by sum A293627.
A301957 counts distinct subset-products of prime indices.
A304792 counts distinct subset-sums of partitions.
A347050 = factorizations w/ an alternating permutation, complement A347706.
A347441 counts odd-length factorizations with integer alternating product.
Cf. A002033, A103919, A108917, A119620, A325770, A339846, A339890, A347437, A347438, A347439, A347440, A347442, A347456.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Union[altprod/@Select[facs[n],OddQ[Length[#]]&]]],{n,100}]

altprod(facs) = prod(i=1,#facs,facs[i]^((-1)^(i-1)));
A347708aux(n, m=n, facs=List([])) = if(1==n, if((#facs)%2, altprod(facs), 0), my(newfacs, r, rats=List([])); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); r = A347708aux(n/d, d, newfacs); if(r, rats = concat(rats,r)))); (rats));
A347708(n) = if(1==n,0,#Set(A347708aux(n))); \\ Antti Karttunen, Jan 29 2025

Conjecture: For n > 1, a(n) = 1 + A347460(n) - A038548(n) + A072670(n).

Data section extended to a(105) by Antti Karttunen, Jan 29 2025

A365919 Heinz numbers of integer partitions with the same number of distinct positive subset-sums as distinct non-subset-sums.

Original entry on oeis.org

1, 3, 9, 21, 22, 27, 63, 76, 81, 117, 147, 175, 186, 189, 243, 248, 273, 286, 290, 322, 345, 351, 399, 418, 441, 513, 516, 567, 688, 715, 729, 819, 1029, 1053, 1062, 1156, 1180, 1197, 1323, 1375, 1416, 1484, 1521, 1539, 1701, 1827, 1888, 1911, 2068, 2115, 2130

Offset: 1

Gus Wiseman, Sep 25 2023

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The terms together with their prime indices begin:
     1: {}
     3: {2}
     9: {2,2}
    21: {2,4}
    22: {1,5}
    27: {2,2,2}
    63: {2,2,4}
    76: {1,1,8}
    81: {2,2,2,2}
   117: {2,2,6}
   147: {2,4,4}
   175: {3,3,4}
   186: {1,2,11}
   189: {2,2,2,4}
   243: {2,2,2,2,2}

The LHS is A304793, counted by A365658, with empty sets A299701.
The RHS is A325799, counted by A365923 (strict A365545).
A046663 counts partitions without a subset summing to k, strict A365663.
A056239 adds up prime indices, row sums of A112798.
A276024 counts positive subset-sums of partitions, strict A284640.
A325781 ranks complete partitions, counted by A126796.
A365830 ranks incomplete partitions, counted by A365924.
A365918 counts non-subset-sums of partitions, strict A365922.
Cf. A001223, A005117, A006827, A073491, A188431, A304792, A365831.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
smu[y_]:=Union[Total/@Rest[Subsets[y]]];
nmz[y_]:=Complement[Range[Total[y]],Total/@Subsets[y]];
Select[Range[100],Length[smu[prix[#]]]==Length[nmz[prix[#]]]&]

Positive integers k such that A304793(k) = A325799(k).

cp's OEIS Frontend

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

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A367394 Number of integer partitions of n whose length is a semi-sum of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A367396 Number of subsets of {1..n} whose cardinality is the sum of two distinct elements.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A367397 Numbers m such that bigomega(m) is the sum of prime indices of some semiprime divisor of m.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A367398 Number of integer partitions of n whose length is not a semi-sum of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A367400 Number of subsets of {1..n} whose cardinality is not the sum of two distinct elements.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A367401 Numbers m such that bigomega(m) is not the sum of prime indices of any semiprime divisor of m.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A347708 Number of distinct possible alternating products of odd-length factorizations of n.

Views

Author

Keywords