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 10 results.

A325862 Number of integer partitions of n such that every set of distinct parts has a different sum.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 10, 14, 19, 26, 34, 46, 58, 77, 93, 122, 146, 188, 217, 282, 327, 410, 470, 596, 673, 848, 947, 1178, 1325, 1629, 1798, 2213, 2444, 2962, 3247, 3935, 4292, 5149, 5579, 6674, 7247, 8590, 9221, 10964, 11804, 13870, 14843, 17480, 18675, 21866
Offset: 0

Views

Author

Gus Wiseman, May 31 2019

Keywords

Comments

A knapsack partition (A108917, A299702) is an integer partition such that every submultiset has a different sum. The one non-knapsack partition counted under a(4) is (2,1,1).

Examples

			The a(1) = 1 through a(7) = 14 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (311)    (222)     (322)
                            (2111)   (411)     (331)
                            (11111)  (2211)    (421)
                                     (3111)    (511)
                                     (21111)   (2221)
                                     (111111)  (4111)
                                               (22111)
                                               (31111)
                                               (211111)
                                               (1111111)
The three non-knapsack partitions counted under a(6) are:
  (2,2,1,1)
  (3,1,1,1)
  (2,1,1,1,1)

Crossrefs

Dominates A108917.
Cf. A002033, A034444, A196723, A275972, A276024, A299702, A325592, A325856, A325863, A325864, A325865, A325877.

Programs

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

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

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 58, 116, 212, 416, 720, 1440, 2340, 4680, 7920, 13024, 23328, 46656, 74168, 148336, 229856, 371424, 615304, 1230608, 1780224, 3401568, 5589360, 9468504, 14397744, 28795488, 40312128, 80624256, 131388480, 206363168, 335814288, 521401536
Offset: 0

Views

Author

Alois P. Heinz, Oct 06 2011

Keywords

Comments

The number of subsets of {1..n} such that every orderless pair of (not necessarily distinct) elements has a different product is A325860(n). - Gus Wiseman, Jun 03 2019

Examples

			a(6) = 58: from the 2^6=64 subsets of {1,2,3,4,5,6} only 6 do not have all the pairwise products of elements distinct: {1,2,3,6}, {2,3,4,6}, {1,2,3,4,6}, {1,2,3,5,6}, {2,3,4,5,6}, {1,2,3,4,5,6}.

Links

Crossrefs

Cf. A143823, A196719, A196720, A196721, A196722, A196723.
The subset case is A196724 (this sequence).
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. A292886, A293627, A325860, A325861.

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(
       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] = 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[ 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[a[n], {n, 0, 20}] (* Jean-François Alcover, Jan 31 2017, translated from Maple *)
Table[Length[Select[Subsets[Range[n]],UnsameQ@@Times@@@Subsets[#,{2}]&]],{n,0,10}] (* Gus Wiseman, Jun 03 2019 *)

Extensions

Name edited by Gus Wiseman, Jun 03 2019
a(33)-a(35) from Fausto A. C. Cariboni, Oct 05 2020

A325858 Number of Golomb partitions of n.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 10, 14, 20, 25, 36, 47, 59, 78, 99, 122, 155, 195, 232, 295, 355, 432, 522, 641, 749, 919, 1076, 1283, 1506, 1802, 2067, 2470, 2835, 3322, 3815, 4496, 5070, 5959, 6736, 7807, 8849, 10266, 11499, 13326, 14928, 17140, 19193, 22037, 24519, 28106
Offset: 0

Views

Author

Gus Wiseman, Jun 02 2019

Keywords

Comments

We define a Golomb partition of n to be an integer partition of n such that every pair of distinct parts has a different difference.
Also the number of integer partitions of n such that every orderless pair of (not necessarily distinct) parts has a different sum.
The strict case is A325876.

Examples

			The a(1) = 1 through a(7) = 14 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (311)    (222)     (322)
                            (2111)   (411)     (331)
                            (11111)  (2211)    (421)
                                     (3111)    (511)
                                     (21111)   (2221)
                                     (111111)  (4111)
                                               (22111)
                                               (31111)
                                               (211111)
                                               (1111111)
The A000041(9) - a(9) = 5 non-Golomb partitions of 9 are: (531), (432), (3321), (32211), (321111).

Links

Crossrefs

The subset case is A143823.
The maximal case is A325879.
The integer partition case is A325858.
The strict integer partition case is A325876.
Heinz numbers of the counterexamples are given by A325992.
Cf. A002033, A108917, A325325, A325853, A325856, A325868.

Programs

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

A325859 Number of maximal subsets of {1..n} such that every orderless pair of distinct elements has a different product.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 4, 4, 11, 11, 28, 28, 60, 60, 140, 241, 299, 299, 572, 572, 971
Offset: 0

Views

Author

Gus Wiseman, May 31 2019

Keywords

Examples

			The a(1) = 1 through a(9) = 11 subsets:
  {1}  {12}  {123}  {1234}  {12345}  {2356}   {23567}   {123457}  {235678}
                                     {12345}  {123457}  {123578}  {1234579}
                                     {12456}  {124567}  {124567}  {1235789}
                                     {13456}  {134567}  {125678}  {1245679}
                                                        {134567}  {1256789}
                                                        {134578}  {1345679}
                                                        {135678}  {1345789}
                                                        {145678}  {1356789}
                                                        {234578}  {1456789}
                                                        {235678}  {2345789}
                                                        {245678}  {2456789}

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, A325858, A325860, A325861, A325869, A325878, A325879, A325880.

Programs

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

A325853 Number of integer partitions of n such that every pair of distinct parts has a different quotient.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 14, 21, 28, 39, 51, 69, 88, 116, 148, 193, 242, 309, 385, 484, 596, 746, 915, 1128, 1371, 1679, 2030, 2460, 2964, 3570, 4268, 5115, 6088, 7251, 8584, 10175, 12002, 14159, 16619, 19526, 22846, 26713, 31153, 36300, 42169, 48990, 56728
Offset: 0

Views

Author

Gus Wiseman, May 31 2019

Keywords

Comments

Also the number of integer partitions of n such that every orderless pair of (not necessarily distinct) parts has a different product.

Examples

			The a(1) = 1 through a(7) = 14 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (42)      (52)
                    (211)   (221)    (51)      (61)
                    (1111)  (311)    (222)     (322)
                            (2111)   (321)     (331)
                            (11111)  (411)     (511)
                                     (2211)    (2221)
                                     (3111)    (3211)
                                     (21111)   (4111)
                                     (111111)  (22111)
                                               (31111)
                                               (211111)
                                               (1111111)
The one partition of 7 for which not every pair of distinct parts has a different quotient is (4,2,1).

Crossrefs

The subset case is A325860.
The maximal case is A325861.
The integer partition case is A325853.
The strict integer partition case is A325854.
Heinz numbers of the counterexamples are given by A325994.
Cf. A002033, A103300, A108917, A143823, A196724, A325768, A325856, A325868, A325869, A325876.

Programs

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

A325876 Number of strict Golomb partitions of n.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 5, 6, 6, 9, 11, 10, 15, 17, 18, 24, 29, 27, 38, 43, 47, 53, 67, 67, 84, 87, 102, 113, 137, 131, 167, 179, 204, 213, 261, 263, 315, 327, 377, 413, 476, 472, 564, 602, 677, 707, 820, 845, 969, 1027, 1131, 1213, 1364, 1413, 1596, 1700, 1858
Offset: 0

Views

Author

Gus Wiseman, Jun 02 2019

Keywords

Comments

We define a Golomb partition of n to be an integer partition of n such that every ordered pair of distinct parts has a different difference.
Also the number of strict integer partitions of n such that every orderless pair of (not necessarily distinct) parts has a different sum.
The non-strict case is A325858.

Examples

			The a(2) = 1 through a(11) = 11 partitions (A = 10, B = 11):
  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)    (B)
       (21)  (31)  (32)  (42)  (43)   (53)   (54)   (64)   (65)
                   (41)  (51)  (52)   (62)   (63)   (73)   (74)
                               (61)   (71)   (72)   (82)   (83)
                               (421)  (431)  (81)   (91)   (92)
                                      (521)  (621)  (532)  (A1)
                                                    (541)  (542)
                                                    (631)  (632)
                                                    (721)  (641)
                                                           (731)
                                                           (821)

Links

Crossrefs

The subset case is A143823.
The maximal case is A325879.
The integer partition case is A325858.
The strict integer partition case is A325876.
Heinz numbers of the counterexamples are given by A325992.
Cf. A002033, A275972, A325325, A325853, A325856, A325868.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&UnsameQ@@Subtract@@@Subsets[Union[#],{2}]&]],{n,0,30}]
  • Python
    from collections import Counter
from itertools import combinations
from sympy.utilities.iterables import partitions
def A325876(n): return sum(1 for p in partitions(n) if max(list(Counter(abs(d[0]-d[1]) for d in combinations(list(Counter(p).elements()),2)).values()),default=1)==1)-(n&1^1) if n else 1 # Chai Wah Wu, Sep 17 2023

A325994 Heinz numbers of integer partitions such that not every ordered pair of distinct parts has a different quotient.

Original entry on oeis.org

42, 84, 126, 168, 210, 230, 252, 294, 336, 378, 390, 399, 420, 460, 462, 504, 546, 588, 630, 672, 690, 714, 742, 756, 780, 798, 840, 882, 920, 924, 966, 1008, 1050, 1092, 1134, 1150, 1170, 1176, 1197, 1218, 1260, 1302, 1344, 1365, 1380, 1386, 1428, 1470, 1484
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:
    42: {1,2,4}
    84: {1,1,2,4}
   126: {1,2,2,4}
   168: {1,1,1,2,4}
   210: {1,2,3,4}
   230: {1,3,9}
   252: {1,1,2,2,4}
   294: {1,2,4,4}
   336: {1,1,1,1,2,4}
   378: {1,2,2,2,4}
   390: {1,2,3,6}
   399: {2,4,8}
   420: {1,1,2,3,4}
   460: {1,1,3,9}
   462: {1,2,4,5}
   504: {1,1,1,2,2,4}
   546: {1,2,4,6}
   588: {1,1,2,4,4}
   630: {1,2,2,3,4}
   672: {1,1,1,1,1,2,4}

Crossrefs

The subset case is A325860.
The maximal case is A325861.
The integer partition case is A325853.
The strict integer partition case is A325854.
Heinz numbers of the counterexamples are given by A325994.
Cf. A002033, A056239, A103300, A108917, A112798, A143823, A196724, A325768, A325856, A325868, A325869, A325876.

Programs

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

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}]

A325863 Number of integer partitions of n such that every distinct non-singleton submultiset has a different sum.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 9, 11, 15, 17, 24, 29, 31, 41, 51, 58, 67, 84, 91, 117, 117
Offset: 0

Views

Author

Gus Wiseman, May 31 2019

Keywords

Comments

A knapsack partition (A108917, A299702) is an integer partition such that every submultiset has a different sum. The one non-knapsack partition counted under a(4) is (2,1,1).

Examples

			The partition (2,1,1,1) has non-singleton submultisets {1,2} and {1,1,1} with the same sum, so (2,1,1,1) is not counted under a(5).
The a(1) = 1 through a(8) = 15 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (211)   (221)    (51)      (61)       (62)
                    (1111)  (311)    (222)     (322)      (71)
                            (11111)  (321)     (331)      (332)
                                     (411)     (421)      (422)
                                     (3111)    (511)      (431)
                                     (111111)  (2221)     (521)
                                               (4111)     (611)
                                               (1111111)  (2222)
                                                          (3311)
                                                          (5111)
                                                          (41111)
                                                          (11111111)
The 10 non-knapsack partitions counted under a(12):
  (7,6,1)
  (7,5,2)
  (7,4,3)
  (7,5,1,1)
  (7,4,2,1)
  (7,3,3,1)
  (7,3,2,2)
  (7,4,1,1,1)
  (7,2,2,2,1)
  (7,1,1,1,1,1,1,1)

Crossrefs

Dominates A108917.
Cf. A002033, A055212, A143823, A196723, A276024, A299702, A325856, A325862, A325864, A325865, A325866, A325867, A325877.

Programs

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

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

Original entry on oeis.org

390, 780, 798, 1170, 1365, 1560, 1596, 1914, 1950, 2340, 2394, 2590, 2730, 2886, 3120, 3192, 3510, 3828, 3900, 3990, 4095, 4290, 4386, 4485, 4680, 4788, 5070, 5170, 5180, 5460, 5586, 5742, 5772, 5850, 6042, 6240, 6384, 6630, 6699, 6825, 7020, 7182, 7410, 7656
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:
   390: {1,2,3,6}
   780: {1,1,2,3,6}
   798: {1,2,4,8}
  1170: {1,2,2,3,6}
  1365: {2,3,4,6}
  1560: {1,1,1,2,3,6}
  1596: {1,1,2,4,8}
  1914: {1,2,5,10}
  1950: {1,2,3,3,6}
  2340: {1,1,2,2,3,6}
  2394: {1,2,2,4,8}
  2590: {1,3,4,12}
  2730: {1,2,3,4,6}
  2886: {1,2,6,12}
  3120: {1,1,1,1,2,3,6}
  3192: {1,1,1,2,4,8}
  3510: {1,2,2,2,3,6}
  3828: {1,1,2,5,10}
  3900: {1,1,2,3,3,6}
  3990: {1,2,3,4,8}

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, A056239, A108917, A112798, A143823, A292886, A325858, A325877, A325991, A325992, A325994.

Programs

  • Mathematica
    Select[Range[1000],!UnsameQ@@Times@@@Subsets[PrimePi/@First/@FactorInteger[#],{2}]&]
Showing 1-10 of 10 results.

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

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