A386584 -id:A386584 - cp's OEIS frontend

A386638 Number of integer partitions of n of inseparable type.

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).

A386577 Irregular triangle read by rows where T(n,k) is the number of permutations of the multiset of prime factors of n with k adjacent equal terms.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Aug 01 2025

Are the rows all unimodal?

Counts permutations of prime factors by "inseparability". For "separability" we have A374252.

			The prime indices of 12 are {1,1,2}, and we have:
- 1 permutation (1,2,1) with 0 adjacent equal parts
- 2 permutations (1,1,2), (2,1,1) with 1 adjacent equal part
- 0 permutations with 2 adjacent equal parts
so row 12 is (1,2,0).
Row 48 counts the following permutations:
  .  .  (1,1,1,2,1)  (1,1,1,1,2)  .
        (1,1,2,1,1)  (2,1,1,1,1)
        (1,2,1,1,1)
Row 144 counts the following permutations:
  .  (1,1,2,1,2,1)  (1,1,1,2,1,2)  (1,1,1,2,2,1)  (1,1,1,1,2,2)  .
     (1,2,1,1,2,1)  (1,1,2,1,1,2)  (1,1,2,2,1,1)  (2,2,1,1,1,1)
     (1,2,1,2,1,1)  (1,2,1,1,1,2)  (1,2,2,1,1,1)
                    (2,1,1,1,2,1)  (2,1,1,1,1,2)
                    (2,1,1,2,1,1)
                    (2,1,2,1,1,1)
Triangle begins:
   1:
   2: 1
   3: 1
   4: 0  1
   6: 1
   6: 2  0
   7: 1
   8: 0  0  1
   9: 0  1
  10: 2  0
  11: 1
  12: 1  2  0
  13: 1
  14: 2  0
  15: 2  0
  16: 0  0  0  1
  17: 1
  18: 1  2  0
  19: 1
  20: 1  2  0
  21: 2  0
  22: 2  0
  23: 1
  24: 0  2  2  0

Row lengths are A001222.
The minima of each row are A010051.
Sorted positions of first appearances appear to be A025487.
Column k = last is A069513.
Row sums are A168324 or A008480.
The number of trailing zeros in each row is A297155 = A001221-1.
Column k = 1 is A335452.
The number of leading zeros in each row is A374246.
For separability instead of inseparability we have A374252.
For a multiset with prescribed multiplicities we have A386578, separability A386579.
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.
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, A051903, A051904, A106351, A238130, A336102, A373957, A382525, A386581, A386632.

Table[Length[Select[Permutations[Flatten[ConstantArray@@@FactorInteger[n]]],Function[q,Length[Select[Range[Length[q]-1],q[[#]]==q[[#+1]]&]]==k]]],{n,30},{k,0,PrimeOmega[n]-1}]

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

A386582 Number of distinct inseparable and pairwise disjoint sets of strict integer partitions, one of each exponent in the prime factorization of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 31 2025

nonn

A set partition is inseparable iff the underlying set has no permutation whose adjacent elements all belong to different blocks. Note that inseparability only depends on the sizes of the blocks.

			The prime indices of 9216 are {1,1,1,1,1,1,1,1,1,1,2,2}, with a(9216) = 2 choices: {{2},{1,4,5}} and {{2},{1,3,6}}. The other 4 disjoint families {{2},{10}}, {{2},{4,6}}, {{2},{3,7}}, {{2},{1,9}} are separable.
The prime indices of 15552 are {1,1,1,1,1,1,2,2,2,2,2}, with a(15552) = 1 choice: {{5},{1,2,3}}. The other 5 disjoint families {{5},{6}}, {{5},{2,4}}, {{6},{2,3}}, {{6},{1,4}}, {{1,5},{2,3}} are separable.

For separable instead of inseparable we have A386575.
This is the inseparable case of A386587 (ordered version A382525).
Positions of positive terms are A386632.
Positions of first appearances are A386637.
A000110 counts set partitions, ordered A000670.
A003242 and A335452 count separations, ranks A333489.
A025065(n - 2) counts partitions of inseparable type, ranks A335126, sums of A386586.
A239455 counts Look-and-Say partitions (ranks A351294), complement A351293 (ranks A351295).
A279790 counts disjoint families on strongly normal multisets.
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.
A386633 counts separable set partitions, row sums of A386635.
A386634 counts inseparable set partitions, row sums of A386636.
Cf. A001221, A001222, A008480, A051903, A051904, A056239, A111133, A130091, A373957, A386580, A386581.

disjointFamilies[y_]:=Union[Sort/@Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&]];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
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[Length[Select[disjointFamilies[prix[n]],seps[Length/@#]=={}&]],{n,100}]

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

A386632 Numbers k such that there is a disjoint inseparable way to choose a strict integer partition of each exponent in the prime factorization of k.

Original entry on oeis.org

8, 16, 27, 32, 64, 81, 125, 128, 243, 256, 343, 512, 625, 729, 1024, 1331, 1536, 2048, 2187, 2197, 2304, 2401, 2560, 3072, 3125, 3456, 3584, 4096, 4608, 4913, 5120, 5184, 5632, 6144, 6400, 6561, 6656, 6859, 6912, 7168, 8192, 8704, 9216, 9728, 10240, 11264

Offset: 1

Gus Wiseman, Aug 04 2025

nonn

First cubefull number (A246549) not in this sequence is 216.
The first term that is not a prime power is 1536.
A set partition is inseparable 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.

			The prime indices of 2304 are {1,1,1,1,1,1,1,1,2,2}, and we have disjoint inseparable choice {{4,3,1},{2}}, so 2304 is in the sequence.
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}
   125: {3,3,3}
   128: {1,1,1,1,1,1,1}
   243: {2,2,2,2,2}
   256: {1,1,1,1,1,1,1,1}
   343: {4,4,4}
   512: {1,1,1,1,1,1,1,1,1}
   625: {3,3,3,3}
   729: {2,2,2,2,2,2}

This is the inseparable case of A351294, positives in A386575, counted by A239455.
Also positions of positive terms in A386582.
A000110 counts set partitions, ordered A000670.
A003242 and A335452 count separations, ranks A333489.
A025065/A386638 counts inseparable type partitions, ranks A335126, sums of A386586.
A325534 counts separable multisets, ranks A335433, sums of A386583.
A325535 counts inseparable multisets, ranks A335448, sums of A386584.
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. A001221, A001222, A051903, A051904, A056239, A130091, A279790, A351293, A373957, A382525, A386587.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
dsj[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&];
insepQ[y_]:=2*Max[y]>Total[y]+1;
Join@@Position[Sign[Table[Length[Select[dsj[prix[n]],insepQ[Length/@#]&]],{n,1000}]],1]

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

A386578 Irregular triangle read by rows where T(n,k) is the number of permutations of row n of A305936 (a multiset whose multiplicities are the prime indices of n) with k adjacent equal parts.

Original entry on oeis.org

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

Offset: 2

Gus Wiseman, Aug 04 2025

Row 1 is empty, so offset is 2.
Same as A386579 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:
  .  112121  111212  111221  111122  .
     121121  112112  112211  221111
     121211  121112  122111
             211121  211112
             211211
             212111
Triangle begins
   .
   1
   0  1
   2  0
   0  0  1
   1  2  0
   0  0  0  1
   6  0  0
   2  2  2  0
   0  2  2  0
   0  0  0  0  1
   6  6  0  0
   0  0  0  0  0  1
   0  0  3  2  0
   1  4  3  2  0
  24  0  0  0
   0  0  0  0  0  0  1
  12 12  6  0  0
   0  0  0  0  0  0  0  1
   2 12  6  0  0
   0  3  6  4  2  0

Column k = last is A010051.
Row lengths are A056239.
Initial zeros are counted by A252736 = A001222 - 1.
Row sums are A318762.
Column k = 0 is A335125.
For prime indices we have A386577.
Reversing all rows gives A386579.
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, A003963, A051903, A051904, A106351, A112798, A238130, A336102, A373957, A374246, A382525, A386581.

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

cp's OEIS Frontend

A386638 Number of integer partitions of n of inseparable type.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A386577 Irregular triangle read by rows where T(n,k) is the number of permutations of the multiset of prime factors of n with k adjacent equal terms.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

A386582 Number of distinct inseparable and pairwise disjoint sets of strict integer partitions, one of each exponent in the prime factorization of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A386632 Numbers k such that there is a disjoint inseparable way to choose a strict integer partition of each exponent in the prime factorization of k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A386578 Irregular triangle read by rows where T(n,k) is the number of permutations of row n of A305936 (a multiset whose multiplicities are the prime indices of n) with k adjacent equal parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica