A381541 -id:A381541 - cp's OEIS frontend

A382525 Number of times n appears in A048767 (rank of Look-and-Say partition of prime indices). Number of ordered set partitions whose block-sums are the prime signature of n.

1, 1, 1, 1, 1, 0, 1, 2, 1, 0, 1, 1, 1, 0, 0, 2, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 2, 1, 1, 0, 1, 3, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 4, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 2, 0, 1, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Apr 05 2025

nonn

The Look-and-Say partition of a multiset or partition y is obtained by interchanging parts with multiplicities. Hence, the multiplicity of k in the Look-and-Say partition of y is the sum of all parts that appear exactly k times. 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)).
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.
Also the number of ways to choose a set of disjoint strict integer partitions, one of each nonzero multiplicity in the prime factorization of n.

			The a(27) = 2 partitions with Look-and-Say partition (2,2,2) are: (3,3), (2,2,1,1).
The prime indices of 3456 are {1,1,1,1,1,1,1,2,2,2}, and the partitions with Look-and-Say partition (2,2,2,1,1,1,1,1,1,1) are:
  (7,3,3)
  (7,2,2,1,1)
  (6,3,3,1)
  (5,3,3,2)
  (4,3,3,2,1)
  (4,3,2,2,1,1)
so a(3456) = 6.

Positions of positive terms are A351294, conjugate A381432.
Positions of 0 are A351295, conjugate A381433.
Positions of 1 are A381540, conjugate A381434.
Positions of terms > 1 are A381541, conjugate A381435.
Positions of first appearances are A382775.
A000670 counts ordered set partitions.
A003963 gives product of prime indices.
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.
A381436 lists the section-sum partition of prime indices, ranks A381431.
A381440 lists the Look-and-Say partition of prime indices, ranks A048767.
Cf. A003557, A047966, A048768, A050361, A051903, A051904, A066328, A071178, A116861, A130091, A217605, A239964.

stp[y_]:=Select[Tuples[Select[IntegerPartitions[#],UnsameQ@@#&]&/@y],UnsameQ@@Join@@#&];
Table[Length[stp[Last/@FactorInteger[n]]],{n,100}]

a(2^n) = A000009(n).

a(prime(n)) = 1.

A381440 Irregular triangle read by rows where row k is the Look-and-Say partition of the prime indices of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset: 1

Gus Wiseman, Feb 28 2025

Row lengths are A066328.
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 prime indices of 24 are (2,1,1,1), with Look-and-Say partition (3,1,1), so row 24 is (3,1,1).
The prime indices of 36 are (2,2,1,1), with Look-and-Say partition (2,2,2), so row 36 is (2,2,2).
Triangle begins:
   1: (empty)
   2: 1
   3: 1 1
   4: 2
   5: 1 1 1
   6: 1 1 1
   7: 1 1 1 1
   8: 3
   9: 2 2
  10: 1 1 1 1
  11: 1 1 1 1 1
  12: 2 1 1
  13: 1 1 1 1 1 1
  14: 1 1 1 1 1
  15: 1 1 1 1 1
  16: 4
  17: 1 1 1 1 1 1 1
  18: 2 2 1
  19: 1 1 1 1 1 1 1 1

Heinz numbers are A048767 (union A351294, complement A351295, fixed A048768, A217605).
First part in each row is A051903, conjugate A066328.
Last part in each row is A051904, conjugate A381437 (counted by A381438).
Row sums are A056239.
Row lengths are A066328.
Partitions of this type are counted by A239455, complement A351293.
The conjugate is A381436, Heinz numbers A381431 (union A381432, complement A381433).
Rows appearing only once have Heinz numbers A381540, more than once A381541.
A000040 lists the primes.
A003963 gives product of prime indices.
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.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Partition ideals: A300383, A317141, A381078, A381441, A381452, A381454.
Cf. A000720, A003557, A047966, A071178, A091602, A116861, A130091, A181819, A212166, A238744, A380955.

Table[Sort[Join@@Cases[FactorInteger[n],{p_,k_}:>ConstantArray[k,PrimePi[p]]]]//Reverse,{n,30}]

A381435 Numbers appearing more than once in A381431 (section-sum partition of prime indices).

Original entry on oeis.org

5, 7, 11, 13, 17, 19, 23, 25, 26, 29, 31, 34, 37, 38, 39, 41, 43, 46, 47, 49, 51, 52, 53, 57, 58, 59, 61, 62, 65, 67, 68, 69, 71, 73, 74, 76, 79, 82, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95, 97, 101, 103, 104, 106, 107, 109, 111, 113, 115, 116, 117, 118, 119

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:
   5: {3}
   7: {4}
  11: {5}
  13: {6}
  17: {7}
  19: {8}
  23: {9}
  25: {3,3}
  26: {1,6}
  29: {10}
  31: {11}
  34: {1,7}
  37: {12}
  38: {1,8}
  39: {2,6}
  41: {13}
  43: {14}
  46: {1,9}
  47: {15}
  49: {4,4}
  51: {2,7}
  52: {1,1,6}

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, conjugate A381540
- numbers appearing more than once are A381435 (this), 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 A381434 U A381433.

A383089 Numbers whose prime indices have more than one permutation with all equal run-lengths.

Original entry on oeis.org

6, 10, 14, 15, 21, 22, 26, 30, 33, 34, 35, 36, 38, 39, 42, 46, 51, 55, 57, 58, 60, 62, 65, 66, 69, 70, 74, 77, 78, 82, 84, 85, 86, 87, 90, 91, 93, 94, 95, 100, 102, 105, 106, 110, 111, 114, 115, 118, 119, 120, 122, 123, 126, 129, 130, 132, 133, 134, 138, 140

Offset: 1

Gus Wiseman, Apr 18 2025

nonn

First differs from A362606 (complement A359178 with 1) in having 180 and lacking 240.
First differs from A130092 (complement A130091) in having 360 and lacking 240.
First differs from A351295 (complement A351294) in having 216 and lacking 240.
Includes all squarefree numbers A005117 except the primes A000040.
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.

			The prime indices of 36 are {1,1,2,2}, and we have 4 permutations each having all equal run-lengths: (1,1,2,2), (1,2,1,2), (2,2,1,1), (2,1,2,1), so 36 is in the sequence.
The terms together with their prime indices begin:
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   21: {2,4}
   22: {1,5}
   26: {1,6}
   30: {1,2,3}
   33: {2,5}
   34: {1,7}
   35: {3,4}
   36: {1,1,2,2}
   38: {1,8}
   39: {2,6}
   42: {1,2,4}
   46: {1,9}
   51: {2,7}
   55: {3,5}
   57: {2,8}
   58: {1,10}
   60: {1,1,2,3}

Positions of terms > 1 in A382857 (distinct A382771), zeros A382879, ones A383112.
For run-sums instead of lengths we have A383015, counted by A383097.
Partitions of this type are counted by A383090.
The complement is A383091, counted by A383092, just zero A382915, just one A383094.
For distinct instead of equal run-sums we have A383113.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A047966 counts partitions with equal run-lengths, compositions A329738.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A098859 counts partitions with distinct run-lengths, ranks A130091.
A239455 counts Look-and-Say partitions, ranks A351294, conjugate A381432.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
Cf. A000720, A000961, A001221, A001222, A048767, A353744, A353833, A381541, A381871, A382877, A383014, A383100.

Select[Range[100],Length[Select[Permutations[PrimePi/@Join @@ ConstantArray@@@FactorInteger[#]], SameQ@@Length/@Split[#]&]]>1&]

The complement is A383091 = A382879 \/ A383112, counted by A382915 + A383094.

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.

A383090 Number of integer partitions of n having more than one permutation with all equal run-lengths.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 4, 5, 9, 14, 20, 28, 43, 55, 77, 107, 141, 183, 244, 312, 411, 521, 664, 837, 1069, 1328, 1667, 2069, 2578, 3166, 3929, 4791, 5895, 7168, 8749, 10594, 12883, 15500, 18741, 22493, 27069, 32334, 38760, 46133, 55065, 65367, 77686, 91905, 108927, 128431, 151674

Offset: 0

Gus Wiseman, Apr 19 2025

nonn

			The partition (3322221) has 3 permutations with all equal run-lengths: (2323212), (2321232), (2123232), so is counted under a(15).
The partition (3322111111) has 2 permutations with all equal run-lengths: (1133112211), (1122113311), so is counted under a(16).
The a(3) = 1 through a(9) = 14 partitions:
  (21)  (31)  (32)  (42)    (43)    (53)     (54)
              (41)  (51)    (52)    (62)     (63)
                    (321)   (61)    (71)     (72)
                    (2211)  (421)   (431)    (81)
                            (3211)  (521)    (432)
                                    (3221)   (531)
                                    (3311)   (621)
                                    (4211)   (3321)
                                    (32111)  (4221)
                                             (4311)
                                             (5211)
                                             (32211)
                                             (42111)
                                             (222111)

For no choices we have A382915, ranks A382879.
For at least one choice we have A383013, for run-sums A383098, ranks A383110.
Partitions of this type are ranked by A383089 = positions of terms > 1 in A382857.
The complement is A383091, counted by A383092.
For a unique choice we have A383094, ranks A383112.
The complement for run-sums is A383095 + A383096, ranks A383099 \/ A383100.
For run-sums we have A383097, ranked by A383015 = positions of terms > 1 in A382877.
For distinct instead of equal run-lengths we have A383111, ranks A383113.
Cf. A047966, A072774, A098859, A304442, A100471, A100881, A100882, A100883.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A239455 counts Look-and-Say partitions, ranks A351294, conjugate A381432.
A329738 counts compositions with equal run-lengths, ranks A353744.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
Cf. A047993, A237984, A329739, A381541, A381871, A382076, A382771.

Table[Length[Select[IntegerPartitions[n], Length[Select[Permutations[#], SameQ@@Length/@Split[#]&]]>1&]],{n,0,15}]

The complement is counted by A383094 + A382915, ranks A383112 \/ A382879.

More terms from Bert Dobbelaere, Apr 26 2025

A381540 Numbers appearing only once in A048767 (Look-and-Say partition of prime indices).

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 9, 11, 12, 13, 17, 18, 19, 20, 23, 24, 25, 28, 29, 31, 37, 40, 41, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 61, 63, 67, 68, 71, 72, 73, 75, 76, 79, 80, 83, 88, 89, 92, 97, 98, 99, 101, 103, 104, 107, 108, 109, 112, 113, 116, 117, 121

Offset: 1

Gus Wiseman, Mar 02 2025

nonn

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:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  13: {6}
  17: {7}
  18: {1,2,2}
  19: {8}
  20: {1,1,3}
  23: {9}
  24: {1,1,1,2}

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 (this), conjugate A381434
- numbers appearing more than once are A381541, 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 partition 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&]

A383111 Number of integer partitions of n having more than one permutation with all distinct run-lengths.

Original entry on oeis.org

0, 0, 0, 0, 1, 3, 3, 8, 9, 13, 17, 26, 27, 43, 51, 61, 78, 103, 115, 153, 174, 213, 255, 316, 354, 442, 508, 610, 701, 848, 950, 1153, 1303, 1539, 1750, 2075, 2318, 2738, 3081

Offset: 0

Gus Wiseman, Apr 20 2025

			The partition (2,1,1) has two permutations with all distinct run-lengths: (1,1,2), (2,1,1), so it is counted under a(4).
The a(4) = 1 through a(9) = 13 partitions:
  (211)  (221)   (411)    (322)     (332)      (441)
         (311)   (3111)   (331)     (422)      (522)
         (2111)  (21111)  (511)     (611)      (711)
                          (2221)    (5111)     (3222)
                          (4111)    (22211)    (6111)
                          (22111)   (41111)    (22221)
                          (31111)   (221111)   (33111)
                          (211111)  (311111)   (51111)
                                    (2111111)  (222111)
                                               (411111)
                                               (2211111)
                                               (3111111)
                                               (21111111)

For a unique choice we have A000005, ranks A000961.
For at least one choice we have A239455, ranks A351294, conjugate A381432.
For no choices we have A351293, ranks A351295, conjugate A381433.
The complement is A351293 + A000005, ranks too dense.
For equal instead of distinct run-lengths we have A383090, ranks A383089.
These partitions are ranked by A383113 = positions of terms > 1 in A382771.
Cf. A047966, A098859, A130091, A353837, A100471, A100881, A100882, A100883
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A329738 counts compositions with equal run-lengths, ranks A353744.
Cf. A047993, A329739, A381541, A381636, A381717, A382857, A382915, A383013, A383092, A383094, A383097.

Table[Length[Select[IntegerPartitions[n], Length[Select[Permutations[#], UnsameQ@@Length/@Split[#]&]]>1&]],{n,0,15}]

a(21)-a(38) from Jakub Buczak, May 04 2025

cp's OEIS Frontend

A382525 Number of times n appears in A048767 (rank of Look-and-Say partition of prime indices). Number of ordered set partitions whose block-sums are the prime signature of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A381440 Irregular triangle read by rows where row k is the Look-and-Say partition of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381435 Numbers appearing more than once in A381431 (section-sum partition of prime indices).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A383089 Numbers whose prime indices have more than one permutation with all equal run-lengths.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A383090 Number of integer partitions of n having more than one permutation with all equal run-lengths.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A381540 Numbers appearing only once in A048767 (Look-and-Say partition of prime indices).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383111 Number of integer partitions of n having more than one permutation with all distinct run-lengths.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions