A320340 -id:A320340 - cp's OEIS frontend

A364349 Number of strict integer partitions of n containing the sum of no subset of the parts.

1, 1, 1, 2, 2, 3, 3, 5, 5, 8, 7, 11, 11, 15, 14, 21, 21, 28, 29, 38, 38, 51, 50, 65, 68, 82, 83, 108, 106, 130, 136, 163, 168, 206, 210, 248, 266, 307, 322, 381, 391, 457, 490, 553, 582, 675, 703, 797, 854, 952, 1000, 1147, 1187, 1331, 1437, 1564, 1656, 1869

Offset: 0

Gus Wiseman, Jul 29 2023

nonn

First differs from A275972 in counting (7,5,3,1), which is not knapsack.

			The partition y = (7,5,3,1) has no subset with sum in y, so is counted under a(16).
The partition y = (15,8,4,2,1) has subset {1,2,4,8} with sum in y, so is not counted under a(31).
The a(1) = 1 through a(9) = 8 partitions:
  (1)  (2)  (3)    (4)    (5)    (6)    (7)      (8)      (9)
            (2,1)  (3,1)  (3,2)  (4,2)  (4,3)    (5,3)    (5,4)
                          (4,1)  (5,1)  (5,2)    (6,2)    (6,3)
                                        (6,1)    (7,1)    (7,2)
                                        (4,2,1)  (5,2,1)  (8,1)
                                                          (4,3,2)
                                                          (5,3,1)
                                                          (6,2,1)

For subsets of {1..n} we have A151897, complement A364534.
The non-strict version is A237667, ranked by A364531.
The complement in strict partitions is counted by A364272.
The linear combination-free version is A364350.
The binary version is A364533, allowing re-used parts A364346.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A108917 counts knapsack partitions, strict A275972.
A236912 counts sum-free partitions (not re-using parts), complement A237113.
A323092 counts double-free partitions, ranks A320340.
Cf. A007865, A025065, A085489, A093971, A111133, A240861, A320347, A325862, A363226, A364345.

Table[Length[Select[IntegerPartitions[n],Function[ptn,UnsameQ@@ptn&&Select[Subsets[ptn,{2,Length[ptn]}],MemberQ[ptn,Total[#]]&]=={}]]],{n,0,30}]

A050291 Number of double-free subsets of {1, 2, ..., n}.

Original entry on oeis.org

1, 2, 3, 6, 10, 20, 30, 60, 96, 192, 288, 576, 960, 1920, 2880, 5760, 9360, 18720, 28080, 56160, 93600, 187200, 280800, 561600, 898560, 1797120, 2695680, 5391360, 8985600, 17971200, 26956800, 53913600, 87091200, 174182400, 261273600, 522547200, 870912000

Offset: 0

Eric W. Weisstein

A set is double-free if it does not contain both x and 2x.

So these are equally "half-free" subsets. - Gus Wiseman, Jul 08 2019

			From _Gus Wiseman_, Jul 08 2019: (Start)
The a(0) = 1 through a(5) = 20 double-free subsets:
  {}  {}   {}   {}     {}       {}
      {1}  {1}  {1}    {1}      {1}
           {2}  {2}    {2}      {2}
                {3}    {3}      {3}
                {1,3}  {4}      {4}
                {2,3}  {1,3}    {5}
                       {1,4}    {1,3}
                       {2,3}    {1,4}
                       {3,4}    {1,5}
                       {1,3,4}  {2,3}
                                {2,5}
                                {3,4}
                                {3,5}
                                {4,5}
                                {1,3,4}
                                {1,3,5}
                                {1,4,5}
                                {2,3,5}
                                {3,4,5}
                                {1,3,4,5}
(End)

Wang, E. T. H. ``On Double-Free Sets of Integers.'' Ars Combin. 28, 97-100, 1989.

Alois P. Heinz, Table of n, a(n) for n = 0..4030 (terms n = 1..400 from T. D. Noe)
Steven R. Finch, Triple-Free Sets of Integers [From Steven Finch, Apr 20 2019]
Eric Weisstein's World of Mathematics, Double-Free Set.

Cf. A000045, A007814, A050292-A050296.

Cf. A007865, A103580, A120641, A308546, A320340, A323092, A326083, A326115.

a:= proc(n) option remember; `if`(n=0, 1, (F-> (p-> a(n-1)*F(p+3)
      /F(p+2))(padic[ordp](n, 2)))(j-> (<<0|1>, <1|1>>^j)[1, 2]))
    end:
seq(a(n), n=0..50);  # Alois P. Heinz, Jan 16 2019

a[n_] := a[n] = (b = IntegerExponent[2n, 2]; a[n-1]*Fibonacci[b+2]/Fibonacci[b+1]); a[1]=2; Table[a[n], {n, 1, 34}] (* Jean-François Alcover, Oct 10 2012, from first formula *)
Table[Length[Select[Subsets[Range[n]],Intersection[#,#/2]=={}&]],{n,0,10}] (* Gus Wiseman, Jul 08 2019 *)

first(n)=my(v=vector(n)); v[1]=2; for(k=2,n, v[k]=v[k-1]*fibonacci(valuation(k,2)+3)/fibonacci(valuation(k,2)+2)); v \\ Charles R Greathouse IV, Feb 07 2017

a(n) = a(n-1)*Fibonacci(b(2n)+2)/Fibonacci(b(2n)+1), Fibonacci = A000045, b = A007814.

a(n) = 2^n - A088808(n). - Reinhard Zumkeller, Oct 19 2003

Extended with formula by Christian G. Bower, Sep 15 1999

a(0)=1 prepended by Alois P. Heinz, Jan 16 2019

A350842 Number of integer partitions of n with no difference -2.

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 9, 12, 16, 24, 30, 40, 54, 69, 89, 118, 146, 187, 239, 297, 372, 468, 575, 711, 880, 1075, 1314, 1610, 1947, 2359, 2864, 3438, 4135, 4973, 5936, 7090, 8466, 10044, 11922, 14144, 16698, 19704, 23249, 27306, 32071, 37639, 44019, 51457, 60113

Offset: 0

Gus Wiseman, Jan 20 2022

nonn

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (211)   (41)     (51)      (52)
                    (1111)  (221)    (222)     (61)
                            (2111)   (321)     (322)
                            (11111)  (411)     (511)
                                     (2211)    (2221)
                                     (21111)   (3211)
                                     (111111)  (4111)
                                               (22111)
                                               (211111)
                                               (1111111)

Gus Wiseman, Sequences counting and ranking partitions and compositions by their differences and quotients.

Heinz number rankings are in parentheses below.
The version for no difference 0 is A000009.
The version for subsets of prescribed maximum is A005314.
The version for all differences < -2 is A025157, non-strict A116932.
The version for all differences > -2 is A034296, strict A001227.
The opposite version is A072670.
The version for no difference -1 is A116931 (A319630), strict A003114.
The multiplicative version is A350837 (A350838), strict A350840.
The strict case is A350844.
The complement for quotients is counted by A350846 (A350845).
A000041 = integer partitions.
A027187 = partitions of even length.
A027193 = partitions of odd length (A026424).
A323092 = double-free partitions (A320340), strict A120641.
A325534 = separable partitions (A335433).
A325535 = inseparable partitions (A335448).
A350839 = partitions with a gap and conjugate gap (A350841).
Cf. A000070, A000929, A001511, A003242, A007359, A018819, A040039, A045690, A045691, A101417, A154402, A323093.

Table[Length[Select[IntegerPartitions[n],FreeQ[Differences[#],-2]&]],{n,0,30}]

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

Gus Wiseman, Jul 22 2023

nonn

			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.
For sums of any length > 1 we have A364349, non-strict A237667.
The complement is counted by A363226, non-strict A363225.
The non-strict version is A364345, ranks A364347, complement A364348.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A236912 counts sum-free partitions not re-using parts, complement A237113.
A323092 counts double-free partitions, ranks A320340.
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

Gus Wiseman, Jul 26 2023

nonn

Or numbers without any prime index equal to the sum of two others, allowing re-used parts.

Also Heinz numbers of a type of sum-free partitions counted by A364345.

			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 complement is A364348, counted by A363225.
The non-binary version is counted by A364350.
Without re-using parts we have A364461, counted by A236912.
Without re-using parts we have complement A364462, counted by A237113.
A001222 counts prime indices.
A108917 counts knapsack partitions, ranks A299702.
A112798 lists prime indices, sum A056239.
A323092 counts double-free partitions, ranks A320340.
Cf. A093971, A237667, A288728, A325862, A326083, A363226, A364531.

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

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

Gus Wiseman, Jul 19 2023

nonn

Note that, by this definition, the partition (2,1) is sum-full, because (1,1,2) is a triple satisfying a + b = c.

			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.
The non-strict version is A363225, ranks A364348 (complement A364347).
The complement is counted by A364346, non-strict A364345.
A000041 counts partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A236912 counts sum-free partitions not re-using parts, complement A237113.
A323092 counts double-free partitions, ranks A320340.
Cf. A002865, A025065, A026905, A085489, A108917, A237667, A237668 A240861, A275972, A320347, A326083.

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

a(31)-a(56) from Chai Wah Wu, Sep 20 2023

A120641 Number of partitions of n into distinct double-free parts.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 2, 4, 5, 5, 7, 8, 10, 12, 14, 17, 20, 24, 26, 31, 38, 45, 50, 57, 68, 77, 88, 101, 116, 132, 151, 170, 194, 222, 247, 281, 318, 356, 399, 452, 509, 567, 635, 709, 794, 885, 983, 1094, 1222, 1358, 1504, 1671, 1854, 2050, 2264, 2505, 2771, 3060, 3370

Offset: 0

Reinhard Zumkeller, Aug 17 2006

nonn

			a(10) = #{10, 9+1, 8+2, 7+3, 6+4, 5+4+1, 5+3+2} = 7;
a(11) = #{11, 10+1, 9+2, 8+3, 7+4, 7+3+1, 6+5, 6+4+1} = 8.

Alois P. Heinz, Table of n, a(n) for n = 0..400
Eric Weisstein's World of Mathematics, Double-Free Set

Cf. A000009, A050291, A101417, A303362, A320340, A323092, A323093, A323094.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Intersection[#,2*#]=={}&]],{n,30}] (* Gus Wiseman, Jan 07 2019 *)

a(0)=1 prepended by Alois P. Heinz, Jan 16 2019

A363260 Number of integer partitions of n with parts disjoint from first differences of parts, meaning no part is the difference of two consecutive parts.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 7, 10, 13, 17, 21, 28, 35, 46, 57, 70, 87, 110, 130, 165, 198, 238, 285, 349, 410, 498, 583, 702, 819, 983, 1136, 1353, 1570, 1852, 2137, 2520, 2898, 3390, 3891, 4540, 5191, 6028, 6889, 7951, 9082, 10450, 11884, 13650, 15508, 17728, 20113

Offset: 0

Gus Wiseman, Jul 19 2023

nonn

			The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (32)     (33)      (43)       (44)
                    (31)    (41)     (51)      (52)       (53)
                    (1111)  (311)    (222)     (61)       (62)
                            (11111)  (411)     (322)      (71)
                                     (3111)    (331)      (332)
                                     (111111)  (511)      (611)
                                               (4111)     (2222)
                                               (31111)    (3311)
                                               (1111111)  (5111)
                                                          (41111)
                                                          (311111)
                                                          (11111111)

For length instead of differences we have A229816, strict A240861.
For all differences of pairs parts we have A364345.
For subsets of {1..n} instead of partitions we have A364463.
The strict case is A364464.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A323092 counts double-free partitions, ranks A320340.
A325325 counts partitions with distinct first-differences.
Cf. A002865, A025065, A108917, A236912, A237113, A237667, A320347, A326083, A363225, A364347.

Table[Length[Select[IntegerPartitions[n],Intersection[#,-Differences[#]]=={}&]],{n,0,30}]

from collections import Counter
from sympy.utilities.iterables import partitions
def A363260(n): return sum(1 for s,p in map(lambda x: (x[0],tuple(sorted(Counter(x[1]).elements()))), partitions(n,size=True)) if set(p).isdisjoint({p[i+1]-p[i] for i in range(s-1)})) # Chai Wah Wu, Sep 26 2023

A308546 Number of double-closed subsets of {1..n}.

Original entry on oeis.org

1, 2, 3, 6, 8, 16, 24, 48, 60, 120, 180, 360, 480, 960, 1440, 2880, 3456, 6912, 10368, 20736, 27648, 55296, 82944, 165888, 207360, 414720, 622080, 1244160, 1658880, 3317760, 4976640, 9953280, 11612160, 23224320, 34836480, 69672960, 92897280

Offset: 0

Gus Wiseman, Jun 06 2019

nonn

These are subsets containing twice any element whose double is <= n.
Also the number of subsets of {1..n} containing half of every element that is even. For example, the a(6) = 24 subsets are:
  {}  {1}  {1,2}  {1,2,3}  {1,2,3,4}  {1,2,3,4,5}  {1,2,3,4,5,6}
      {3}  {1,3}  {1,2,4}  {1,2,3,5}  {1,2,3,4,6}
      {5}  {1,5}  {1,2,5}  {1,2,3,6}  {1,2,3,5,6}
           {3,5}  {1,3,5}  {1,2,4,5}
           {3,6}  {1,3,6}  {1,3,5,6}
                  {3,5,6}

			The a(6) = 24 subsets:
  {}  {4}  {2,4}  {1,2,4}  {1,2,4,5}  {1,2,3,4,6}  {1,2,3,4,5,6}
      {5}  {3,6}  {2,4,5}  {1,2,4,6}  {1,2,4,5,6}
      {6}  {4,5}  {2,4,6}  {2,3,4,6}  {2,3,4,5,6}
           {4,6}  {3,4,6}  {2,4,5,6}
           {5,6}  {3,5,6}  {3,4,5,6}
                  {4,5,6}

Charlie Neder, Table of n, a(n) for n = 0..500

Cf. A007865, A050291, A103580, A120641, A320340, A323092, A325864, A326020, A326076, A326083, A326115.

Table[Length[Select[Subsets[Range[n]],SubsetQ[#,Select[2*#,#<=n&]]&]],{n,0,10}]

From Charlie Neder, Jun 10 2019: (Start)
a(n) = Product_{k < n/2} (2 + floor(log_2(n/(2k+1)))).
a(0) = 1, a(n) = a(n-1) * (1 + 1/A001511(n)). (End)

a(21)-a(36) from Charlie Neder, Jun 10 2019

A364461 Positive integers such that if prime(a)*prime(b) is a divisor, prime(a+b) is not.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 27 2023

nonn

Also Heinz numbers of a type of sum-free partitions not allowing re-used parts, counted by A236912.

			The prime indices of 198 are {1,2,2,5}, which is sum-free even though it is not knapsack (A299702, A299729), so 198 is in the sequence.

Subsets of this type are counted by A085489, with re-usable parts A007865.
Subsets not of this type are counted by A093971, w/ re-usable parts A088809.
Partitions of this type are counted by A236912.
Allowing parts to be re-used gives A364347, counted by A364345.
The complement allowing parts to be re-used is A364348, counted by A363225.
The non-binary version allowing re-used parts is counted by A364350.
The complement is A364462, counted by A237113.
The non-binary version is A364531, counted by A237667, complement A364532.
A001222 counts prime indices.
A108917 counts knapsack partitions, ranks A299702.
A112798 lists prime indices, sum A056239.
Cf. A151897, A288728, A320340, A325862, A325864, A326083, A363226, A364346.

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

cp's OEIS Frontend

A364349 Number of strict integer partitions of n containing the sum of no subset of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A050291 Number of double-free subsets of {1, 2, ..., n}.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A350842 Number of integer partitions of n with no difference -2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

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.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

A364347 Numbers k > 0 such that if prime(a) and prime(b) both divide k, then prime(a+b) does not.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

Extensions

A120641 Number of partitions of n into distinct double-free parts.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A363260 Number of integer partitions of n with parts disjoint from first differences of parts, meaning no part is the difference of two consecutive parts.

Views

Author

Keywords

Examples

Crossrefs

Programs