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-3 of 3 results.

A381991 Numbers whose prime indices have a unique multiset partition into constant multisets with distinct sums.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79
Offset: 1

Views

Author

Gus Wiseman, Mar 22 2025

Keywords

Comments

Also numbers with a unique factorization into prime powers with distinct sums of prime indices.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798, sum A056239.

Examples

			The prime indices of 270 are {1,2,2,2,3}, and there are two multiset partitions into constant multisets with distinct sums: {{1},{2},{3},{2,2}} and {{1},{3},{2,2,2}}, so 270 is not in the sequence.
The prime indices of 300 are {1,1,2,3,3}, of which there are no multiset partitions into constant multisets with distinct sums, so 300 is not in the sequence.
The prime indices of 360 are {1,1,1,2,2,3}, of which there is only one multiset partition into constant multisets with distinct sums: {{1},{1,1},{3},{2,2}}, so 360 is in the sequence.
The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    6: {1,2}
    7: {4}
    9: {2,2}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   15: {2,3}
   17: {7}
   18: {1,2,2}
   19: {8}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   23: {9}
   24: {1,1,1,2}
   25: {3,3}

Crossrefs

For distinct blocks instead of block-sums we have A004709, counted by A000726.
Twice-partitions of this type are counted by A279786.
MM-numbers of these multiset partitions are A326535 /\ A355743.
These are the positions of 1 in A381635.
For no choices we have A381636 (zeros of A381635), counted by A381717.
For strict instead of constant blocks we have A381870, counted by A382079.
Partitions of this type (unique into constant with distinct) are counted by A382301.
Normal multiset partitions of this type are counted by A382203.
A001055 counts multiset partitions, see A317141 (upper), A300383 (lower), A265947.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
Cf. A000688, A000720, A001222, A003963, A005117, A047966, A050361, A293511, A300385, A381716.
Cf. A006171, A279784, A295935.

Programs

  • Mathematica
    hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
pfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[pfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],PrimePowerQ]}]];
Select[Range[100],Length[Select[pfacs[#],UnsameQ@@hwt/@#&]]==1&]

A382460 Number of integer partitions of n that can be partitioned into sets with distinct sums in exactly one way.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 3, 4, 6, 5, 10, 10, 13, 15, 22, 20, 32, 32, 43, 49, 65, 64, 92, 96, 121, 140, 173, 192
Offset: 0

Views

Author

Gus Wiseman, Mar 29 2025

Keywords

Examples

			The partition y = (3,3,2,1,1,1) has 2 partitions into sets: {{1},{3},{1,2},{1,3}} and {{1},{1,3},{1,2,3}}, but only the latter has distinct sums, so y is counted under a(11)
The a(1) = 1 through a(10) = 10 partitions (A=10):
  1  2  3  4    5    6     7    8      9      A
           211  221  411   322  332    441    433
                311  2211  331  422    522    442
                           511  611    711    622
                                3311   42111  811
                                32111         3322
                                              4411
                                              32221
                                              43111
                                              52111

Crossrefs

Twice-partitions of this type are counted by A279785.
Multiset partitions of this type are counted by A381633.
Normal multiset partitions of this type are counted by A381718.
These partitions are ranked by A381870.
For no choices we have A381990, ranks A381806, see A382078, ranks A293243.
For at least one choice we have A381992, ranks A382075, see A382077, ranks A382200.
For distinct blocks instead of block-sums we have A382079, ranks A293511.
MM-numbers of these multiset partitions are A382201, see A302478.
For constant instead of strict blocks we have A382301, ranks A381991.
Set systems: A050320, A050326, A050342, A116539, A296120, A318361.
Set multipartitions: A089259, A116540, A270995, A296119, A318360.
A000041 counts integer partitions, strict A000009.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A002846, A047966, A213427, A299202, A317142, A358914, A381441, A381454, A381636.

Programs

  • Mathematica
    hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
ssfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&) /@ Select[ssfacs[n/d],Min@@#>d&],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Table[Length[Select[IntegerPartitions[n], Length[Select[ssfacs[Times@@Prime/@#],UnsameQ@@hwt/@#&]]==1&]],{n,0,15}]

A382427 Number of integer partitions of n that can be partitioned into constant blocks with distinct sums.

Original entry on oeis.org

1, 1, 2, 3, 4, 7, 11, 14, 19, 28, 39, 50, 70, 91, 120, 161, 203, 260, 338, 426, 556, 695, 863, 1082, 1360, 1685
Offset: 0

Views

Author

Gus Wiseman, Mar 26 2025

Keywords

Comments

Conjecture: Also the number of integer partitions of n having a permutation with all distinct run-sums.

Examples

			The partition (3,2,2,2,1) can be partitioned as {{1},{2},{3},{2,2}} or {{1},{3},{2,2,2}}, so is counted under a(10).
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)
                    (1111)  (221)    (51)      (61)
                            (311)    (222)     (322)
                            (2111)   (321)     (331)
                            (11111)  (411)     (421)
                                     (2211)    (511)
                                     (3111)    (2221)
                                     (21111)   (4111)
                                     (111111)  (22111)
                                               (31111)
                                               (211111)
                                               (1111111)

Crossrefs

Twice-partitions of this type (constant with distinct) are counted by A279786.
Multiset partitions of this type are ranked by A326535 /\ A355743.
The complement is counted by A381717, ranks A381636, zeros of A381635.
For strict instead of constant blocks we have A381992, ranks A382075.
For a unique choice we have A382301, ranks A381991.
Normal multiset partitions of this type are counted by A382203, sets A381718.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383, A265947.
A050361 counts factorizations into distinct prime powers.
Cf. A006171, A047966, A279784, A295935, A300385, A353864, A381633, A381716, A381990, A381993, A382079, A382876.

Programs

  • Mathematica
    hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
pfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[pfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],PrimePowerQ]}]];
Table[Length[Select[IntegerPartitions[n],Select[pfacs[Times@@Prime/@#],UnsameQ@@hwt/@#&]!={}&]],{n,0,10}]
Showing 1-3 of 3 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.