A335125 -id:A335125 - cp's OEIS frontend

A386635 Triangle read by rows where T(n,k) is the number of separable type set partitions of {1..n} into k blocks.

1, 0, 1, 0, 0, 1, 0, 0, 3, 1, 0, 0, 3, 6, 1, 0, 0, 10, 25, 10, 1, 0, 0, 10, 75, 65, 15, 1, 0, 0, 35, 280, 350, 140, 21, 1, 0, 0, 35, 770, 1645, 1050, 266, 28, 1, 0, 0, 126, 2737, 7686, 6951, 2646, 462, 36, 1, 0, 0, 126, 7455, 32725, 42315, 22827, 5880, 750, 45, 1

Offset: 0

Gus Wiseman, Aug 10 2025

A set partition is of separable type iff the underlying set has a permutation whose adjacent elements always belong to different blocks. Note that this only depends on the sizes of the blocks.
A set partition is also of separable type iff its greatest block size is at most one more than the sum of all its other blocks sizes.
This is different from separable partitions (A325534) and partitions of separable type (A336106).

			Row n = 4 counts the following set partitions:
  .  .  {{1,2},{3,4}}  {{1},{2},{3,4}}  {{1},{2},{3},{4}}
        {{1,3},{2,4}}  {{1},{2,3},{4}}
        {{1,4},{2,3}}  {{1},{2,4},{3}}
                       {{1,2},{3},{4}}
                       {{1,3},{2},{4}}
                       {{1,4},{2},{3}}
Triangle begins:
    1
    0    1
    0    0    1
    0    0    3    1
    0    0    3    6    1
    0    0   10   25   10    1
    0    0   10   75   65   15    1
    0    0   35  280  350  140   21    1

Column k = 2 appears to be A128015.
For separable partitions we have A386583, sums A325534, ranks A335433.
For inseparable partitions we have A386584, sums A325535, ranks A335448.
For separable type partitions we have A386585, sums A336106, ranks A335127.
For inseparable type partitions we have A386586, sums A386638 or A025065, ranks A335126.
Row sums are A386633.
The complement is counted by A386636, row sums A386634.
A000110 counts set partitions, row sums of A048993.
A000670 counts ordered set partitions.
A003242 and A335452 count anti-runs, ranks A333489, patterns A005649.
A239455 counts Look-and-Say partitions, ranks A351294, conjugate A381432.
A335434 counts separable factorizations, inseparable A333487.
A336103 counts normal separable multisets, inseparable A336102.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
A386587 counts disjoint families of strict partitions of each prime exponent.
Cf. A072233, A097805, A106351, A116861, A190945, A279790, A333382, A335125, A374252, A386575, A386578.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
stnseps[stn_]:=Select[Permutations[Union@@stn],And@@Table[Position[stn,#[[i]]][[1,1]]!=Position[stn,#[[i+1]]][[1,1]],{i,Length[#]-1}]&];
Table[Length[Select[sps[Range[n]],Length[#]==k&&stnseps[#]!={}&]],{n,0,5},{k,0,n}]

A386636 Triangle read by rows where T(n,k) is the number of inseparable type set partitions of {1..n} into k blocks.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 4, 0, 0, 0, 1, 5, 0, 0, 0, 0, 1, 21, 15, 0, 0, 0, 0, 1, 28, 21, 0, 0, 0, 0, 0, 1, 92, 196, 56, 0, 0, 0, 0, 0, 1, 129, 288, 84, 0, 0, 0, 0, 0, 0, 1, 385, 1875, 1380, 210, 0, 0, 0, 0, 0, 0, 1, 561, 2860, 2145, 330, 0, 0, 0, 0, 0, 0

Offset: 0

Gus Wiseman, Aug 10 2025

A set partition is of inseparable type iff the underlying set has no permutation whose adjacent elements always belong to different blocks. Note that this only depends on the sizes of the blocks.
A set partition is also of inseparable type iff its greatest block size is at least 2 more than the sum of all its other block sizes.
This is different from inseparable partitions (A325535) and partitions of inseparable type (A386638 or A025065).

			Row n = 6 counts the following set partitions:
  .  {123456}  {1}{23456}  {1}{2}{3456}  .  .  .
               {12}{3456}  {1}{2345}{6}
               {13}{2456}  {1}{2346}{5}
               {14}{2356}  {1}{2356}{4}
               {15}{2346}  {1}{2456}{3}
               {16}{2345}  {1234}{5}{6}
               {1234}{56}  {1235}{4}{6}
               {1235}{46}  {1236}{4}{5}
               {1236}{45}  {1245}{3}{6}
               {1245}{36}  {1246}{3}{5}
               {1246}{35}  {1256}{3}{4}
               {1256}{34}  {1345}{2}{6}
               {1345}{26}  {1346}{2}{5}
               {1346}{25}  {1356}{2}{4}
               {1356}{24}  {1456}{2}{3}
               {1456}{23}
               {12345}{6}
               {12346}{5}
               {12356}{4}
               {12456}{3}
               {13456}{2}
Triangle begins:
    0
    0    0
    0    1    0
    0    1    0    0
    0    1    4    0    0
    0    1    5    0    0    0
    0    1   21   15    0    0    0
    0    1   28   21    0    0    0    0
    0    1   92  196   56    0    0    0    0
    0    1  129  288   84    0    0    0    0    0
    0    1  385 1875 1380  210    0    0    0    0    0

For separable partitions we have A386583, sums A325534, ranks A335433.
For inseparable partitions we have A386584, sums A325535, ranks A335448.
For separable type partitions we have A386585, sums A336106, ranks A335127.
For inseparable type partitions we have A386586, sums A386638 or A025065, ranks A335126.
Row sums are A386634.
The complement is counted by A386635, row sums A386633.
A000110 counts set partitions, row sums of A048993.
A000670 counts ordered set partitions.
A003242 and A335452 count anti-runs, ranks A333489, patterns A005649.
A279790 counts disjoint families on strongly normal multisets.
A335434 counts separable factorizations, inseparable A333487.
A336103 counts normal separable multisets, inseparable A336102.
A386587 counts disjoint families of strict partitions of each prime exponent.
Cf. A008284, A072233, A097805, A106351, A116861, A124762, A129506, A190945, A239455, A335125, A374252, A386575.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
stnseps[stn_]:=Select[Permutations[Union@@stn],And@@Table[Position[stn,#[[i]]][[1,1]]!=Position[stn,#[[i+1]]][[1,1]],{i,Length[#]-1}]&]
Table[Length[Select[sps[Range[n]],Length[#]==k&&stnseps[#]=={}&]],{n,0,5},{k,0,n}]

A382773 Number of ways to permute a multiset whose multiplicities are the prime indices of n so that the run-lengths are all different.

Original entry on oeis.org

1, 1, 1, 0, 1, 2, 1, 0, 0, 2, 1, 0, 1, 2, 2, 0, 1, 0, 1, 0, 4, 4, 1, 0, 4, 4, 0, 0, 1, 6, 1, 0, 4, 6, 4, 0, 1, 6, 4, 0, 1, 6, 1, 0, 0, 8, 1, 0, 4, 0, 6, 0, 1, 0, 6, 0, 6, 8, 1, 0, 1, 10, 0, 0, 8, 6, 1, 0, 8, 6, 1, 0, 1, 10, 0, 0, 6, 6, 1, 0, 0, 12, 1, 0, 16

Offset: 1

Gus Wiseman, Apr 09 2025

nonn

This described multiset (row n of A305936, Heinz number A181821) is generally not the same as the multiset of prime indices of n (A112798). For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			The a(n) partitions for n = 6, 21, 30, 46:
  (1,1,2)  (1,1,1,1,2,2)  (1,1,1,2,2,3)  (1,1,1,1,1,1,1,1,1,2)
  (2,1,1)  (1,1,1,2,2,1)  (1,1,1,3,2,2)  (1,1,1,1,1,1,1,2,1,1)
           (1,2,2,1,1,1)  (2,2,1,1,1,3)  (1,1,1,1,1,1,2,1,1,1)
           (2,2,1,1,1,1)  (2,2,3,1,1,1)  (1,1,1,1,1,2,1,1,1,1)
                          (3,1,1,1,2,2)  (1,1,1,1,2,1,1,1,1,1)
                          (3,2,2,1,1,1)  (1,1,1,2,1,1,1,1,1,1)
                                         (1,1,2,1,1,1,1,1,1,1)
                                         (2,1,1,1,1,1,1,1,1,1)

Positions of 1 are A008578.
For anti-run permutations we have A335125.
For just prime indices we have A382771, firsts A382772, equal A382857.
These permutations for factorials are counted by A382774, equal A335407.
For equal instead of distinct run-lengths we have A382858.
Positions of 0 are A382912, complement A382913.
A044813 lists numbers whose binary expansion has distinct run-lengths, equal A140690.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A098859 counts partitions with distinct multiplicities, ordered A242882.
A239455 counts Look-and-Say partitions, ranks A351294, conjugate A381432.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
Cf. A000670, A000720, A003242, A048767, A130091, A181821, A238130, A305936, A351013, A351202, A382876, A382879.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Table[Length[Select[Permutations[nrmptn[n]],UnsameQ@@Length/@Split[#]&]],{n,100}]

a(n) = A382771(A181821(n)) = A382771(A304660(n)).

A382858 Number of ways to permute a multiset whose multiplicities are the prime indices of n so that the run-lengths are all equal.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 6, 4, 0, 1, 6, 1, 0, 1, 24, 1, 12, 1, 2, 1, 0, 1, 36, 4, 0, 36, 0, 1, 10, 1, 120, 0, 0, 1, 84, 1, 0, 0, 24, 1, 3, 1, 0, 38, 0, 1, 240, 6, 18, 0, 0, 1, 246, 0, 6, 0, 0, 1, 96, 1, 0, 30, 720, 1, 0, 1, 0, 0, 14, 1, 660, 1, 0, 74, 0, 1, 0, 1

Offset: 1

Gus Wiseman, Apr 09 2025

nonn

This described multiset (row n of A305936, Heinz number A181821) is generally not the same as the multiset of prime indices of n (A112798). For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			The a(9) = 4 permutations are:
  (1,1,2,2)
  (1,2,1,2)
  (2,1,2,1)
  (2,2,1,1)

The anti-run case is A335125.
These permutations for factorials are counted by A335407, distinct A382774.
For distinct instead of equal run-lengths we have A382773.
For prime indices we have A382857 (firsts A382878), distinct A382771 (firsts A382772).
Positions of 0 are A382914, signature restriction of A382915.
A003963 gives product of prime indices.
A140690 lists numbers whose binary expansion has equal run-lengths, distinct A044813.
A047966 counts partitions with equal multiplicities, distinct A098859.
A056239 adds up prime indices, row sums of A112798.
A304442 counts partitions with equal run-sums, ranks A353833.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
A382913 ranks Look-and-Say partitions by signature, complement A382912.
Cf. A000720, A000961, A001221, A001222, A003242, A048767, A181821, A182854, A238130, A305936, A351202, A382879.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Table[Length[Select[Permutations[nrmptn[n]],SameQ@@Length/@Split[#]&]],{n,100}]

a(n) = A382857(A181821(n)) = A382857(A304660(n)).

A382914 Numbers k such that it is not possible to permute a multiset whose multiplicities are the prime indices of k so that the run-lengths are all equal.

Original entry on oeis.org

10, 14, 22, 26, 28, 33, 34, 38, 39, 44, 46, 51, 52, 55, 57, 58, 62, 66, 68, 69, 74, 76, 78, 82, 85, 86, 87, 88, 92, 93, 94, 95, 102, 104, 106, 111, 114, 115, 116, 118, 119, 122, 123, 124, 129, 130, 134, 136, 138, 141, 142, 145, 146, 148, 152, 153, 155, 156

Offset: 1

Gus Wiseman, Apr 09 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, sum A056239.

			The terms together with their prime indices begin:
  10: {1,3}
  14: {1,4}
  22: {1,5}
  26: {1,6}
  28: {1,1,4}
  33: {2,5}
  34: {1,7}
  38: {1,8}
  39: {2,6}
  44: {1,1,5}
  46: {1,9}
  51: {2,7}
  52: {1,1,6}
  55: {3,5}
  57: {2,8}
  58: {1,10}
  62: {1,11}
  66: {1,2,5}

For anti-run permutations we have A335126, complement A335127.
Zeros of A382858, anti-run A335125.
For prime indices instead of signature we have A382879, counted by A382915.
For distinct run-lengths we have A382912 (zeros of A382773), complement A382913.
A003963 gives product of prime indices.
A056239 adds up prime indices, row sums of A112798.
A140690 lists numbers whose binary expansion has equal run-lengths, distinct A044813.
A304442 counts partitions with equal run-sums, ranks A353833.
A164707 lists numbers whose binary form has equal runs of ones, distinct A328592.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
Cf. A382857 (firsts A382878), A382771 (firsts A382772).
Cf. A000720, A000961, A001221, A001222, A048767, A181821, A305936, A351013, A382877.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],Select[Permutations[nrmptn[#]],SameQ@@Length/@Split[#]&]=={}&]

A386638 Number of integer partitions of n of inseparable type.

Original entry on oeis.org

0, 0, 1, 1, 2, 2, 4, 4, 7, 7, 12, 12, 19, 19, 30, 30, 45, 45, 67, 67, 97, 97, 139, 139, 195, 195, 272, 272, 373, 373, 508, 508, 684, 684, 915, 915, 1212, 1212, 1597, 1597, 2087, 2087, 2714, 2714, 3506, 3506, 4508, 4508, 5763, 5763, 7338, 7338, 9296, 9296

Offset: 0

Gus Wiseman, Aug 14 2025

nonn

A multiset is inseparable iff it has no permutation without adjacent equal parts. It is of inseparable type iff any multiset with those multiplicities (type) is inseparable. For example, {1,1,2} is separable but {1,1,1,2} is not; hence (2,1) is of separable type but (3,1) is not.

Also the number of integer partitions of n whose greatest part is at least two more than the sum of all the other parts.

			The a(2) = 1 through a(10) = 12 partitions (A=10):
  (2)  (3)  (4)   (5)   (6)    (7)    (8)     (9)     (A)
            (31)  (41)  (42)   (52)   (53)    (63)    (64)
                        (51)   (61)   (62)    (72)    (73)
                        (411)  (511)  (71)    (81)    (82)
                                      (521)   (621)   (91)
                                      (611)   (711)   (622)
                                      (5111)  (6111)  (631)
                                                      (721)
                                                      (811)
                                                      (6211)
                                                      (7111)
                                                      (61111)

Reduplication of A000070 shifted right.
Same as A025065 shifted right twice.
The Heinz numbers of these partitions are A335126.
Row sums of A386586.
A003242 and A335452 count anti-runs, ranks A333489, patterns A005649.
A239455 counts Look-and-Say partitions, inseparable case A386632.
A325534 counts separable multisets, ranks A335433, sums of A386583.
A325535 counts inseparable multisets, ranks A335448, sums of A386584.
A335434 counts separable factorizations, inseparable A333487.
A336103 counts normal separable multisets, inseparable A336102.
A336106 counts separable type partitions, ranks A335127, sums of A386585.
A386633 counts separable type set partitions, row sums of A386635.
A386634 counts inseparable type set partitions, row sums of A386636.
Cf. A000110, A008284, A047966, A072233, A106351, A124762, A217605, A239964, A279790, A335125, A351293, A386577.

Table[Length[Select[IntegerPartitions[n],2*Max@@#>1+n&]],{n,0,15}]

For n>1, a(n) = A025065(n-2).

a(n) = A000041(n) - A336106(n).

A386579 Number of permutations of row n of A305936 (a multiset whose multiplicities are the prime indices of n) with k adjacent unequal parts.

Original entry on oeis.org

1, 1, 0, 0, 2, 1, 0, 0, 0, 2, 1, 1, 0, 0, 0, 0, 0, 6, 0, 2, 2, 2, 0, 2, 2, 0, 1, 0, 0, 0, 0, 0, 0, 6, 6, 1, 0, 0, 0, 0, 0, 0, 2, 3, 0, 0, 0, 2, 3, 4, 1, 0, 0, 0, 24, 1, 0, 0, 0, 0, 0, 0, 0, 0, 6, 12, 12, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 12, 2, 0, 2, 4, 6, 3, 0

Offset: 2

Gus Wiseman, Aug 04 2025

Row 1 is empty, so offset is 2.
Same as A386578 with rows reversed.
This multiset (row n of A305936) is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			Row n = 21 counts the following permutations:
  .  111122  111221  111212  112121  .
     221111  112211  112112  121121
             122111  121112  121211
             211112  211121
                     211211
                     212111
Triangle begins:
  .
  1
  1  0
  0  2
  1  0  0
  0  2  1
  1  0  0  0
  0  0  6
  0  2  2  2
  0  2  2  0
  1  0  0  0  0
  0  0  6  6
  1  0  0  0  0  0
  0  2  3  0  0
  0  2  3  4  1
  0  0  0 24
  1  0  0  0  0  0  0
  0  0  6 12 12
  1  0  0  0  0  0  0  0
  0  0  6 12  2
  0  2  4  6  3  0

Column k = 0 is A010051.
Row lengths are A056239.
Row sums are A318762.
Column k = last is A335125.
For prime indices we have A374252, reverse A386577.
Reversing all rows gives A386578.
A003242 and A335452 count anti-runs, ranks A333489, patterns A005649.
A025065(n - 2) counts partitions of inseparable type, ranks A335126, sums of A386586.
A124762 gives inseparability of standard compositions, separability A333382.
A305936 is a multiset whose multiplicities are the prime indices of n.
A325534 counts separable multisets, ranks A335433, sums of A386583.
A325535 counts inseparable multisets, ranks A335448, sums of A386584.
A336106 counts partitions of separable type, ranks A335127, sums of A386585.
Cf. A001221, A001222, A003963, A051903, A051904, A106351, A112798, A238130, A336102, A373957, A386581.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
ugt[c_,x_]:=Select[Permutations[c],Function[q,Length[Select[Range[Length[q]-1],q[[#]]!=q[[#+1]]&]]==x]];
Table[Table[Length[ugt[nrmptn[n],k]],{k,0,Length[nrmptn[n]]-1}],{n,30}]

A335432 Number of anti-run permutations of the prime indices of Mersenne numbers A000225(n) = 2^n - 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 6, 2, 6, 2, 36, 1, 6, 6, 24, 1, 24, 1, 240, 6, 24, 2, 1800, 6, 6, 6, 720, 6, 1800, 1, 120, 24, 6, 24, 282240, 2, 6, 24, 15120, 2, 5760, 6, 5040, 720, 24, 6, 1451520, 2, 5040, 120, 5040, 6, 1800, 720, 40320, 24, 720, 2, 1117670400, 1, 6, 1800, 5040, 6

Offset: 1

Gus Wiseman, Jul 02 2020

nonn

An anti-run is a sequence with no adjacent equal parts.

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 a(1) = 1 through a(10) = 6 permutations:
  ()  (2)  (4)  (2,3)  (11)  (2,4,2)  (31)  (2,3,7)  (21,4)  (11,2,5)
                (3,2)                       (2,7,3)  (4,21)  (11,5,2)
                                            (3,2,7)          (2,11,5)
                                            (3,7,2)          (2,5,11)
                                            (7,2,3)          (5,11,2)
                                            (7,3,2)          (5,2,11)

Andrew Howroyd, Table of n, a(n) for n = 1..200

The version for factorial numbers is A335407.
Anti-run compositions are A003242.
Anti-run patterns are A005649.
Permutations of prime indices are A008480.
Anti-runs are ranked by A333489.
Separable partitions are ranked by A335433.
Inseparable partitions are ranked by A335448.
Anti-run permutations of prime indices are A335452.
Strict permutations of prime indices are A335489.
Cf. A056239, A106351, A112798, A114938, A278990, A292884, A325535, A335125.
Mersenne numbers: A000225, A046051, A046800, A046801, A049093, A059305, A159611, A325610, A325611, A325612, A325625.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Permutations[primeMS[2^n-1]],!MatchQ[#,{_,x_,x_,_}]&]],{n,0,30}]

\\ See A335452 for count.
a(n) = {count(factor(2^n-1)[,2])} \\ Andrew Howroyd, Feb 03 2021

a(n) = A335452(A000225(n)).

Terms a(51) and beyond from Andrew Howroyd, Feb 03 2021

A382774 Number of ways to permute the prime indices of n! so that the run-lengths are all different.

Original entry on oeis.org

1, 1, 1, 0, 2, 0, 6, 0, 0, 0, 96, 0

Offset: 0

Gus Wiseman, Apr 09 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, sum A056239.

			The prime indices of 24 are {1,1,1,2}, with permutations (1,1,1,2) and (2,1,1,1), so a(4) = 2.

For anti-run permutations we have A335407, see also A335125, A382858.
This is the restriction of A382771 to the factorials A000142, equal A382857.
A022559 counts prime indices of n!, sum A081401.
A044813 lists numbers whose binary expansion has distinct run-lengths, equal A140690.
A056239 adds up prime indices, row sums of A112798.
A098859 counts partitions with distinct multiplicities, ordered A242882.
A239455 counts Look-and-Say partitions, ranks A351294, conjugate A381432.
A328592 lists numbers whose binary form has distinct runs of ones, equal A164707.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
Cf. A000720, A001221, A001222, A003242, A048767, A130091, A181821, A351013, A351202, A360015, A382773, A382879.

Table[Length[Select[Permutations[prix[n!]],UnsameQ@@Length/@Split[#]&]],{n,0,6}]

a(n) = A382771(n!).

A386576 Number of anti-runs of length n covering an initial interval of positive integers with strictly decreasing multiplicities.

Original entry on oeis.org

1, 1, 0, 1, 0, 1, 10, 4, 14, 84, 1136, 967, 3342, 12823, 101762, 1769580

Offset: 0

Gus Wiseman, Aug 03 2025

An anti-run is a sequence with no adjacent equal terms.

			The a(7) = 4 anti-runs are:
  (1,2,1,2,1,2,1)
  (1,2,1,2,1,3,1)
  (1,2,1,3,1,2,1)
  (1,3,1,2,1,2,1)

For any multiplicities we have A005649.
For weakly instead of strictly decreasing multiplicities we have A321688.
A003242 and A335452 count anti-runs, ranks A333489.
A005651 counts ordered set partitions with weakly decreasing sizes, strict A007837.
A032020 counts strict anti-run compositions.
A325534 counts separable multisets, ranks A335433.
A325535 counts inseparable multisets, ranks A335448.
A336103 counts normal separable multisets, inseparable A336102.
A386583 counts separable partitions by length, inseparable A386584.
A386585 counts partitions of separable type by length, sums A336106, ranks A335127.
A386586 counts partitions of inseparable type by length, sums A025065, ranks A335126.
A386633 counts separable set partitions, row sums of A386635.
A386634 counts inseparable set partitions, row sums of A386636.
Cf. A000670, A019472, A106351, A238130, A335125, A335516, A386580, A386581.

seps[ptn_,fir_]:=If[Total[ptn]==1,{{fir}},Join@@Table[Prepend[#,fir]&/@seps[MapAt[#-1&,ptn,fir],nex],{nex,Select[DeleteCases[Range[Length[ptn]],fir],ptn[[#]]>0&]}]];
seps[ptn_]:=If[Total[ptn]==0,{{}},Join@@(seps[ptn,#]&/@Range[Length[ptn]])];
Table[Sum[Length[seps[y]],{y,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,0,10}]

cp's OEIS Frontend

A386635 Triangle read by rows where T(n,k) is the number of separable type set partitions of {1..n} into k blocks.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A386636 Triangle read by rows where T(n,k) is the number of inseparable type set partitions of {1..n} into k blocks.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382773 Number of ways to permute a multiset whose multiplicities are the prime indices of n so that the run-lengths are all different.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A382858 Number of ways to permute a multiset whose multiplicities are the prime indices of n so that the run-lengths are all equal.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A382914 Numbers k such that it is not possible to permute a multiset whose multiplicities are the prime indices of k so that the run-lengths are all equal.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A386638 Number of integer partitions of n of inseparable type.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A386579 Number of permutations of row n of A305936 (a multiset whose multiplicities are the prime indices of n) with k adjacent unequal parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A335432 Number of anti-run permutations of the prime indices of Mersenne numbers A000225(n) = 2^n - 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions