A217605 -id:A217605 - cp's OEIS frontend

A386581 Number of normal multisets of size n with no permutation having all distinct run lengths.

0, 0, 1, 1, 5, 11, 20, 51, 108, 229, 448, 953, 1940, 3951, 7986, 15972

Offset: 0

Gus Wiseman, Aug 12 2025

A multiset is normal iff it covers an initial interval of positive integers.

			The normal multiset m = {1,1,1,2,2,2} has permutation (1,2,2,2,1,1) with run lengths (1,3,2), so m is not counted under a(6).
The a(1) = 0 through a(6) = 20 multisets:
  .  (12)  (123)  (1122)  (11123)  (111123)
                  (1123)  (11223)  (111234)
                  (1223)  (11233)  (112233)
                  (1233)  (11234)  (112234)
                  (1234)  (12223)  (112334)
                          (12233)  (112344)
                          (12234)  (112345)
                          (12333)  (122223)
                          (12334)  (122234)
                          (12344)  (122334)
                          (12345)  (122344)
                                   (122345)
                                   (123333)
                                   (123334)
                                   (123344)
                                   (123345)
                                   (123444)
                                   (123445)
                                   (123455)
                                   (123456)

The complement for partitions appears to be A239455, ranks A351294 or A381432.
For integer partitions we appear to have A351293, ranks A351295 or A381433.
For weakly decreasing multiplicities we appear to have A383710, ranks A382912.
The complement is counted by A386580, see A383708.
A032020 counts normal multisets with distinct multiplicities.
A048767 is the Look-and-Say transform, fixed points A048768 (counted by A217605).
A098859 counts partitions with distinct multiplicities, compositions A242882.
Cf. A000009, A025065, A047966, A072233, A116540, A130091, A320347, A326083, A382771, A382913, A383706.

allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
nodrm[y_]:=Select[Permutations[y],UnsameQ@@Length/@Split[#]&];
Table[Length[Select[allnorm[n],nodrm[#]=={}&]],{n,0,7}]

A381434 Numbers appearing only once in A381431 (section-sum partition of prime indices).

Original entry on oeis.org

1, 2, 3, 4, 8, 9, 10, 14, 15, 16, 20, 22, 27, 28, 32, 33, 35, 40, 44, 45, 50, 55, 56, 64, 75, 77, 80, 81, 88, 98, 99, 100, 112, 128, 130, 135, 160, 170, 175, 176, 182, 190, 195, 196, 200

Offset: 1

Gus Wiseman, Feb 27 2025

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
The section-sum partition (A381436) of a multiset or partition y is defined as follows: (1) determine and remember the sum of all distinct parts, (2) remove one instance of each distinct part, (3) repeat until no parts are left. The remembered values comprise the section-sum partition. For example, starting with (3,2,2,1,1) we get (6,3).
Equivalently, the k-th part of the section-sum partition is the sum of all (distinct) parts that appear at least k times. Compare to the definition of the conjugate of a partition, where we count parts >= k.
The conjugate of a section-sum partition is a Look-and-Say partition; see A048767, union A351294, count A239455.

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    8: {1,1,1}
    9: {2,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   16: {1,1,1,1}
   20: {1,1,3}
   22: {1,5}
   27: {2,2,2}
   28: {1,1,4}
   32: {1,1,1,1,1}

In A381431:
- fixed points are A000961, A000005
- conjugate is A048767, fixed points A048768, A217605
- all numbers present are A381432, conjugate A351294
- numbers missing are A381433, conjugate A351295
- numbers appearing only once are A381434 (this), conjugate A381540
- numbers appearing more than once are A381435, conjugate A381541
A000040 lists the primes, differences A001223.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts section-sum partitions, complement A351293.
A381436 lists section-sum partition of prime indices, conjugate A381440.
Set multipartitions: A050320, A089259, A116540, A296119, A318360, A318361.
Partition ideals: A300383, A317141, A381078, A381441, A381452, A381454.
Cf. A000720, A003557, A051903, A066328, A116861, A130091, A212166, A239964, A317081, A381437.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
egs[y_]:=If[y=={},{},Table[Total[Select[Union[y],Count[y,#]>=i&]],{i,Max@@Length/@Split[y]}]];
Select[Range[100],Count[Times@@Prime/@#&/@egs/@IntegerPartitions[Total[prix[#]]],#]==1&]

The complement is A381433 U A381435.

A383510 Number of integer partitions of n that are neither Look-and-Say nor section-sum.

Original entry on oeis.org

0, 0, 0, 1, 0, 0, 3, 2, 5, 10, 14, 19, 33, 38, 55, 81, 107, 137, 201, 248, 349, 450, 596, 745, 1000, 1242, 1611, 2007, 2567, 3164, 4025, 4920, 6166, 7545, 9347, 11360, 14004, 16932, 20686, 24949, 30305, 36366, 43939, 52521, 63098, 75221

Offset: 0

Gus Wiseman, May 18 2025

nonn

An integer partition is Look-and-Say iff it is possible to choose a disjoint family of strict partitions, one of each of its multiplicities. These are ranked by A351294.

An integer partition is section-sum iff its conjugate is Look-and-Say, meaning it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.

			The a(3) = 1 through a(10) = 14 partitions:
  (21)  .  .  (42)    (421)   (431)    (432)     (532)
              (321)   (3211)  (521)    (531)     (541)
              (2211)          (3221)   (621)     (721)
                              (4211)   (3321)    (4321)
                              (32111)  (4221)    (5221)
                                       (4311)    (5311)
                                       (5211)    (6211)
                                       (32211)   (32221)
                                       (42111)   (33211)
                                       (321111)  (42211)
                                                 (43111)
                                                 (52111)
                                                 (421111)
                                                 (3211111)

Ranking sequences are shown in parentheses below.
These partitions are ranked by (A383517).
A000041 counts integer partitions, strict A000009.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A239455 counts Look-and-Say partitions (A351294), complement A351293 (A351295).
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A336866 counts non Wilf partitions (A130092), conjugate (A383513).
A351592 counts non Wilf Look-and-Say partitions (A384006).
A381431 is the section-sum transform.
A383508 counts partitions that are both Look-and-Say and section-sum (A383515).
A383509 counts partitions that are Look-and-Say but not section-sum (A383516).
A383509 counts partitions that are not Look-and-Say but are section-sum (A384007).
A383519 counts section-sum Wilf partitions (A383520).
A383530 counts partitions that are neither Wilf nor conjugate Wilf (A383531).
Cf. A033461, A047966, A098859, A122111, A320348, A325324, A325325, A383511, A383709.

disjointFamilies[y_]:=Select[Tuples[IntegerPartitions /@ Length/@Split[y]],UnsameQ@@Join@@#&];
conj[y_]:=If[Length[y]==0,y, Table[Length[Select[y,#>=k&]], {k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n], disjointFamilies[#]=={} && disjointFamilies[conj[#]]=={}&]], {n,0,15}]

A383511 Number of integer partitions of n that are Look-and-Say and section-sum but not Wilf.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 1, 0, 1, 0, 3, 3, 0, 0, 5, 2, 1, 5, 6, 1, 10, 5, 12, 11, 12, 14, 31, 15, 25, 28, 38

Offset: 0

Gus Wiseman, May 18 2025

A partition is Look-and-Say iff it is possible to choose a disjoint family of strict partitions, one of each of its multiplicities. These are ranked by A351294.
A partition is section-sum iff its conjugate is Look-and-Say, meaning it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.
A partition is Wilf iff its multiplicities are all different (ranked by A130091).

			The a(n) partitions for n = 12, 15, 20, 24, 28:
  (6,3,3)  (6,6,3)    (8,8,4)    (12,6,6)         (14,7,7)
           (6,3,3,3)  (10,5,5)   (6,6,6,3,3)      (8,8,8,4)
                      (8,4,4,4)  (8,4,4,4,4)      (8,8,4,4,4)
                                 (6,6,3,3,3,3)    (8,4,4,4,4,4)
                                 (6,3,3,3,3,3,3)  (10,6,6,2,2,2)
                                                  (11,6,6,1,1,1,1,1)

Ranking sequences are shown in parentheses below.
This is the non Wilf case of A383508 (A383515).
These partitions are ranked by (A383518).
A000041 counts integer partitions, strict A000009.
A098859 counts Wilf partitions (A130091), conjugate (A383512).
A239455 counts Look-and-Say partitions (A351294), complement A351293 (A351295).
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A336866 counts non Wilf partitions (A130092), conjugate (A383513).
A351592 counts non Wilf Look-and-Say partitions (A384006).
A383509 counts partitions that are Look-and-Say but not section-sum (A383516).
A383509 counts partitions that are not Look-and-Say but are section-sum (A384007).
A383510 counts partitions that are neither Look-and-Say nor section-sum (A383517).
A383519 counts section-sum Wilf partitions (A383520).
Cf. A033461, A047966, A048767, A122111, A217605, A320348, A325324, A325325, A381431, A383530, A383709.

disjointFamilies[y_]:=Select[Tuples[IntegerPartitions /@ Length/@Split[y]],UnsameQ@@Join@@#&];
conj[y_]:=If[Length[y]==0,y, Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n], disjointFamilies[#]!={}&&disjointFamilies[conj[#]]!={} && !UnsameQ@@Length/@Split[#]&]], {n,0,30}]

A383516 Heinz numbers of Look-and-Say partitions that are not section-sum partitions.

Original entry on oeis.org

12, 18, 24, 48, 54, 63, 72, 96, 108, 144, 147, 162, 189, 192, 216, 288, 324, 360, 384, 432, 486, 504, 540, 567, 576, 600, 648, 720, 756, 768, 792, 864, 936, 972, 1008, 1029, 1152, 1176, 1188, 1200, 1224, 1296, 1323, 1350, 1368, 1400, 1404, 1440, 1458, 1500

Offset: 1

Gus Wiseman, May 18 2025

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
An integer partition is section-sum iff it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.
An integer partition is Look-and-Say iff it is possible to choose a disjoint family of strict partitions, one of each of its multiplicities. These are ranked by A351294.

			The terms together with their prime indices begin:
   12: {1,1,2}
   18: {1,2,2}
   24: {1,1,1,2}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   63: {2,2,4}
   72: {1,1,1,2,2}
   96: {1,1,1,1,1,2}
  108: {1,1,2,2,2}
  144: {1,1,1,1,2,2}
  147: {2,4,4}
  162: {1,2,2,2,2}
  189: {2,2,2,4}
  192: {1,1,1,1,1,1,2}
  216: {1,1,1,2,2,2}
  288: {1,1,1,1,1,2,2}
  324: {1,1,2,2,2,2}
  360: {1,1,1,2,2,3}
  384: {1,1,1,1,1,1,1,2}

Ranking sequences are shown in parentheses below.
These partitions are counted by A383509.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A098859 counts Wilf partitions (A130091), conjugate (A383512).
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions (A351294), complement A351293 (A351295).
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A336866 counts non Wilf partitions (A130092), conjugate (A383513).
A381431 is the section-sum transform.
A383508 counts partitions that are both Look-and-Say and section-sum (A383515).
A383509 counts partitions that are not Look-and-Say but are section-sum (A384007).
A383510 counts partitions that are neither Look-and-Say nor section-sum (A383517).
A383511 counts partitions that are Look-and-Say and section-sum but not Wilf (A383518).
Cf. A000720, A001223, A212166, A238745, A325368, A383514, A383520, A383531, A384006.

disjointFamilies[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],disjointFamilies[prix[#]]!={}&&disjointFamilies[conj[prix[#]]]=={}&]

A383517 Heinz numbers of integer partitions that are neither Look-and-Say nor section-sum partitions.

Original entry on oeis.org

6, 21, 30, 36, 42, 60, 66, 70, 78, 84, 90, 102, 105, 110, 114, 120, 126, 132, 138, 140, 150, 154, 156, 165, 168, 174, 180, 186, 198, 204, 210, 220, 222, 228, 231, 234, 238, 240, 246, 252, 258, 264, 270, 273, 276, 280, 282, 286, 294, 300, 306, 308, 312, 315

Offset: 1

Gus Wiseman, May 18 2025

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
An integer partition is section-sum iff it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432, complement A381433.
An integer partition is Look-and-Say iff it is possible to choose a disjoint family of strict partitions, one of each of its multiplicities. These are ranked by A351294, complement A351295.

			The terms together with their prime indices begin:
    6: {1,2}
   21: {2,4}
   30: {1,2,3}
   36: {1,1,2,2}
   42: {1,2,4}
   60: {1,1,2,3}
   66: {1,2,5}
   70: {1,3,4}
   78: {1,2,6}
   84: {1,1,2,4}
   90: {1,2,2,3}
  102: {1,2,7}
  105: {2,3,4}
  110: {1,3,5}
  114: {1,2,8}
  120: {1,1,1,2,3}

Ranking sequences are shown in parentheses below.
These partitions are counted by A383510.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A098859 counts Wilf partitions (A130091), conjugate (A383512).
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions (A351294), complement A351293 (A351295).
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A336866 counts non Wilf partitions (A130092), conjugate (A383513).
A381431 is the section-sum transform.
A383508 counts partitions that are both Look-and-Say and section-sum (A383515).
A383509 counts partitions that are Look-and-Say but not section-sum (A383516).
A383509 counts partitions that are not Look-and-Say but are section-sum (A384007).
Cf. A000720, A001223, A051903, A212166, A238745, A325368, A383514, A383518, A383520, A384006.

disjointFamilies[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],disjointFamilies[prix[#]]=={}&&disjointFamilies[conj[prix[#]]]=={}&]

A384007 Heinz numbers of non Look-and-Say section-sum partitions.

Original entry on oeis.org

10, 14, 15, 22, 26, 33, 34, 35, 38, 39, 46, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 122, 123, 129, 130, 133, 134, 141, 142, 143, 145, 146, 155, 158, 159, 161, 166, 170, 177, 178, 182, 183, 185, 187, 190

Offset: 1

Gus Wiseman, May 19 2025

nonn

First differs from A383514 in lacking 1000.
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
An integer partition is Look-and-Say iff it is possible to choose a disjoint family of strict partitions, one of each of its multiplicities. These are ranked by A351294.
An integer partition is section-sum iff it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.

			The terms together with their prime indices begin:
    10: {1,3}    57: {2,8}      94: {1,15}
    14: {1,4}    58: {1,10}     95: {3,8}
    15: {2,3}    62: {1,11}    100: {1,1,3,3}
    22: {1,5}    65: {3,6}     106: {1,16}
    26: {1,6}    69: {2,9}     111: {2,12}
    33: {2,5}    74: {1,12}    115: {3,9}
    34: {1,7}    77: {4,5}     118: {1,17}
    35: {3,4}    82: {1,13}    119: {4,7}
    38: {1,8}    85: {3,7}     122: {1,18}
    39: {2,6}    86: {1,14}    123: {2,13}
    46: {1,9}    87: {2,10}    129: {2,14}
    51: {2,7}    91: {4,6}     130: {1,3,6}
    55: {3,5}    93: {2,11}    133: {4,8}

Ranking sequences are shown in parentheses below.
These partitions are counted by A383509.
Negating both properties gives (A383516).
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A098859 counts Wilf partitions (A130091), conjugate (A383512).
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions (A351294), complement A351293 (A351295).
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A383508 counts partitions that are both Look-and-Say and section-sum (A383515).
A383510 counts partitions that are neither Look-and-Say nor section-sum (A383517).
A383511 counts partitions that are Look-and-Say and section-sum but not Wilf (A383518).
Cf. A000720, A001223, A212166, A238745, A325368, A383514, A383520, A383531, A384006.

disjointFamilies[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],disjointFamilies[prix[#]]=={}&&disjointFamilies[conj[prix[#]]]!={}&]

A384323 Number of integer partitions of n with exactly two possible ways to choose disjoint strict partitions of each part.

Original entry on oeis.org

0, 0, 0, 1, 1, 0, 3, 3, 2, 0, 6, 6, 6, 6, 4, 10, 10, 14, 16, 15, 16, 17, 20, 25, 27, 28, 37, 43, 31, 42, 44

Offset: 0

Gus Wiseman, May 30 2025

			For y = (4,3,3) we have two ways: ((4),(3),(2,1)) and ((4),(2,1),(3)), so y is counted under a(10).
The a(0) = 0 through a(15) = 10 partitions:
  .  .  .  3  4  .  33  43  44  .  433  533  543  544  554  5433
                    42  52  62     442  542  552  553  644  5442
                    51  61         532  551  633  652  662  5532
                                   541  632  732  661  833  5541
                                   631  731  741  733       6432
                                   721  821  831  832       6531
                                                            7431
                                                            7521
                                                            8421
                                                            9321

For just one choice we have A179009, ranked by A383707.
Twice-partitions of this type are counted by A279790.
For at least one choice we have A383708, odd case A383533.
For no choices we have A383710, odd case A383711.
For more than one choice we have A384317, ranked by A384321.
The strict version for at least one choice is A384318, ranked by A384322.
The strict version is A384319, ranked by A384390.
These partitions are ranked by A384347 = positions of 2 in A383706.
A000041 counts integer partitions, strict A000009.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A239455 counts Look-and-Say partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say partitions, ranks A351295 or A381433.
A357982 counts choices of strict partitions of each prime index.
Cf. A098859, A299200, A317142, A381454, A382525, A382912, A382913, A384005.

pof[y_]:=Select[Join@@@Tuples[IntegerPartitions/@y],UnsameQ@@#&];
Table[Length[Select[IntegerPartitions[n],Length[pof[#]]==2&]],{n,0,15}]

A381541 Numbers appearing more than once in A048767 (Look-and-Say partition of prime indices).

Original entry on oeis.org

8, 16, 27, 32, 64, 81, 96, 125, 128, 144, 160, 192, 216, 224, 243, 256, 288

Offset: 1

Gus Wiseman, Mar 02 2025

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.
The Look-and-Say partition of a multiset or partition y is obtained by interchanging parts with multiplicities. For example, starting with (3,2,2,1,1) we get (2,2,2,1,1,1), the multiset union of ((1,1,1),(2,2),(2)).
The conjugate of a Look-and-Say partition is a section-sum partition; see A381431, union A381432, count A239455.

			The terms together with their prime indices begin:
    8: {1,1,1}
   16: {1,1,1,1}
   27: {2,2,2}
   32: {1,1,1,1,1}
   64: {1,1,1,1,1,1}
   81: {2,2,2,2}
   96: {1,1,1,1,1,2}
  125: {3,3,3}
  128: {1,1,1,1,1,1,1}
  144: {1,1,1,1,2,2}
  160: {1,1,1,1,1,3}
  192: {1,1,1,1,1,1,2}
  216: {1,1,1,2,2,2}
  224: {1,1,1,1,1,4}
  243: {2,2,2,2,2}
  256: {1,1,1,1,1,1,1,1}
  288: {1,1,1,1,1,2,2}
For example, the term 96 appears in A048767 at positions 44 and 60, with prime indices:
  44: {1,1,5}
  60: {1,1,2,3}

In A048767:
- fixed points are A048768, A217605
- conjugate is A381431, fixed points A000961, A000005
- all numbers present are A351294, conjugate A381432
- numbers missing are A351295, conjugate A381433
- numbers appearing only once are A381540, conjugate A381434
- numbers appearing more than once are A381541 (this), conjugate A381435
A000040 lists the primes.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions, complement A351293.
A381440 lists Look-and-Say partitions of prime indices, conjugate A381436.
Cf. A000720, A001222, A003557, A047966, A051903, A051904, A066328, A071178, A116861, A130091, A239964.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
hls[y_]:=Product[Prime[Count[y,x]]^x,{x,Union[y]}];
Select[Range[100],Count[hls/@IntegerPartitions[Total[prix[#]]],#]>1&]

A383518 Heinz numbers of integer partitions that are Look-and-Say and section-sum but not conjugate Wilf partitions.

Original entry on oeis.org

325, 845, 931, 1625, 2527, 3509, 6253, 6517, 8125, 9251

Offset: 1

Gus Wiseman, May 18 2025

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
An integer partition is Look-and-Say iff it is possible to choose a disjoint family of strict partitions, one of each of its multiplicities. These are ranked by A351294.
An integer partition is section-sum iff it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.
A integer partition is Wilf iff its multiplicities are all different (ranked by A130091). It is conjugate Wilf iff its positive 0-appended differences are all different (ranked by A383512).

			The terms together with their prime indices begin:
   325: {3,3,6}
   845: {3,6,6}
   931: {4,4,8}
  1625: {3,3,3,6}
  2527: {4,8,8}
  3509: {5,5,10}
  6253: {6,6,12}
  6517: {4,4,4,8}
  8125: {3,3,3,3,6}
  9251: {5,10,10}

Ranking sequences are shown in parentheses below.
These partitions are counted by A383511.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A098859 counts Wilf partitions (A130091), conjugate (A383512).
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions (A351294), complement A351293 (A351295).
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A336866 counts non Wilf partitions (A130092), conjugate (A383513).
A381431 is the section-sum transform.
A383508 counts partitions that are both Look-and-Say and section-sum (A383515).
A383509 counts partitions that are Look-and-Say but not section-sum (A383516).
A383509 counts partitions that are not Look-and-Say but are section-sum (A384007).
A383510 counts partitions that are neither Look-and-Say nor section-sum (A383517).
Cf. A047966, A051903, A212166, A238745, A325368, A351592, A383531.

disjointFamilies[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[1000],disjointFamilies[prix[#]]!={}&&disjointFamilies[conj[prix[#]]]!={}&&!UnsameQ@@Length/@Split[conj[prix[#]]]&]

cp's OEIS Frontend

A386581 Number of normal multisets of size n with no permutation having all distinct run lengths.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381434 Numbers appearing only once in A381431 (section-sum partition of prime indices).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A383510 Number of integer partitions of n that are neither Look-and-Say nor section-sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383511 Number of integer partitions of n that are Look-and-Say and section-sum but not Wilf.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383516 Heinz numbers of Look-and-Say partitions that are not section-sum partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383517 Heinz numbers of integer partitions that are neither Look-and-Say nor section-sum partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A384007 Heinz numbers of non Look-and-Say section-sum partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A384323 Number of integer partitions of n with exactly two possible ways to choose disjoint strict partitions of each part.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A381541 Numbers appearing more than once in A048767 (Look-and-Say partition of prime indices).

Views

Author

Keywords

Comments

Examples

Crossrefs