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 11-20 of 24 results. Next

A325855 Number of strict integer partitions of n such that every pair of distinct parts has a different product.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 4, 5, 6, 8, 10, 12, 14, 18, 22, 25, 31, 37, 44, 53, 59, 69, 83, 100, 111, 129, 152, 173, 198, 232, 260, 302, 342, 386, 448, 498, 565, 646, 728, 819, 918, 1039, 1164, 1310, 1462, 1631, 1830, 2053, 2282, 2532, 2825, 3136, 3482, 3869, 4300, 4744
Offset: 0

Views

Author

Gus Wiseman, May 31 2019

Keywords

Examples

			The a(1) = 1 through a(10) = 10 partitions (A = 10):
  (1)  (2)  (3)   (4)   (5)   (6)    (7)    (8)    (9)    (A)
            (21)  (31)  (32)  (42)   (43)   (53)   (54)   (64)
                        (41)  (51)   (52)   (62)   (63)   (73)
                              (321)  (61)   (71)   (72)   (82)
                                     (421)  (431)  (81)   (91)
                                            (521)  (432)  (532)
                                                   (531)  (541)
                                                   (621)  (631)
                                                          (721)
                                                          (4321)

Links

Crossrefs

The subset case is A196724.
The maximal case is A325859.
The integer partition case is A325856.
The strict integer partition case is A325855.
Heinz numbers of the counterexamples are given by A325993.
Cf. A002033, A108917, A143823, A275972, A325854, A325858, A325876, A325877.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&UnsameQ@@Times@@@Subsets[Union[#],{2}]&]],{n,0,30}]

A325857 Number of integer partitions of n such that every orderless pair of distinct parts has a different sum.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 15, 22, 30, 41, 55, 74, 97, 125, 165, 209, 269, 335, 428, 527, 664, 804, 1005, 1210, 1496, 1780, 2186, 2586, 3148, 3698, 4473, 5226, 6279, 7290, 8706, 10067, 11950, 13744, 16242, 18605, 21864, 24942, 29184, 33188, 38651, 43782, 50791, 57402, 66300, 74683, 86026, 96658
Offset: 0

Views

Author

Gus Wiseman, May 31 2019

Keywords

Examples

			The A000041(14) - a(14) = 10 partitions of 14 not satisfying the condition are:
  (6,5,2,1)
  (6,4,3,1)
  (5,4,3,2)
  (5,4,2,2,1)
  (4,4,3,2,1)
  (5,4,2,1,1,1)
  (4,3,3,2,1,1)
  (4,3,2,2,2,1)
  (4,3,2,2,1,1,1)
  (4,3,2,1,1,1,1,1)

Links

Crossrefs

The subset case is A196723.
The maximal case is A325878.
The integer partition case is A325857.
The strict integer partition case is A325877.
Heinz numbers of the counterexamples are given by A325991.
Cf. A002033, A103300, A108917, A143823, A196724, A325853, A325855, A325858, A325859, A325862.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@Plus@@@Subsets[Union[#],{2}]&]],{n,0,30}]

Extensions

Terms a(31) onward from Max Alekseyev, Sep 23 2023

A325868 Number of subsets of {1..n} containing n such that every ordered pair of distinct elements has a different quotient.

Original entry on oeis.org

1, 2, 4, 6, 14, 24, 52, 84, 120, 240, 548, 688, 1784, 2600, 4236, 5796, 16200, 17568, 49968, 55648, 101360, 176792, 433736, 430032, 728784, 1360928, 2304840, 2990856, 8682912, 7877376, 25243200, 27946656, 46758912, 81457248, 121546416, 114388320, 442583952
Offset: 1

Views

Author

Gus Wiseman, Jun 02 2019

Keywords

Examples

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

Links

Crossrefs

Cf. A025582, A108917, A143823, A196723, A196724.
Cf. A325853, A325854, A325858, A325860, A325861, A325864, A325869.

Programs

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

Extensions

a(21)-a(37) from Fausto A. C. Cariboni, Oct 16 2020

A325869 Number of maximal subsets of {1..n} containing n such that every pair of distinct elements has a different quotient.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 6, 6, 6, 20, 32, 29, 57, 83, 113, 183, 373, 233, 549, 360
Offset: 1

Views

Author

Gus Wiseman, Jun 02 2019

Keywords

Examples

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

Crossrefs

Cf. A025582, A067992, A108917, A143823, A196723, A196724.
Cf. A325853, A325854, A325858, A325860, A325861, A325864, A325868.

Programs

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

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

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

A325991 Heinz numbers of integer partitions such that not every orderless pair of distinct parts has a different sum.

Original entry on oeis.org

210, 420, 462, 630, 840, 858, 910, 924, 1050, 1155, 1260, 1326, 1386, 1470, 1680, 1716, 1820, 1848, 1870, 1890, 1938, 2100, 2145, 2310, 2470, 2520, 2574, 2622, 2652, 2730, 2772, 2926, 2940, 3150, 3234, 3315, 3360, 3432, 3465, 3570, 3640, 3696, 3740, 3780, 3876
Offset: 1

Views

Author

Gus Wiseman, Jun 02 2019

Keywords

Comments

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Examples

			The sequence of terms together with their prime indices begins:
   210: {1,2,3,4}
   420: {1,1,2,3,4}
   462: {1,2,4,5}
   630: {1,2,2,3,4}
   840: {1,1,1,2,3,4}
   858: {1,2,5,6}
   910: {1,3,4,6}
   924: {1,1,2,4,5}
  1050: {1,2,3,3,4}
  1155: {2,3,4,5}
  1260: {1,1,2,2,3,4}
  1326: {1,2,6,7}
  1386: {1,2,2,4,5}
  1470: {1,2,3,4,4}
  1680: {1,1,1,1,2,3,4}
  1716: {1,1,2,5,6}
  1820: {1,1,3,4,6}
  1848: {1,1,1,2,4,5}
  1870: {1,3,5,7}
  1890: {1,2,2,2,3,4}

Crossrefs

The subset case is A196723.
The maximal case is A325878.
The integer partition case is A325857.
The strict integer partition case is A325877.
Heinz numbers of the counterexamples are given by A325991.
Cf. A002033, A056239, A103300, A108917, A112798, A143823, A196724, A325853, A325855, A325858, A325859, A325862, A325992, A325993, A325994.

Programs

  • Mathematica
    Select[Range[1000],!UnsameQ@@Plus@@@Subsets[PrimePi/@First/@FactorInteger[#],{2}]&]

A196719 Number of subsets of {1..n} (including empty set) such that the pairwise GCDs of elements are all distinct.

Original entry on oeis.org

1, 2, 4, 7, 11, 16, 24, 31, 40, 52, 68, 79, 102, 115, 140, 175, 201, 218, 265, 284, 336, 396, 446, 469, 547, 599, 662, 742, 837, 866, 1034, 1065, 1153, 1275, 1370, 1511, 1719, 1756, 1869, 2030, 2244, 2285, 2613, 2656, 2865, 3236, 3394, 3441, 3780, 3921, 4232
Offset: 0

Views

Author

Alois P. Heinz, Oct 05 2011

Keywords

Examples

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

Links

Crossrefs

Cf. A143823, A196720, A196721, A196722, A196723, A196724.

Programs

  • Maple
    b:= proc(n, s) local sn, m;
      m:= nops(s);
      sn:= [s[], n];
      `if`(n<1, 1, b(n-1, s) +`if`(m*(m+1)/2 = nops(({seq(seq(
       igcd(sn[i], sn[j]), j=i+1..m+1), i=1..m)})), b(n-1, sn), 0))
    end:
a:= proc(n) option remember;
      b(n-1, [n]) +`if`(n=0, 0, a(n-1))
    end:
seq(a(n), n=0..50);
  • Mathematica
    b[n_, s_] := b[n, s] = With[{m = Length[s], sn = Append[s, n]}, If[n<1, 1, b[n-1, s] + If[m*(m+1)/2 == Length[ Union @ Flatten @ Table[ Table[ GCD[ sn[[i]], sn[[j]]], {j, i+1, m+1}], {i, 1, m}]], b[n-1, sn], 0]]];
a[n_] := a[n] = b[n-1, {n}] + If[n == 0, 0, a[n-1]];
Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Apr 06 2017, translated from Maple *)

A196720 Number of subsets of {1..n} (including empty set) such that the pairwise GCDs of elements are not distinct.

Original entry on oeis.org

1, 2, 4, 8, 13, 25, 33, 61, 81, 116, 140, 256, 282, 530, 606, 692, 823, 1551, 1653, 3173, 3391, 3805, 4177, 8049, 8345, 11524, 12508, 15294, 16204, 31692, 32048, 63280, 70834, 77224, 82048, 91686, 93597, 185245, 196109, 212359, 218223, 432495, 436031, 867647
Offset: 0

Views

Author

Alois P. Heinz, Oct 05 2011

Keywords

Comments

All pairwise GCDs of each subset are equal if there are any.
a(n) >= A084422(n).

Examples

			a(5) = 25: {}, {1}, {2}, {3}, {4}, {5}, {1,2}, {1,3}, {1,4}, {1,5}, {2,3}, {2,4}, {2,5}, {3,4}, {3,5}, {4,5}, {1,2,3}, {1,2,5}, {1,3,4}, {1,3,5}, {1,4,5}, {2,3,5}, {3,4,5}, {1,2,3,5}, {1,3,4,5}.

Links

Crossrefs

Cf. A143823, A196719, A196721, A196722, A196723, A196724.

Programs

  • Maple
    b:= proc(n, s) local sn, m;
      m:= nops(s);
      sn:= [s[], n];
      `if`(n<1, 1, b(n-1, s) +`if`(1 >= nops(({seq(seq(
           igcd(sn[i], sn[j]), j=i+1..m+1), i=1..m)})), b(n-1, sn), 0))
    end:
a:= proc(n) option remember;
      b(n-1, [n]) +`if`(n=0, 0, a(n-1))
    end:
seq(a(n), n=0..20);
  • Mathematica
    b[n_, s_] := b[n, s] = With[{m = Length[s], sn = Append[s, n]}, If[n<1, 1, b[n-1, s] + If[1 >= Length[ Union @ Flatten @ Table[ Table[ GCD[ sn[[i]], sn[[j]]], {j, i+1, m+1}], {i, 1, m}]], b[n-1, sn], 0]]];
a[n_] := a[n] = b[n-1, {n}] + If[n == 0, 0, a[n-1]];
Table[a[n], {n, 0, 20}] (* Jean-François Alcover, Apr 06 2017, translated from Maple *)

A196721 Number of subsets of {1..n} (including empty set) such that the pairwise LCMs of elements are all distinct.

Original entry on oeis.org

1, 2, 4, 8, 14, 28, 42, 84, 132, 236, 352, 704, 920, 1840, 2736, 3816, 5700, 11400, 15384, 30768, 39552, 54656, 81672, 163344, 196176, 362656, 542304, 930352, 1195168, 2390336, 2914304, 5828608, 8513920, 11674848, 17490432, 23484224, 28058816, 56117632, 84100800
Offset: 0

Views

Author

Alois P. Heinz, Oct 05 2011

Keywords

Examples

			a(4) = 14: {}, {1}, {2}, {3}, {4}, {1,2}, {1,3}, {1,4}, {2,3}, {2,4}, {3,4}, {1,2,3}, {1,3,4}, {2,3,4}.

Links

Crossrefs

Cf. A143823, A196719, A196720, A196722, A196723, A196724.

Programs

  • Maple
    b:= proc(n, s) local sn, m;
      m:= nops(s);
      sn:= [s[], n];
      `if`(n<1, 1, b(n-1, s) +`if`(m*(m+1)/2 = nops(({seq(seq(
       ilcm(sn[i], sn[j]), j=i+1..m+1), i=1..m)})), b(n-1, sn), 0))
    end:
a:= proc(n) option remember;
      b(n-1, [n]) +`if`(n=0, 0, a(n-1))
    end:
seq(a(n), n=0..10);
  • Mathematica
    b[n_, s_] := b[n, s] = Module[{sn, m}, m = Length[s]; sn = Append[s, n]; If[n < 1, 1, b[n - 1, s] + If[m*(m + 1)/2 == Length @ Union @ Flatten @ Table[LCM [sn[[i]], sn[[j]]], {i, 1, m}, {j, i+1, m+1}], b[n-1, sn], 0]]]; a[n_] := a[n] = b[n-1, {n}] + If[n == 0, 0, a[n-1]]; Table[ Print["a(", n, ") = ", a[n]]; a[n], {n, 0, 30}] (* Jean-François Alcover, Feb 02 2017, translated from Maple *)

Extensions

Terms a(31) and beyond from Fausto A. C. Cariboni, Oct 18 2020
Previous Showing 11-20 of 24 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.