A351013 -id:A351013 - cp's OEIS frontend

A383113 Numbers whose prime indices have more than one permutation with all distinct run-lengths.

12, 18, 20, 24, 28, 40, 44, 45, 48, 50, 52, 54, 56, 63, 68, 72, 75, 76, 80, 88, 92, 96, 98, 99, 104, 108, 112, 116, 117, 124, 135, 136, 144, 147, 148, 152, 153, 160, 162, 164, 171, 172, 175, 176, 184, 188, 189, 192, 200, 207, 208, 212, 216, 224, 232, 236, 242

Offset: 1

Gus Wiseman, Apr 20 2025

nonn

First differs from A177425, A182854, A367589 in having 216.

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 prime indices of 360 are {1,1,1,2,2,3}, with six permutations with all distinct run-lengths:
  (1,1,1,2,2,3)
  (1,1,1,3,2,2)
  (2,2,1,1,1,3)
  (2,2,3,1,1,1)
  (3,1,1,1,2,2)
  (3,2,2,1,1,1)
so 360 is in the sequence.
The terms together with their prime indices begin:
  12: {1,1,2}
  18: {1,2,2}
  20: {1,1,3}
  24: {1,1,1,2}
  28: {1,1,4}
  40: {1,1,1,3}
  44: {1,1,5}
  45: {2,2,3}
  48: {1,1,1,1,2}
  50: {1,3,3}
  52: {1,1,6}
  54: {1,2,2,2}
  56: {1,1,1,4}
  63: {2,2,4}
  68: {1,1,7}
  72: {1,1,1,2,2}
  75: {2,3,3}
  76: {1,1,8}
  80: {1,1,1,1,3}

For exactly one permutation we have A000961, counted by A000005.
For no choices we have A351293, counted by A351295, conjugate A381433, equal A382879.
For at least one choice we have A351294, conjugate A381432, counted by A239455.
These are positions of terms > 1 in A382771, firsts A382772, equal A382878.
For equal run-lengths we have A383089, positions of terms > 1 in A382857.
Partitions of this type are counted by A383111.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A056239 adds up prime indices, row sums of A112798.
A098859 counts partitions with distinct run-lengths (ordered A242882), ranks A130091.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
Cf. A000720, A001221, A001222, A047966, A048767, A351013, A351202, A381435, A382876, A383090, A383091, A383092, A383112.

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

The complement is A000961 \/ A351293, counted by A000005 + A351295.

A351205 Numbers whose binary expansion does not have all distinct runs.

Original entry on oeis.org

5, 9, 10, 17, 18, 20, 21, 22, 26, 27, 33, 34, 36, 37, 40, 41, 42, 43, 45, 46, 51, 53, 54, 58, 65, 66, 68, 69, 72, 73, 74, 75, 76, 77, 80, 81, 82, 83, 84, 85, 86, 87, 89, 90, 91, 93, 94, 99, 100, 101, 102, 105, 106, 107, 108, 109, 110, 117, 118, 119, 122, 129

Offset: 1

Gus Wiseman, Feb 07 2022

			The terms together with their binary expansions begin:
      5:     101     41:  101001     74: 1001010
      9:    1001     42:  101010     75: 1001011
     10:    1010     43:  101011     76: 1001100
     17:   10001     45:  101101     77: 1001101
     18:   10010     46:  101110     80: 1010000
     20:   10100     51:  110011     81: 1010001
     21:   10101     53:  110101     82: 1010010
     22:   10110     54:  110110     83: 1010011
     26:   11010     58:  111010     84: 1010100
     27:   11011     65: 1000001     85: 1010101
     33:  100001     66: 1000010     86: 1010110
     34:  100010     68: 1000100     87: 1010111
     36:  100100     69: 1000101     89: 1011001
     37:  100101     72: 1001000     90: 1011010
     40:  101000     73: 1001001     91: 1011011
For example, 77 has binary expansion 1001101, with runs 1, 00, 11, 0, 1, which are not all distinct, so 77 is in the sequence.

Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)

Runs in binary expansion are counted by A005811, distinct A297770.
The complement is A175413, for run-lengths A044813.
The version for standard compositions is A351291, complement A351290.
A000120 counts binary weight.
A011782 counts integer compositions.
A242882 counts compositions with distinct multiplicities.
A318928 gives runs-resistance of binary expansion.
A325545 counts compositions with distinct differences.
A333489 ranks anti-runs, complement A348612, counted by A003242.
A334028 counts distinct parts in standard compositions.
A351014 counts distinct runs in standard compositions.
Counting words with all distinct runs:
- A351013 = compositions, for run-lengths A329739.
- A351016 = binary words, for run-lengths A351017.
- A351018 = binary expansions, for run-lengths A032020.
- A351200 = patterns, for run-lengths A351292.
- A351202 = permutations of prime factors.
Cf. A070939, A085207, A098859, A233564, A238130 or A238279, A283353, A328592, A350952, A351015, A351203.

q:= proc(n) uses ListTools; (l-> is(nops(l)<>add(
      nops(i), i={Split(`=`, l, 1)}) +add(
      nops(i), i={Split(`=`, l, 0)})))(Bits[Split](n))
    end:
select(q, [$1..200])[];  # Alois P. Heinz, Mar 14 2022

Select[Range[0,100],!UnsameQ@@Split[IntegerDigits[#,2]]&]

from itertools import groupby, product
def ok(n):
    runs = [(k, len(list(g))) for k, g in groupby(bin(n)[2:])]
    return len(runs) > len(set(runs))
print([k for k in range(130) if ok(k)]) # Michael S. Branicky, Feb 09 2022

A353508 Number of integer compositions of n with no ones or runs of length 1.

Original entry on oeis.org

1, 0, 0, 0, 1, 0, 2, 0, 2, 1, 4, 0, 8, 2, 11, 4, 21, 5, 37, 12, 57, 25, 104, 38, 177, 79, 292, 149, 513, 251, 876, 482, 1478, 871, 2562, 1533, 4387, 2815, 7473, 5036, 12908, 8935, 22135, 16085, 37940, 28611, 65422, 50731, 112459, 90408, 193386, 160119, 333513

Offset: 0

Gus Wiseman, May 17 2022

nonn

			The a(0) = 1 through a(14) = 11 compositions (empty columns indicated by dots, 0 is the empty composition):
  0  .  .  .  22  .  33   .  44    333  55     .  66      22333  77
                     222     2222       2233      444     33322  2255
                                        3322      2244           3344
                                        22222     3333           4433
                                                  4422           5522
                                                  22233          22244
                                                  33222          44222
                                                  222222         222233
                                                                 223322
                                                                 332222
                                                                 2222222

Alois P. Heinz, Table of n, a(n) for n = 0..1000

The version for partitions is A339222.
Compositions counted by their run-lengths:
- For run-lengths <= 1 we have A003242, ranked by A333489.
- For run-lengths = 2 we have A003242 aerated.
- For run-lengths > 1 we have A114901, ranked by A353427.
- For run-lengths <= 2 we have A128695 matching A335464.
- For run-lengths > 2 we have A353400, partitions A100405.
- For run-lengths all prime we have A353401.
- For run-lengths and parts > 2 we have A353428.
A008466 counts compositions with some part > 2.
A011782 counts compositions.
A106356 counts compositions by number of adjacent equal parts.
A261983 counts non-anti-run compositions.
A274174 counts compositions with equal parts contiguous.
Cf. A005811, A078012, A238279, A329739, A333755, A351013, A353390.

b:= proc(n,h) option remember; `if`(n=0, 1, add(
     `if`(i<>h, add(b(n-i*j, i), j=2..n/i), 0), i=2..n/2))
    end:
a:= n-> b(n, 0):
seq(a(n), n=0..60);  # Alois P. Heinz, May 17 2022

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],!MemberQ[#,1]&&!MemberQ[Length/@Split[#],1]&]],{n,0,15}]

a(41)-a(52) from Alois P. Heinz, May 17 2022

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

cp's OEIS Frontend

A383113 Numbers whose prime indices have more than one permutation with all distinct run-lengths.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A351205 Numbers whose binary expansion does not have all distinct runs.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

A353508 Number of integer compositions of n with no ones or runs of length 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula