A326076 -id:A326076 - cp's OEIS frontend

A326083 Number of subsets of {1..n} containing all of their pairwise sums <= n.

1, 2, 3, 5, 7, 12, 16, 27, 37, 58, 80, 131, 171, 277, 380, 580, 785, 1250, 1655, 2616, 3516, 5344, 7257, 11353, 14931, 23204, 31379, 47511, 63778, 98681, 130503, 201357, 270038, 407429, 548090, 840171, 1110429, 1701872, 2284325, 3440337, 4601656

Offset: 0

Gus Wiseman, Jun 05 2019

nonn

The summands are allowed to be equal. The case where they must be distinct is A326080. If A007865 counts sum-free sets, this sequence counts sum-closed sets. This is different from sum-full sets (A093971).
From Gus Wiseman, Jul 08 2019: (Start)
Also the number of subsets of {1..n} containing no sum of any multiset of the elements. For example, the a(0) = 1 through a(6) = 16 subsets are:
  {}  {}   {}   {}     {}     {}       {}
      {1}  {1}  {1}    {1}    {1}      {1}
           {2}  {2}    {2}    {2}      {2}
                {3}    {3}    {3}      {3}
                {2,3}  {4}    {4}      {4}
                       {2,3}  {5}      {5}
                       {3,4}  {2,3}    {6}
                              {2,5}    {2,3}
                              {3,4}    {2,5}
                              {3,5}    {3,4}
                              {4,5}    {3,5}
                              {3,4,5}  {4,5}
                                       {4,6}
                                       {5,6}
                                       {3,4,5}
                                       {4,5,6}
(End)

			The a(0) = 1 through a(6) = 16 subsets:
  {}  {}   {}     {}       {}         {}           {}
      {1}  {2}    {2}      {3}        {3}          {4}
           {1,2}  {3}      {4}        {4}          {5}
                  {2,3}    {2,4}      {5}          {6}
                  {1,2,3}  {3,4}      {2,4}        {3,6}
                           {2,3,4}    {3,4}        {4,5}
                           {1,2,3,4}  {3,5}        {4,6}
                                      {4,5}        {5,6}
                                      {2,4,5}      {2,4,6}
                                      {3,4,5}      {3,4,6}
                                      {2,3,4,5}    {3,5,6}
                                      {1,2,3,4,5}  {4,5,6}
                                                   {2,4,5,6}
                                                   {3,4,5,6}
                                                   {2,3,4,5,6}
                                                   {1,2,3,4,5,6}
The a(7) = 27 subsets:
  {}  {4}  {36}  {246}  {2467}  {24567}  {234567}  {1234567}
      {5}  {45}  {356}  {3467}  {34567}
      {6}  {46}  {367}  {3567}
      {7}  {47}  {456}  {4567}
           {56}  {457}
           {57}  {467}
           {67}  {567}

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..100

Cf. A007865, A050291, A051026, A054519, A085489, A093971, A103580, A120641, A151897, A326020, A326023, A326076, A326080.

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

For n > 0, a(n) = A103580(n) + 1.

A051026 Number of primitive subsequences of {1, 2, ..., n}.

Original entry on oeis.org

1, 2, 3, 5, 7, 13, 17, 33, 45, 73, 103, 205, 253, 505, 733, 1133, 1529, 3057, 3897, 7793, 10241, 16513, 24593, 49185, 59265, 109297, 163369, 262489, 355729, 711457, 879937, 1759873, 2360641, 3908545, 5858113, 10534337, 12701537, 25403073, 38090337, 63299265, 81044097, 162088193, 205482593, 410965185, 570487233, 855676353

Offset: 0

Eric W. Weisstein

a(n) counts all subsequences of {1, ..., n} in which no term divides any other. If n is a prime a(n) = 2*a(n-1)-1 because for each subsequence s counted by a(n-1) two different subsequences are counted by a(n): s and s,n. There is only one exception: 1,n is not a primitive subsequence because 1 divides n. For all n>1: a(n) < 2*a(n-1). - Alois P. Heinz, Mar 07 2011

Maximal primitive subsets are counted by A326077. - Gus Wiseman, Jun 07 2019

			a(4) = 7, the primitive subsequences (including the empty sequence) are: (), (1), (2), (3), (4), (2,3), (3,4).
a(5) = 13 = 2*7-1, the primitive subsequences are: (), (5), (1), (2), (2,5), (3), (3,5), (4), (4,5), (2,3), (2,3,5), (3,4), (3,4,5).
From _Gus Wiseman_, Jun 07 2019: (Start)
The a(0) = 1 through a(5) = 13 primitive (pairwise indivisible) subsets:
  {}  {}   {}   {}     {}     {}
      {1}  {1}  {1}    {1}    {1}
           {2}  {2}    {2}    {2}
                {3}    {3}    {3}
                {2,3}  {4}    {4}
                       {2,3}  {5}
                       {3,4}  {2,3}
                              {2,5}
                              {3,4}
                              {3,5}
                              {4,5}
                              {2,3,5}
                              {3,4,5}
a(n) is also the number of subsets of {1..n} containing all of their pairwise products <= n as well as any quotients of divisible elements. For example, the a(0) = 1 through a(5) = 13 subsets are:
  {}  {}   {}     {}       {}         {}
      {1}  {1}    {1}      {1}        {1}
           {1,2}  {1,2}    {1,3}      {1,3}
                  {1,3}    {1,4}      {1,4}
                  {1,2,3}  {1,2,4}    {1,5}
                           {1,3,4}    {1,2,4}
                           {1,2,3,4}  {1,3,4}
                                      {1,3,5}
                                      {1,4,5}
                                      {1,2,3,4}
                                      {1,2,4,5}
                                      {1,3,4,5}
                                      {1,2,3,4,5}
Also the number of subsets of {1..n} containing all of their multiples <= n. For example, the a(0) = 1 through a(5) = 13 subsets are:
  {}  {}   {}     {}       {}         {}
      {1}  {2}    {2}      {3}        {3}
           {1,2}  {3}      {4}        {4}
                  {2,3}    {2,4}      {5}
                  {1,2,3}  {3,4}      {2,4}
                           {2,3,4}    {3,4}
                           {1,2,3,4}  {3,5}
                                      {4,5}
                                      {2,3,4}
                                      {2,4,5}
                                      {3,4,5}
                                      {2,3,4,5}
                                      {1,2,3,4,5}
(End)
From _Gus Wiseman_, Mar 12 2024: (Start)
Also the number of subsets of {1..n} containing all divisors of the elements. For example, the a(0) = 1 through a(6) = 17 subsets are:
  {}  {}   {}     {}       {}         {}
      {1}  {1}    {1}      {1}        {1}
           {1,2}  {1,2}    {1,2}      {1,2}
                  {1,3}    {1,3}      {1,3}
                  {1,2,3}  {1,2,3}    {1,5}
                           {1,2,4}    {1,2,3}
                           {1,2,3,4}  {1,2,4}
                                      {1,2,5}
                                      {1,3,5}
                                      {1,2,3,4}
                                      {1,2,3,5}
                                      {1,2,4,5}
                                      {1,2,3,4,5}
(End)

Blanchet-Sadri, Francine. Algorithmic combinatorics on partial words. Chapman & Hall/CRC, Boca Raton, FL, 2008. ii+385 pp. ISBN: 978-1-4200-6092-8; 1-4200-6092-9 MR2384993 (2009f:68142). See p. 320. - N. J. A. Sloane, Apr 06 2012

Juliana Couras, Ricardo Jesus, and Tomás Oliveira e Silva, Table of n, a(n) for n = 0..800 (terms up to n=80 from Alois P. Heinz)
Marcel K. Goh and Jonah Saks, Alternating-sum statistics for certain sets of integers, arXiv:2206.12535 [math.CO], 2022.
Nathan McNew, Counting primitive subsets and other statistics of the divisor graph of {1,2,..,n}, arXiv:1808.04923 [math.NT], 2018.
Richárd Palincza, Counting type and extremal problems from Arithmetic Combinatorics, Ph. D. Thesis, Budapest Univ. Tech. Econ. (Hungary, 2024).
Eric Weisstein's World of Mathematics, Primitive Sequence

Cf. A007865, A054519, A096827, A103580, A303362, A305148.
Cf. A326023, A326076, A326077, A326081, A326082, A326083, A326117.
Cf. A037031, A051026, A355740, A368110, A370585.

with(numtheory):
b:= proc(s) option remember; local n;
      n:= max(s[]);
      `if`(n<0, 1, b(s minus {n}) + b(s minus divisors(n)))
    end:
bb:= n-> b({$2..n} minus divisors(n)):
sb:= proc(n) option remember; `if`(n<2, 0, bb(n) + sb(n-1)) end:
a:= n-> `if`(n=0, 1, `if`(isprime(n), 2*a(n-1)-1, 2+sb(n))):
seq(a(n), n=0..40);  # Alois P. Heinz, Mar 07 2011

b[s_] := b[s] = With[{n=Max[s]}, If[n < 0, 1, b[Complement[s, {n}]] + b[Complement[s, Divisors[n]]]]];
bb[n_] := b[Complement[Range[2, n], Divisors[n]]];
sb[n_] := sb[n] = If[n < 2, 0, bb[n] + sb[n-1]];
a[n_] := If[n == 0, 1, If[PrimeQ[n], 2a[n-1] - 1, 2 + sb[n]]]; Table[a[n], {n, 0, 37}]
(* Jean-François Alcover, Jul 27 2011, converted from Maple *)
Table[Length[Select[Subsets[Range[n]], SubsetQ[#,Select[Union@@Table[#*i,{i,n}],#<=n&]]&]],{n,10}] (* Gus Wiseman, Jun 07 2019 *)
Table[Length[Select[Subsets[Range[n]], #==Union@@Divisors/@#&]],{n,0,10}] (* Gus Wiseman, Mar 12 2024 *)

More terms from David Wasserman, May 02 2002

a(32)-a(37) from Donovan Johnson, Aug 11 2010

A326080 Number of subsets of {1..n} containing the sum of every subset whose sum is <= n.

Original entry on oeis.org

1, 2, 4, 7, 12, 19, 31, 47, 73, 110, 168, 247, 375, 546, 817, 1193, 1769, 2552, 3791, 5445, 8012, 11517, 16899, 24144, 35391, 50427, 73614, 104984, 152656, 216802, 315689, 447473, 648813, 920163, 1332991, 1884735, 2728020, 3853437, 5568644, 7868096, 11347437

Offset: 0

Gus Wiseman, Jun 05 2019

nonn

Equivalently, a(n) is the number of subsets of {1..n} containing the sum of any two distinct elements whose sum is <= n.
The summands must be distinct. The case where they are allowed to be equal is A326083.
If A151897 counts sum-free sets, this sequence counts sum-closed sets. This is different from sum-full sets (A093971).

			The a(0) = 1 through a(5) = 19 subsets:
  {}  {}   {}     {}       {}         {}
      {1}  {1}    {1}      {1}        {1}
           {2}    {2}      {2}        {2}
           {1,2}  {3}      {3}        {3}
                  {1,3}    {4}        {4}
                  {2,3}    {1,4}      {5}
                  {1,2,3}  {2,3}      {1,5}
                           {2,4}      {2,4}
                           {3,4}      {2,5}
                           {1,3,4}    {3,4}
                           {2,3,4}    {3,5}
                           {1,2,3,4}  {4,5}
                                      {1,4,5}
                                      {2,3,5}
                                      {2,4,5}
                                      {3,4,5}
                                      {1,3,4,5}
                                      {2,3,4,5}
                                      {1,2,3,4,5}
The a(6) = 31 subsets:
  {}  {1}  {1,6}  {1,5,6}  {1,4,5,6}  {1,3,4,5,6}  {1,2,3,4,5,6}
      {2}  {2,5}  {2,3,5}  {2,3,5,6}  {2,3,4,5,6}
      {3}  {2,6}  {2,4,6}  {2,4,5,6}
      {4}  {3,4}  {2,5,6}  {3,4,5,6}
      {5}  {3,5}  {3,4,5}
      {6}  {3,6}  {3,4,6}
           {4,5}  {3,5,6}
           {4,6}  {4,5,6}
           {5,6}

Cf. A007865, A050291, A051026, A054519, A085489, A093971, A103580, A120641, A151897, A326020, A326023, A326076, A326083.

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

a(n)={
   my(recurse(k, b)=
      if( k > n, 1,
          my(t=self()(k + 1, b + (1<Andrew Howroyd, Aug 30 2019

Terms a(21) and beyond from Andrew Howroyd, Aug 30 2019

A103580 Number of nonempty subsets S of {1,2,3,...,n} that have the property that no element x of S is a nonnegative integer linear combination of elements of S-{x}.

Original entry on oeis.org

1, 2, 4, 6, 11, 15, 26, 36, 57, 79, 130, 170, 276, 379, 579, 784, 1249, 1654, 2615, 3515, 5343, 7256, 11352, 14930, 23203, 31378, 47510, 63777, 98680, 130502, 201356, 270037, 407428, 548089, 840170, 1110428, 1701871, 2284324, 3440336, 4601655

Offset: 1

Jeffrey Shallit, Mar 23 2005

nonn

			a(4) = 6 because the only permissible subsets are {1}, {2}, {3}, {4}, {2,3}, {3,4}.
From _Gus Wiseman_, Jun 07 2019: (Start)
The a(1) = 1 through a(6) = 15 nonempty subsets of {1..n} containing none of their own non-singleton nonzero nonnegative linear combinations are:
  {1}  {1}  {1}    {1}    {1}      {1}
       {2}  {2}    {2}    {2}      {2}
            {3}    {3}    {3}      {3}
            {2,3}  {4}    {4}      {4}
                   {2,3}  {5}      {5}
                   {3,4}  {2,3}    {6}
                          {2,5}    {2,3}
                          {3,4}    {2,5}
                          {3,5}    {3,4}
                          {4,5}    {3,5}
                          {3,4,5}  {4,5}
                                   {4,6}
                                   {5,6}
                                   {3,4,5}
                                   {4,5,6}
a(n) is also the number of nonempty subsets of {1..n} containing all of their own nonzero nonnegative linear combinations <= n. For example the a(1) = 1 through a(6) = 15 subsets are:
  {1}  {2}    {2}      {3}        {3}          {4}
       {1,2}  {3}      {4}        {4}          {5}
              {2,3}    {2,4}      {5}          {6}
              {1,2,3}  {3,4}      {2,4}        {3,6}
                       {2,3,4}    {3,4}        {4,5}
                       {1,2,3,4}  {3,5}        {4,6}
                                  {4,5}        {5,6}
                                  {2,4,5}      {2,4,6}
                                  {3,4,5}      {3,4,6}
                                  {2,3,4,5}    {3,5,6}
                                  {1,2,3,4,5}  {4,5,6}
                                               {2,4,5,6}
                                               {3,4,5,6}
                                               {2,3,4,5,6}
                                               {1,2,3,4,5,6}
(End)

Fausto A. C. Cariboni, Table of n, a(n) for n = 1..100
Sergey Kitaev, Independent Sets on Path-Schemes, Journal of Integer Sequences, Vol. 9 (2006), Article 06.2.2.
Sean Li, Counting numerical semigroups by Frobenius number, multiplicity, and depth, arXiv:2208.14587 [math.CO], 2022.

Cf. A007865, A050291, A051026, A085489, A139384, A151897, A308546.

Cf. A326020, A326076, A326080, A326083, A326114.

Table[Length[Select[Subsets[Range[n],{1,n}],SubsetQ[#,Select[Plus@@@Tuples[#,2],#<=n&]]&]],{n,10}] (* Gus Wiseman, Jun 07 2019 *)

a(n) = A326083(n) - 1. - Gus Wiseman, Jun 07 2019

More terms from David Wasserman, Apr 16 2008

A326117 Number of subsets of {1..n} containing no products of two or more distinct elements.

Original entry on oeis.org

1, 2, 3, 5, 9, 17, 29, 57, 101, 201, 365, 729, 1233, 2465, 4593, 8297, 15921, 31841, 55953, 111905, 195713, 362337, 697361, 1394721, 2334113, 4668225, 9095393, 17225313, 31242785, 62485569, 106668609, 213337217, 392606529, 755131841, 1491146913, 2727555425, 4947175713

Offset: 0

Gus Wiseman, Jun 06 2019

nonn

If this sequence counts product-free sets, A326081 counts product-closed sets.

			The a(6) = 28 sets:
  {}  {1}  {2,3}  {2,3,4}  {2,3,4,5}
      {2}  {2,4}  {2,3,5}  {2,4,5,6}
      {3}  {2,5}  {2,4,5}  {3,4,5,6}
      {4}  {2,6}  {2,4,6}
      {5}  {3,4}  {2,5,6}
      {6}  {3,5}  {3,4,5}
           {3,6}  {3,4,6}
           {4,5}  {3,5,6}
           {4,6}  {4,5,6}
           {5,6}

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..47

Cf. A007865, A051026, A103580, A196724, A326020, A326023, A326076, A326078, A326079, A326081, A326116, A308542.

Table[Length[Select[Subsets[Range[n]],Intersection[#,Select[Times@@@Subsets[#,{2}],#<=n&]]=={}&]],{n,0,20}]

For n > 0, a(n) = A326116(n) + 1.

Terms a(21)-a(36) from Andrew Howroyd, Aug 30 2019

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

A326489 Number of product-free subsets of {1..n}.

Original entry on oeis.org

1, 1, 2, 4, 6, 12, 22, 44, 88, 136, 252, 504, 896, 1792, 3392, 6352, 9720, 19440, 35664, 71328, 129952, 247232, 477664, 955328, 1700416, 2657280, 5184000, 10368000, 19407360, 38814720, 68868352, 137736704, 260693504, 505830400, 999641600, 1882820608, 2807196672

Offset: 0

Gus Wiseman, Jul 09 2019

nonn

A set is product-free if it contains no product of two (not necessarily distinct) elements.

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

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..167, (terms up to a(100) from Andrew Howroyd)
Marcel K. Goh and Jonah Saks, Alternating-sum statistics for certain sets of integers, arXiv:2206.12535 [math.CO], 2022.
Andrew Howroyd, PARI Program

Product-closed subsets are A326076.
Subsets containing no products are A326114.
Subsets containing no products of distinct elements are A326117.
Subsets containing no quotients are A327591.
Maximal product-free subsets are A326496.
Cf. A007865, A051026, A326023, A326081, A326116, A326495.

Table[Length[Select[Subsets[Range[n]],Intersection[#,Times@@@Tuples[#,2]]=={}&]],{n,10}]

a(21)-a(36) from Andrew Howroyd, Aug 25 2019

a(0)=1 prepended to data, example and b-file by Peter Kagey, Sep 18 2019

A326496 Number of maximal product-free subsets of {1..n}.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 3, 3, 3, 4, 6, 6, 9, 9, 15, 17, 30, 30, 46, 46, 51, 61, 103, 103, 129, 158, 282, 282, 322, 322, 553, 553, 615, 689, 1247, 1365, 1870, 1870, 3566, 3758, 5244, 5244, 8677, 8677, 9807, 12147, 23351, 23351, 27469, 31694, 45718, 47186, 54594, 54594, 95382, 108198

Offset: 0

Gus Wiseman, Jul 09 2019

nonn

A set is product-free if it contains no product of two (not necessarily distinct) elements.

Also the number of maximal quotient-free subsets of {1..n}.

			The a(2) = 1 through a(10) = 6 subsets (A = 10):
  {2}  {23}  {23}  {235}  {235}   {2357}   {23578}   {23578}   {23578}
             {34}  {345}  {256}   {2567}   {25678}   {256789}  {2378A}
                          {3456}  {34567}  {345678}  {345678}  {256789}
                                                     {456789}  {26789A}
                                                               {345678A}
                                                               {456789A}

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..85
P. J. Cameron and P. Erdős, On the number of integers with various properties, in R. A. Mullin, ed., Number Theory: Proc. First Conf. of Canad. Number Theory Assoc. Conf., Banff, De Gruyter, Berlin, 1990, pp. 61-79.
Andrew Howroyd, PARI Program

Product-free subsets are A326489.
Subsets without products of distinct elements are A326117.
Maximal sum-free subsets are A121269.
Maximal sum-free and product-free subsets are A326497.
Maximal subsets without products of distinct elements are A325710.
Cf. A007865, A051026, A326076, A326491, A326492, A326495, A327591.

fasmax[y_]:=Complement[y,Union@@(Most[Subsets[#]]&/@y)];
Table[Length[fasmax[Select[Subsets[Range[n]],Intersection[#,Times@@@Tuples[#,2]]=={}&]]],{n,0,10}]

\\ See link for program file.
for(n=0, 30, print1(A326496(n), ", ")) \\ Andrew Howroyd, Aug 30 2019

a(18)-a(55) from Andrew Howroyd, Aug 30 2019

A326079 Number of subsets of {1..n} containing all of their integer quotients > 1.

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 48, 96, 144, 288, 432, 864, 1104, 2208, 3312, 5184, 7872, 15744, 20112, 40224, 53376, 84640, 126960, 253920, 309600, 619200, 928800, 1475136, 1984320, 3968640, 4901760, 9803520, 12585600, 20394624, 30591936, 52483392, 65894976, 131789952, 197684928, 323175744, 411685056

Offset: 0

Gus Wiseman, Jun 05 2019

nonn

These sets are closed under taking the quotient of two distinct divisible terms.

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

Cf. A007865, A051026, A054519, A067992, A103580, A325860, A325994, A326023, A326076, A326078, A326081.

Table[Length[Select[Subsets[Range[n]],SubsetQ[#,Divide@@@Select[Tuples[#,2],UnsameQ@@#&&Divisible@@#&]]&]],{n,0,10}]

For n > 0, a(n) = 2 * A326078(n) = 2 * (A326023(n) - 1).

Terms a(21) and beyond from Andrew Howroyd, Aug 30 2019

A326081 Number of subsets of {1..n} containing the product of any set of distinct elements whose product is <= n.

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 56, 112, 200, 400, 728, 1456, 2368, 4736, 8896, 16112, 30016, 60032, 105472, 210944, 366848, 679680, 1327232, 2654464, 4434176, 8868352, 17488640, 33118336, 60069248, 120138496, 206804224, 413608448, 759882880, 1461600128, 2909298496, 5319739328

Offset: 0

Gus Wiseman, Jun 05 2019

nonn

For n > 0, this sequence divided by 2 first differs from A326116 at a(12)/2 = 1184, A326116(12) = 1232.
If A326117 counts product-free sets, this sequence counts product-closed sets.
The non-strict case is A326076.

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

Cf. A007865, A051026, A103580, A196724, A308542, A326020, A326023, A326076, A326078, A326079.

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

For n > 0, a(n) = 2 * A308542(n).

Terms a(21) and beyond from Andrew Howroyd, Aug 24 2019

cp's OEIS Frontend

A326083 Number of subsets of {1..n} containing all of their pairwise sums <= n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A051026 Number of primitive subsequences of {1, 2, ..., n}.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A326080 Number of subsets of {1..n} containing the sum of every subset whose sum is <= n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A103580 Number of nonempty subsets S of {1,2,3,...,n} that have the property that no element x of S is a nonnegative integer linear combination of elements of S-{x}.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A326117 Number of subsets of {1..n} containing no products of two or more distinct elements.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A326489 Number of product-free subsets of {1..n}.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs