cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 14 results. Next

A382879 Positions of 0 in A382857 (permutations of prime indices with equal run-lengths).

Original entry on oeis.org

24, 40, 48, 54, 56, 80, 88, 96, 104, 112, 135, 136, 152, 160, 162, 176, 184, 189, 192, 208, 224, 232, 240, 248, 250, 272, 288, 296, 297, 304, 320, 328, 336, 344, 351, 352, 368, 375, 376, 384, 405, 416, 424, 448, 459, 464, 472, 480, 486, 488, 496, 513, 528, 536
Offset: 1

Views

Author

Gus Wiseman, Apr 09 2025

Keywords

Comments

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.

Examples

			The terms together with their prime indices begin:
   24: {1,1,1,2}
   40: {1,1,1,3}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   56: {1,1,1,4}
   80: {1,1,1,1,3}
   88: {1,1,1,5}
   96: {1,1,1,1,1,2}
  104: {1,1,1,6}
  112: {1,1,1,1,4}
  135: {2,2,2,3}
  136: {1,1,1,7}
  152: {1,1,1,8}
  160: {1,1,1,1,1,3}

Crossrefs

For distinct instead of equal the complement is A351294, counted by A239455.
For distinct instead of equal we have A351295, counted by A351293.
For run-sums instead of run-lengths we have A383100, zeros of A382877, distinct A382876.
Positions of 0 in A382857 (firsts A382878), by signature A382858 (distinct A382773).
For prime signature instead of prime indices we have A382914.
Partitions of this type are counted by A382915.
The complement is counted by A383013.
A005811 counts runs in binary expansion.
A056239 adds up prime indices, row sums of A112798.
A297770 counts distinct runs in binary expansion.
A164707 lists numbers whose binary form has equal runs of ones, distinct A328592.
A304442 counts partitions with equal run-sums, ranks A353833.
A329739 counts compositions with distinct run-lengths, ranks A351290.
A353744 ranks compositions with equal run-lengths, distinct A351596 (complement A351291).
Cf. A000720, A000961, A001221, A001222, A003242, A008480, A047966, A130091, A238279, A351201.

Programs

  • Mathematica
    Select[Range[100], Select[Permutations[Join@@ConstantArray@@@FactorInteger[#]], SameQ@@Length/@Split[#]&]=={}&]

A382912 Numbers k such that row k of A305936 (a multiset whose multiplicities are the prime indices of k) has no permutation with all distinct run-lengths.

Original entry on oeis.org

4, 8, 9, 12, 16, 18, 20, 24, 27, 28, 32, 36, 40, 44, 45, 48, 50, 52, 54, 56, 60, 63, 64, 68, 72, 75, 76, 80, 81, 84, 88, 90, 92, 96, 98, 99, 100, 104, 108, 112, 116, 117, 120, 124, 125, 126, 128, 132, 135, 136, 140, 144, 148, 150, 152, 153, 156, 160, 162, 164
Offset: 1

Views

Author

Gus Wiseman, Apr 12 2025

Keywords

Comments

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

Examples

			The terms, prime indices, and corresponding multisets begin:
   4:       {1,1} {1,2}
   8:     {1,1,1} {1,2,3}
   9:       {2,2} {1,1,2,2}
  12:     {1,1,2} {1,1,2,3}
  16:   {1,1,1,1} {1,2,3,4}
  18:     {1,2,2} {1,1,2,2,3}
  20:     {1,1,3} {1,1,1,2,3}
  24:   {1,1,1,2} {1,1,2,3,4}
  27:     {2,2,2} {1,1,2,2,3,3}
  28:     {1,1,4} {1,1,1,1,2,3}
  32: {1,1,1,1,1} {1,2,3,4,5}
  36:   {1,1,2,2} {1,1,2,2,3,4}
  40:   {1,1,1,3} {1,1,1,2,3,4}
  44:     {1,1,5} {1,1,1,1,1,2,3}
  45:     {2,2,3} {1,1,1,2,2,3,3}
  48: {1,1,1,1,2} {1,1,2,3,4,5}
  50:     {1,3,3} {1,1,1,2,2,2,3}
  52:     {1,1,6} {1,1,1,1,1,1,2,3}

Crossrefs

The Look-and-Say partition is ranked by A048767, listed by A381440.
Look-and-Say partitions are counted by A239455, ranks A351294.
Non-Look-and-Say partitions are counted by A351293.
For prime indices instead of signature we have A351295, conjugate A381433.
The complement is A382913.
For equal instead of distinct run-lengths we have A382914, see A382858, A382879, A382915.
A056239 adds up prime indices, row sums of A112798.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
A381431 lists the section-sum partition of n, ranks A381436, union A381432.
Cf. A000720, A001221, A001222, A181821, A305936, A335125, A351202, A382525, A382771, A382773, A382775, A382857.
Cf. A381636, A381717, A381871, A382876.

Programs

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

A382913 Numbers k such that row k of A305936 (a multiset whose multiplicities are the prime indices of k) has a permutation with all distinct run-lengths.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103
Offset: 1

Views

Author

Gus Wiseman, Apr 12 2025

Keywords

Comments

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

Examples

			The terms, prime indices, and corresponding multisets begin:
   1:    {} {}
   2:   {1} {1}
   3:   {2} {1,1}
   5:   {3} {1,1,1}
   6: {1,2} {1,1,2}
   7:   {4} {1,1,1,1}
  10: {1,3} {1,1,1,2}
  11:   {5} {1,1,1,1,1}
  13:   {6} {1,1,1,1,1,1}
  14: {1,4} {1,1,1,1,2}
  15: {2,3} {1,1,1,2,2}
  17:   {7} {1,1,1,1,1,1,1}
  19:   {8} {1,1,1,1,1,1,1,1}
  21: {2,4} {1,1,1,1,2,2}
  22: {1,5} {1,1,1,1,1,2}
  23:   {9} {1,1,1,1,1,1,1,1,1}
  25: {3,3} {1,1,1,2,2,2}
  26: {1,6} {1,1,1,1,1,1,2}

Crossrefs

Look-and-Say partitions are counted by A239455, ranks A351294.
Non-Look-and-Say partitions are counted by A351293, ranks A351295.
For prime indices instead of signature we have A351294, conjugate A381432.
The Look-and-Say partition of n is listed by A381440, rank A048767.
The complement is A382912.
For equal run-lengths we have the complement of A382914, see A382858, A382879, A382915.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A381431 ranks section-sum partition, listed by A381436.
Cf. A000720, A001221, A001222, A140690, A181821, A305936, A335125, A382525, A382771, A382773, A382775.
Cf. A381636, A381717, A381871, A382876.

Programs

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

A383013 Number of integer partitions of n having a permutation with all equal run-lengths.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 9, 11, 18, 21, 31, 38, 56, 67, 94, 121, 162, 199, 265, 330, 438, 543, 693, 859, 1103, 1353, 1702, 2097, 2619, 3194, 3972, 4821, 5943, 7206, 8796, 10632, 12938, 15536, 18794, 22539, 27133, 32374, 38827, 46175, 55134, 65421, 77751, 91951, 109011, 128482
Offset: 0

Views

Author

Gus Wiseman, Apr 12 2025

Keywords

Comments

A partition of n counts towards a(n) if and only if #p + g >= 2*L where #p is the number of parts counted with multiplicity of the partition, g is the gcd of all the frequencies of every distinct part and L is the largest frequency of a part. - David A. Corneth, Apr 27 2025

Examples

			The partition (2,2,1,1,1,1) has permutation (1,1,2,2,1,1) with equal run-lengths (2,2,2) so is counted under a(8).
The a(1) = 1 through a(8) = 18 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (211)   (221)    (51)      (61)       (62)
                    (1111)  (311)    (222)     (322)      (71)
                            (11111)  (321)     (331)      (332)
                                     (411)     (421)      (422)
                                     (2211)    (511)      (431)
                                     (111111)  (3211)     (521)
                                               (22111)    (611)
                                               (1111111)  (2222)
                                                          (3221)
                                                          (3311)
                                                          (4211)
                                                          (22211)
                                                          (32111)
                                                          (221111)
                                                          (11111111)

Links

Crossrefs

For distinct instead of equal run-lengths we have A239455, ranked by A351294.
The complement for distinct run-lengths is A351293, ranked by A351295.
The complement is counted by A382915, ranked by A382879, by signature A382914.
A000041 counts integer partitions, strict A000009.
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.
A382857 counts permutations of prime indices with equal run-lengths, firsts A382878.
Cf. A003242, A047966, A164707, A238279, A351201, A351290, A351291, A353837, A353851, A382858.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Select[Permutations[#], SameQ@@Length/@Split[#]&]!={}&]],{n,0,15}]

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

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

Views

Author

Gus Wiseman, Apr 18 2025

Keywords

Comments

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.

Examples

			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}

Crossrefs

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.

Programs

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

Formula

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

A383094 Number of integer partitions of n having exactly one permutation with all equal run-lengths.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 5, 6, 9, 7, 11, 10, 13, 12, 17, 14, 21, 16, 21, 18, 27, 22, 29, 22, 34, 25, 35, 28, 41, 28, 43, 30, 48, 38, 47, 38, 55, 36, 53, 46, 64, 40, 67, 42, 69, 54, 65, 46, 84, 51, 75, 62, 83, 52, 86, 62, 94, 70, 83, 58, 111, 60, 89, 80, 106, 74, 115, 66, 111
Offset: 0

Views

Author

Gus Wiseman, Apr 20 2025

Keywords

Examples

			The partition (222211) has exactly one permutation with all equal run-lengths: (221122), so is counted under a(10).
The a(1) = 1 through a(8) = 9 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (221)    (33)      (322)      (44)
                    (211)   (311)    (222)     (331)      (332)
                    (1111)  (11111)  (411)     (511)      (422)
                                     (111111)  (22111)    (611)
                                               (1111111)  (2222)
                                                          (22211)
                                                          (221111)
                                                          (11111111)

Crossrefs

The complement is ranked by A382879 \/ A383089.
For no choices we have A382915, ranks A382879.
For at least one choice we have A383013, for run-sums A383098, ranks A383110.
For more than one choice we have A383090, ranks A383089.
For at most one choice we have A383092, ranks A383091.
For run-sums instead of lengths we have A383095, ranks A383099.
Partitions of this type are ranked by A383112 = positions of 1 in A382857.
Cf. A047966, A072774, A098859, A100471, A100881, A100882, A100883, A304442.
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.
A329739 counts compositions with distinct run-lengths, ranks A351596, complement A351291.
A351293 counts non-Look-and-Say partitions, ranks A351295, conjugate A381433.
Cf. A047993, A362608, A381871, A382076, A382771, A383096, A383097, A383111.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], Length[Select[Permutations[#], SameQ@@Length/@Split[#]&]]==1&]],{n,0,20}]

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

A383096 Number of integer partitions of n having no permutation with all equal run-sums.

Original entry on oeis.org

0, 0, 0, 1, 1, 5, 4, 13, 15, 25, 35, 54, 58, 99, 128, 168, 217, 295, 358, 488, 603, 784, 995, 1253, 1517, 1953, 2429, 2997, 3688, 4563, 5532, 6840, 8311, 10135, 12303, 14875, 17842, 21635, 26008, 31177, 37247, 44581, 53062, 63259, 75130, 89096, 105551, 124752, 147015, 173520
Offset: 0

Views

Author

Gus Wiseman, Apr 17 2025

Keywords

Examples

			The a(3) = 1 through a(8) = 15 partitions:
  (21)  (31)  (32)    (42)   (43)      (53)
              (41)    (51)   (52)      (62)
              (221)   (321)  (61)      (71)
              (311)   (411)  (322)     (332)
              (2111)         (331)     (431)
                             (421)     (521)
                             (511)     (611)
                             (2221)    (3221)
                             (3211)    (3311)
                             (4111)    (4211)
                             (22111)   (5111)
                             (31111)   (22211)
                             (211111)  (32111)
                                       (311111)
                                       (2111111)

Crossrefs

For distinct instead of equal run-sums we appear to have A381717, q.v.
For run-lengths instead of sums we have A382915, ranks A382879, by signature A382914.
For more than one permutation we have A383097, ranks A383015.
The complement is counted by A383098, ranks A383110
These partitions are ranked by A383100, positions of 0 in A382877.
Counting and ranking partitions by run-lengths and run-sums:
- constant: A047966 (ranks A072774), sums A304442 (ranks A353833)
- distinct: A098859 (ranks A130091), sums A353837 (ranks A353838)
- weakly decreasing: A100882 (ranks A242031), sums A304405 (ranks A357875)
- weakly increasing: A100883 (ranks A304678), sums A304406 (ranks A357861)
- strictly decreasing: A100881 (ranks A304686), sums A304428 (ranks A357862)
- strictly increasing: A100471 (ranks A334965), sums A304430 (ranks A357864)
A275870 counts collapsible partitions, ranks A300273.
A326534 ranks multiset partitions with a common sum, counted by A321455, normal A326518.
A353851 counts compositions with all equal run-sums, ranks A353848.
A382876 counts permutations of prime indices with distinct run-sums, zeros A381636.
A383095 counts partitions having a unique permutation with equal run-sums, ranks A383099.
Cf. A006171, A329738, A353832, A353839, A353932, A354584, A382076, A382857, A383094.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Length[Select[Permutations[#],SameQ@@Total/@Split[#]&]]==0&]],{n,0,15}]

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

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

Views

Author

Gus Wiseman, Apr 09 2025

Keywords

Comments

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

Examples

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

Crossrefs

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.

Programs

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

Formula

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

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

Views

Author

Gus Wiseman, Apr 19 2025

Keywords

Examples

			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)

Crossrefs

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.

Programs

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

Formula

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

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

A383112 Numbers whose multiset of prime indices has exactly one permutation with all equal run-lengths.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 25, 27, 28, 29, 31, 32, 37, 41, 43, 44, 45, 47, 49, 50, 52, 53, 59, 61, 63, 64, 67, 68, 71, 72, 73, 75, 76, 79, 81, 83, 89, 92, 97, 98, 99, 101, 103, 107, 108, 109, 113, 116, 117, 121, 124, 125, 127
Offset: 1

Views

Author

Gus Wiseman, Apr 18 2025

Keywords

Comments

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.
Includes all prime powers A000961.
Are there any terms x such that A001221(x) > 2?

Examples

			The prime indices of 144 are {1,1,1,1,2,2}, of which the only permutation with all equal run-lengths is (1,1,2,2,1,1), so 144 is in the sequence.
The terms together with their prime indices begin:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  18: {1,2,2}
  19: {8}
  20: {1,1,3}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  28: {1,1,4}
  29: {10}
  31: {11}
  32: {1,1,1,1,1}

Crossrefs

These are the positions of 1 in A382857, distinct A382771.
The complement is A382879 \/ A383089, counted by A382915 + A383090.
For at most one permutation we have A383091, counted by A383092.
Partitions of this type are counted by A383094.
For run-sums instead of lengths we have A383099, counted by A383095.
A047966 counts partitions with equal run-lengths, ranks A072774.
A056239 adds up prime indices, row sums of A112798.
A098859 counts partitions with distinct run-lengths, ranks A130091.
A329738 counts compositions with equal run-lengths, ranks A353744.
A329739 counts compositions with distinct run-lengths, ranks A351596.
Cf. A000961, A001221, A001222, A048767, A351294, A351295, A353833, A381434, A381540, A382877, A383100.

Programs

  • Mathematica
    Select[Range[100], Length[Select[Permutations[Join @@ ConstantArray@@@FactorInteger[#]], SameQ@@Length/@Split[#]&]]==1&]
Showing 1-10 of 14 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.