cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-30 of 39 results. Next

A366320 Irregular triangle read by rows where T(n,k) is the number of subsets of {1..n} without a subset summing to k.

Original entry on oeis.org

1, 2, 2, 3, 4, 4, 3, 6, 6, 7, 8, 8, 6, 6, 9, 11, 11, 14, 14, 15, 16, 16, 12, 12, 9, 17, 17, 20, 20, 24, 27, 27, 30, 30, 31, 32, 32, 24, 24, 18, 17, 26, 31, 29, 35, 36, 43, 47, 50, 51, 56, 59, 59, 62, 62, 63
Offset: 1

Views

Author

Gus Wiseman, Oct 12 2023

Keywords

Examples

			Triangle begins:
   1
   2  2  3
   4  4  3  6  6  7
   8  8  6  6  9 11 11 14 14 15
  16 16 12 12  9 17 17 20 20 24 27 27 30 30 31
  32 32 24 24 18 17 26 31 29 35 36 43 47 50 51 56 59 59 62 62 63
Row n = 3 counts the following subsets:
  {}     {}     {}   {}     {}     {}
  {2}    {1}    {1}  {1}    {1}    {1}
  {3}    {3}    {2}  {2}    {2}    {2}
  {2,3}  {1,3}       {3}    {3}    {3}
                     {1,2}  {1,2}  {1,2}
                     {2,3}  {1,3}  {1,3}
                                   {2,3}

Crossrefs

Row lengths are A000217.
The diagonal T(n,n) is A365377, complement A365376.
The complement is counted by A365381.
A000009 counts subsets summing to n.
A000124 counts distinct possible sums of subsets of {1..n}.
A124506 counts combination-free subsets, differences of A326083.
A365046 counts combination-full subsets, differences of A364914.
Cf. A007865, A085489, A093971, A103580, A151897, A326080, A364534, A365073, A365380.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[n]],FreeQ[Total/@Subsets[#],k]&]],{n,8},{k,n*(n+1)/2}]

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

Views

Author

Gus Wiseman, Jun 06 2019

Keywords

Comments

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}

Examples

			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}

Links

Crossrefs

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

Programs

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

Formula

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)

Extensions

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

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

Original entry on oeis.org

1, 2, 3, 5, 9, 17, 25, 49, 73, 145, 217, 433, 553, 1105, 1657, 2593, 3937, 7873, 10057, 20113, 26689, 42321, 63481, 126961, 154801, 309601, 464401, 737569, 992161, 1984321, 2450881, 4901761, 6292801, 10197313, 15295969, 26241697, 32947489, 65894977, 98842465, 161587873, 205842529
Offset: 0

Views

Author

Gus Wiseman, Jun 04 2019

Keywords

Comments

These are sets that are closed under taking the quotient of two (not necessarily distinct) divisible terms.

Examples

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

Crossrefs

Cf. A007865, A051026, A054519, A067992, A103580, A325853, A325854, A325860, A325861, A325994, A326078.

Programs

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

Formula

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

Extensions

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

A365377 Number of subsets of {1..n} without a subset summing to n.

Original entry on oeis.org

0, 1, 2, 3, 6, 9, 17, 26, 49, 72, 134, 201, 366, 544, 984, 1436, 2614, 3838, 6770, 10019, 17767, 25808, 45597, 66671, 116461, 169747, 295922, 428090, 750343, 1086245, 1863608, 2721509, 4705456, 6759500, 11660244, 16877655, 28879255, 41778027, 71384579, 102527811, 176151979
Offset: 0

Views

Author

Gus Wiseman, Sep 08 2023

Keywords

Examples

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

Links

Crossrefs

The complement w/ re-usable parts is A365073.
The complement is counted by A365376.
The version with re-usable parts is A365380.
A000009 counts sets summing to n, multisets A000041.
A000124 counts distinct possible sums of subsets of {1..n}.
A124506 appears to count combination-free subsets, differences of A326083.
A364350 counts combination-free strict partitions, complement A364839.
A365046 counts combination-full subsets, differences of A364914.
A365381 counts subsets of {1..n} with a subset summing to k.
Cf. A007865, A085489, A088809, A093971, A103580, A151897, A236912, A237113, A237668, A326080, A364349, A364534.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[n]], FreeQ[Total/@Subsets[#],n]&]],{n,0,10}]
  • PARI
    isok(s, n) = forsubset(#s, ss, if (vecsum(vector(#ss, k, s[ss[k]])) == n, return(0))); return(1);
a(n) = my(nb=0); forsubset(n, s, if (isok(s, n), nb++)); nb; \\ Michel Marcus, Sep 09 2023
  • Python
    from itertools import combinations, chain
from sympy.utilities.iterables import partitions
def A365377(n):
    if n == 0: return 0
    nset = set(range(1,n+1))
    s, c = [set(p) for p in partitions(n,m=n,k=n) if max(p.values(),default=1) == 1], 1
    for a in chain.from_iterable(combinations(nset,m) for m in range(2,n+1)):
        if sum(a) >= n:
            aset = set(a)
            for p in s:
                if p.issubset(aset):
                    c += 1
                    break
    return (1<Chai Wah Wu, Sep 09 2023

Formula

a(n) = 2^n-A365376(n). - Chai Wah Wu, Sep 09 2023

Extensions

a(16)-a(27) from Michel Marcus, Sep 09 2023
a(28)-a(32) from Chai Wah Wu, Sep 09 2023
a(33)-a(35) from Chai Wah Wu, Sep 10 2023
More terms from David A. Corneth, Sep 10 2023

A364756 Number of subsets of {1..n} containing n and some element equal to the sum of two distinct others.

Original entry on oeis.org

0, 0, 0, 1, 2, 7, 17, 40, 87, 196, 413, 875, 1812, 3741, 7640, 15567, 31493, 63666, 128284, 257977, 518045, 1039478, 2083719, 4174586, 8359837, 16735079, 33493780, 67020261, 134090173, 268250256, 536609131, 1073358893, 2146942626, 4294183434, 8588837984, 17178273355
Offset: 0

Views

Author

Gus Wiseman, Aug 11 2023

Keywords

Examples

			The subset S = {1,3,6,8} has pair-sums {4,7,9,11,14}, which are disjoint from S, so it is not counted under a(8).
The subset {2,3,4,6} has pair-sum 2 + 4 = 6, so is counted under a(6).
The a(0) = 0 through a(6) = 17 subsets:
  .  .  .  {1,2,3}  {1,3,4}    {1,4,5}      {1,5,6}
                    {1,2,3,4}  {2,3,5}      {2,4,6}
                               {1,2,3,5}    {1,2,3,6}
                               {1,2,4,5}    {1,2,4,6}
                               {1,3,4,5}    {1,2,5,6}
                               {2,3,4,5}    {1,3,4,6}
                               {1,2,3,4,5}  {1,3,5,6}
                                            {1,4,5,6}
                                            {2,3,4,6}
                                            {2,3,5,6}
                                            {2,4,5,6}
                                            {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}

Links

Crossrefs

Partial sums are A088809, non-binary A364534.
With re-usable parts we have differences of A093971, complement A288728.
The complement with n is counted by A364755, partial sums A085489(n) - 1.
Cf. A000079, A007865, A050291, A051026, A103580, A151897, A236912, A326080, A326083, A364272.

Programs

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

Formula

First differences of A088809.

Extensions

a(16) onwards added (using A088809) by Andrew Howroyd, Jan 13 2024

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

Views

Author

Gus Wiseman, Jun 05 2019

Keywords

Comments

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

Examples

			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}

Crossrefs

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

Programs

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

Formula

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

Extensions

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

A121269 Number of maximal sum-free subsets of {1,2,...,n}.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 6, 8, 13, 17, 23, 29, 37, 51, 66, 86, 118, 158, 201, 265, 359, 471, 598, 797, 1043, 1378, 1765, 2311, 3064, 3970, 5017, 6537, 8547, 11020, 14007, 18026, 23404, 30026, 37989, 48945, 62759, 80256, 101070, 129193, 164835, 209279, 262693, 334127
Offset: 0

Views

Author

N. Hindman (nhindman(AT)aol.com), Aug 23 2006

Keywords

Comments

Also the number of maximal subsets of {1..n} containing no differences of pairs of elements. - Gus Wiseman, Jul 10 2019

Examples

			a(5)=5 because the maximal sum-free subsets of {1,2,3,4,5} are {1,4}, {2,3}, {2,5}, {1,3,5} and {3,4,5}
From _Gus Wiseman_, Jul 10 2019: (Start)
The a(1) = 1 through a(8) = 13 subsets:
  {1}  {1}  {1,3}  {1,3}  {1,4}    {2,3}    {1,4,6}    {1,3,8}
       {2}  {2,3}  {1,4}  {2,3}    {1,3,5}  {1,4,7}    {1,4,6}
                   {2,3}  {2,5}    {1,4,6}  {2,3,7}    {1,4,7}
                   {3,4}  {1,3,5}  {2,5,6}  {2,5,6}    {1,5,8}
                          {3,4,5}  {3,4,5}  {2,6,7}    {1,6,8}
                                   {4,5,6}  {3,4,5}    {2,5,6}
                                            {1,3,5,7}  {2,5,8}
                                            {4,5,6,7}  {2,6,7}
                                                       {3,4,5}
                                                       {1,3,5,7}
                                                       {2,3,7,8}
                                                       {4,5,6,7}
                                                       {5,6,7,8}
(End)

Links

Crossrefs

Maximal product-free subsets are A326496.
Sum-free subsets are A007865.
Maximal sum-free and product-free subsets are A326497.
Subsets with sums are A326083.
Maximal subsets without sums of distinct elements are A326498.
Cf. A103580, A326020, A326489, A326495.

Programs

  • Mathematica
    fasmax[y_]:=Complement[y,Union@@(Most[Subsets[#]]&/@y)];
Table[Length[fasmax[Select[Subsets[Range[n]],Intersection[#,Plus@@@Tuples[#,2]]=={}&]]],{n,0,10}] (* Gus Wiseman, Jul 10 2019 *)

Extensions

a(0) = 1 prepended by Gus Wiseman, Jul 10 2019
Terms a(42) and beyond from Fausto A. C. Cariboni, Oct 26 2020

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

Views

Author

Gus Wiseman, Jun 05 2019

Keywords

Comments

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.

Examples

			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}

Crossrefs

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

Programs

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

Formula

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

Extensions

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

A326495 Number of subsets of {1..n} containing no sums or products of pairs of elements.

Original entry on oeis.org

1, 1, 2, 4, 6, 11, 17, 30, 45, 71, 101, 171, 258, 427, 606, 988, 1328, 2141, 3116, 4952, 6955, 11031, 15320, 23978, 33379, 48698, 66848, 104852, 144711, 220757, 304132, 461579, 636555, 973842, 1316512, 1958827, 2585432, 3882842, 5237092, 7884276, 10555738, 15729292
Offset: 0

Views

Author

Gus Wiseman, Jul 09 2019

Keywords

Comments

The pairs are not required to be strict.

Examples

			The a(1) = 1 through a(6) = 17 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}
                         {3,4,5}  {3,5}
                                  {4,5}
                                  {4,6}
                                  {5,6}
                                  {2,5,6}
                                  {3,4,5}
                                  {4,5,6}

Links

Crossrefs

Subsets without sums are A007865.
Subsets without products are A326489.
Subsets without differences or quotients are A326490.
Maximal subsets without sums or products are A326497.
Subsets with sums (and products) are A326083.
Cf. A051026, A103580, A326020, A326076, A326117, A326491.

Programs

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

Formula

For n > 0, a(n) = A326490(n) - 1.

Extensions

a(19)-a(41) from Andrew Howroyd, Aug 25 2019

A326497 Number of maximal sum-free and product-free subsets of {1..n}.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 4, 6, 8, 9, 15, 21, 26, 38, 51, 69, 89, 119, 149, 197, 261, 356, 447, 601, 781, 1003, 1293, 1714, 2228, 2931, 3697, 4843, 6258, 8187, 10273, 13445, 16894, 21953, 27469, 35842, 45410, 58948, 73939, 95199, 120593, 154510, 192995, 247966, 312642
Offset: 0

Views

Author

Gus Wiseman, Jul 09 2019

Keywords

Comments

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

Examples

			The a(2) = 1 through a(10) = 15 subsets (A = 10):
  {2}  {23}  {23}  {23}   {23}   {237}   {256}   {267}    {23A}
             {34}  {25}   {256}  {256}   {258}   {345}    {345}
                   {345}  {345}  {267}   {267}   {357}    {34A}
                          {456}  {345}   {345}   {2378}   {357}
                                 {357}   {357}   {2569}   {38A}
                                 {4567}  {2378}  {2589}   {2378}
                                         {4567}  {4567}   {2569}
                                         {5678}  {4679}   {2589}
                                                 {56789}  {267A}
                                                          {269A}
                                                          {4567}
                                                          {4679}
                                                          {479A}
                                                          {56789}
                                                          {6789A}

Links

Crossrefs

Sum-free and product-free subsets are A326495.
Sum-free subsets are A007865.
Maximal sum-free subsets are A121269.
Product-free subsets are A326489.
Maximal product-free subsets are A326496.
Subsets with sums (and products) are A326083.
Cf. A051026, A103580, A325710, A326076, A326117, A326491, A326492, A326498.

Programs

  • Mathematica
    fasmax[y_]:=Complement[y,Union@@(Most[Subsets[#]]&/@y)];
Table[Length[fasmax[Select[Subsets[Range[n]],Intersection[#,Union[Plus@@@Tuples[#,2],Times@@@Tuples[#,2]]]=={}&]]],{n,0,10}]
  • PARI
    \\ See link for program file.
for(n=0, 37, print1(A326497(n), ", ")) \\ Andrew Howroyd, Aug 30 2019

Extensions

a(21)-a(40) from Andrew Howroyd, Aug 30 2019
a(41)-a(48) from Jinyuan Wang, Oct 11 2020
Previous Showing 21-30 of 39 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.