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.

Showing 1-10 of 11 results. Next

A326076 Number of subsets of {1..n} containing all of their integer products <= n.

Original entry on oeis.org

1, 2, 4, 8, 12, 24, 44, 88, 152, 232, 444, 888, 1576, 3152, 6136, 11480, 17112, 34224, 63504, 127008, 232352, 442208, 876944, 1753888, 3138848, 4895328, 9739152, 18141840, 34044720, 68089440, 123846624, 247693248, 469397440, 924014144, 1845676384, 3469128224, 5182711584
Offset: 0

Views

Author

Gus Wiseman, Jun 05 2019

Keywords

Comments

The strict case is A326081.

Examples

			The a(0) = 1 through a(4) = 12 sets:
  {}  {}   {}     {}       {}
      {1}  {1}    {1}      {1}
           {2}    {2}      {3}
           {1,2}  {3}      {4}
                  {1,2}    {1,3}
                  {1,3}    {1,4}
                  {2,3}    {2,4}
                  {1,2,3}  {3,4}
                           {1,2,4}
                           {1,3,4}
                           {2,3,4}
                           {1,2,3,4}
The a(6) = 44 sets:
  {}  {1}  {1,3}  {1,2,4}  {1,2,4,5}  {1,2,3,4,6}  {1,2,3,4,5,6}
      {3}  {1,4}  {1,3,4}  {1,2,4,6}  {1,2,4,5,6}
      {4}  {1,5}  {1,3,5}  {1,3,4,5}  {1,3,4,5,6}
      {5}  {1,6}  {1,3,6}  {1,3,4,6}  {2,3,4,5,6}
      {6}  {2,4}  {1,4,5}  {1,3,5,6}
           {3,4}  {1,4,6}  {1,4,5,6}
           {3,5}  {1,5,6}  {2,3,4,6}
           {3,6}  {2,4,5}  {2,4,5,6}
           {4,5}  {2,4,6}  {3,4,5,6}
           {4,6}  {3,4,5}
           {5,6}  {3,4,6}
                  {3,5,6}
                  {4,5,6}

Crossrefs

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

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[n]],SubsetQ[#,Select[Times@@@Tuples[#,2],#<=n&]]&]],{n,0,10}]
  • PARI
    a(n)={
    my(lim=vector(n, k, sqrtint(k)));
    my(accept(b, k)=for(i=2, lim[k], if(k%i ==0 && bittest(b, i) && bittest(b, k/i), return(0))); 1);
    my(recurse(k, b)=
      my(m=1);
      for(j=max(2*k, n\2+1), min(2*k+1, n), if(accept(b, j), m*=2));
      k++;
      m*if(k > n\2, 1, self()(k, b + (1<Andrew Howroyd, Aug 30 2019

Formula

a(n) = 2*A326114(n) for n > 0. - Andrew Howroyd, Aug 30 2019

Extensions

a(16)-a(30) from Andrew Howroyd, Aug 16 2019
Terms a(31) and beyond from Andrew Howroyd, Aug 30 2019

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

Views

Author

Gus Wiseman, Jun 06 2019

Keywords

Comments

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

Examples

			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}

Links

Crossrefs

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

Programs

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

Formula

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

Extensions

Terms a(21)-a(36) 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

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

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

Original entry on oeis.org

1, 1, 2, 4, 8, 16, 24, 48, 72, 144, 216, 432, 552, 1104, 1656, 2592, 3936, 7872, 10056, 20112, 26688, 42320, 63480, 126960, 154800, 309600, 464400, 737568, 992160, 1984320, 2450880, 4901760, 6292800, 10197312, 15295968, 26241696, 32947488, 65894976, 98842464, 161587872, 205842528
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) = 24 subsets:
  {}  {2}  {2,3}  {2,3,4}  {2,3,4,5}  {2,3,4,5,6}
      {3}  {2,4}  {2,3,5}  {2,3,4,6}
      {4}  {2,5}  {2,3,6}  {2,3,5,6}
      {5}  {3,4}  {2,4,5}
      {6}  {3,5}  {3,4,5}
           {4,5}  {4,5,6}
           {4,6}
           {5,6}

Crossrefs

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

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[2,n]],SubsetQ[#,Divide@@@Select[Tuples[#,2],UnsameQ@@#&&Divisible@@#&]]&]],{n,0,10}]
  • PARI
    a(n)={
    my(lim=vector(n, k, sqrtint(k)));
    my(accept(b, k)=for(i=2, lim[k], if(k%i ==0 && bittest(b,i) != bittest(b,k/i), return(0))); 1);
    my(recurse(k, b)=
      my(m=1);
      for(j=max(2*k,n\2+1), min(2*k+1,n), if(accept(b,j), m*=2));
      k++;
      m*if(k > n\2, 1, (self()(k, b) + if(accept(b, k), self()(k, b + (1<Andrew Howroyd, Aug 30 2019

Formula

For n > 0, a(n) = A326023(n) - 1.
For n > 0, a(n) = A326079(n)/2.

Extensions

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

A326116 Number of subsets of {2..n} containing no products of two or more distinct elements.

Original entry on oeis.org

1, 2, 4, 8, 16, 28, 56, 100, 200, 364, 728, 1232, 2464, 4592, 8296, 15920, 31840, 55952, 111904, 195712, 362336, 697360, 1394720, 2334112, 4668224, 9095392, 17225312, 31242784, 62485568, 106668608, 213337216, 392606528, 755131840, 1491146912, 2727555424, 4947175712
Offset: 1

Views

Author

Gus Wiseman, Jun 06 2019

Keywords

Comments

First differs from A308542 at a(12) = 1232, A308542(12) = 1184.
If this sequence counts product-free sets, A308542 counts product-closed sets.

Examples

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

Links

Crossrefs

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

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[2,n]],Intersection[#,Select[Times@@@Subsets[#,{2}],#<=n&]]=={}&]],{n,10}]
  • PARI
    a(n)={
   my(recurse(k, ep)=
    if(k > n, 1,
      my(t = self()(k + 1, ep));
      if(!bittest(ep,k),
         forstep(i=n\k, 1, -1, if(bittest(ep,i), ep=bitor(ep,1<<(k*i))));
         t += self()(k + 1, ep);
      );
      t);
   );
   recurse(2, 2);
} \\ Andrew Howroyd, Aug 25 2019

Formula

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

Extensions

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

A326490 Number of subsets of {1..n} containing no differences or quotients of pairs of distinct elements.

Original entry on oeis.org

1, 2, 3, 5, 7, 12, 18, 31, 46, 72, 102, 172, 259, 428, 607, 989, 1329, 2142, 3117, 4953, 6956, 11032, 15321, 23979, 33380, 48699, 66849, 104853, 144712, 220758, 304133, 461580, 636556, 973843, 1316513, 1958828, 2585433, 3882843, 5237093, 7884277, 10555739, 15729293
Offset: 0

Views

Author

Gus Wiseman, Jul 09 2019

Keywords

Examples

			The a(0) = 1 through a(6) = 18 subsets:
  {}  {}   {}   {}     {}     {}       {}
      {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}    {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 difference are A007865.
Maximal subsets without differences or quotients are A326491.
Subsets without quotients are A327591.
Subsets with differences and quotients are A326494.
Cf. A051026, A054519, A325860, A326023, A326079, A326489.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[n]],Intersection[#,Union[Divide@@@Reverse/@Subsets[#,{2}],Subtract@@@Reverse/@Subsets[#,{2}]]]=={}&]],{n,0,10}]
  • PARI
    a(n)={
   my(recurse(k, b)=
    if(k > n, 1,
      my(t = self()(k + 1, b));
      for(i=1, k\2, if(bittest(b,i) && (bittest(b,k-i) || (!(k%i) && bittest(b,k/i))), return(t)));
      t += self()(k + 1, b + (1<Andrew Howroyd, Aug 25 2019

Formula

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

Extensions

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

A327591 Number of subsets of {1..n} containing no quotients of pairs of distinct elements.

Original entry on oeis.org

1, 2, 3, 5, 7, 13, 23, 45, 89, 137, 253, 505, 897, 1793, 3393, 6353, 9721, 19441, 35665, 71329, 129953, 247233, 477665, 955329, 1700417, 2657281, 5184001, 10368001, 19407361, 38814721, 68868353, 137736705, 260693505, 505830401, 999641601, 1882820609, 2807196673
Offset: 0

Views

Author

Peter Kagey, Sep 17 2019

Keywords

Examples

			The a(0) = 1 through a(5) = 13 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}

Links

Crossrefs

Maximal subsets without quotients are A326492.
Subsets with quotients are A326023.
Subsets without differences or quotients are A326490.
Subsets without products are A326489.
Cf. A007865, A051026, A325860, A325994, A326079, A326117, A326491, A326496.

Formula

A326489(n) + 1 for n > 0.

A326492 Number of maximal subsets of {1..n} containing no quotients of pairs of distinct elements.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 4, 4, 4, 5, 7, 7, 10, 10, 16, 18, 31, 31, 47, 47, 52, 62, 104, 104, 130, 159, 283, 283, 323, 323, 554, 554, 616, 690, 1248, 1366, 1871, 1871, 3567, 3759, 5245, 5245, 8678, 8678, 9808, 12148, 23352, 23352, 27470, 31695, 45719, 47187, 54595, 54595, 95383, 108199
Offset: 0

Views

Author

Gus Wiseman, Jul 09 2019

Keywords

Examples

			The a(0) = 1 through a(9) = 5 subsets:
  {}  {1}  {1}  {1}   {1}   {1}    {1}     {1}      {1}       {1}
           {2}  {23}  {23}  {235}  {235}   {2357}   {23578}   {23578}
                      {34}  {345}  {256}   {2567}   {25678}   {256789}
                                   {3456}  {34567}  {345678}  {345678}
                                                              {456789}

Crossrefs

Subsets with quotients are A326023.
Subsets with quotients > 1 are A326079.
Subsets without quotients are A327591.
Maximal subsets without differences or quotients are A326491.
Maximal subsets without quotients (or products) are A326496.
Cf. A007865, A121269, A325860, A325994, A326117, A326489, A326490.

Programs

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

Formula

a(n) = A326496(n) + 1 for n > 1. - Andrew Howroyd, Aug 30 2019

Extensions

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

A326114 Number of subsets of {2..n} containing no product of two or more (not necessarily distinct) elements.

Original entry on oeis.org

1, 1, 2, 4, 6, 12, 22, 44, 76, 116, 222, 444, 788, 1576, 3068, 5740, 8556, 17112, 31752, 63504, 116176, 221104, 438472, 876944, 1569424, 2447664, 4869576, 9070920, 17022360, 34044720, 61923312, 123846624, 234698720, 462007072, 922838192, 1734564112, 2591355792, 5182711584
Offset: 0

Views

Author

Gus Wiseman, Jun 06 2019

Keywords

Comments

The strict case is A326117.
Also the number of subsets of {2..n} containing all of their integer products <= n. For example, the a(1) = 1 through a(5) = 12 subsets are:
{} {} {} {} {} {}
{2} {2} {3} {3}
{3} {4} {4}
{2,3} {2,4} {5}
{3,4} {2,4}
{2,3,4} {3,4}
{3,5}
{4,5}
{2,3,4}
{2,4,5}
{3,4,5}
{2,3,4,5}

Examples

			The a(1) = 1 through a(5) = 12 subsets:
  {}  {}   {}     {}     {}
      {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}

Crossrefs

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

Formula

a(n > 0) = A326076(n)/2.

Extensions

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

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

Original entry on oeis.org

1, 2, 4, 8, 16, 28, 56, 100, 200, 364, 728, 1184, 2368, 4448, 8056, 15008, 30016, 52736, 105472, 183424, 339840, 663616, 1327232, 2217088, 4434176, 8744320, 16559168, 30034624, 60069248, 103402112, 206804224, 379941440, 730800064, 1454649248, 2659869664, 4786282208
Offset: 1

Views

Author

Gus Wiseman, Jun 06 2019

Keywords

Comments

First differs from A326116 at a(12) = 1184, A326116(12) = 1232.
If this sequence counts product-closed sets, A326116 counts product-free sets.

Examples

			The a(6) = 28 sets:
  {}  {2}  {2,4}  {2,3,6}  {2,3,4,6}  {2,3,4,5,6}
      {3}  {2,5}  {2,4,5}  {2,3,5,6}
      {4}  {2,6}  {2,4,6}  {2,4,5,6}
      {5}  {3,4}  {2,5,6}  {3,4,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}

Crossrefs

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

Programs

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

Formula

For n > 0, a(n) = A326081(n)/2.

Extensions

Terms a(21) and beyond from Andrew Howroyd, Aug 24 2019
Showing 1-10 of 11 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.