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 23 results. Next

A381636 Numbers whose prime indices cannot be partitioned into constant blocks with distinct sums.

Original entry on oeis.org

12, 60, 63, 84, 120, 126, 132, 156, 204, 228, 252, 276, 300, 315, 325, 348, 372, 420, 444, 492, 504, 516, 560, 564, 588, 630, 636, 650, 660, 693, 708, 720, 732, 780, 804, 819, 840, 852, 876, 924, 931, 948, 975, 996, 1008, 1020, 1068, 1071, 1092, 1140, 1164
Offset: 1

Views

Author

Gus Wiseman, Mar 10 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.
Also numbers that cannot be written as a product of prime powers > 1 with distinct sums of prime indices (A056239).
Contains no squarefree numbers.
Conjecture: These are the zeros of A382876.

Examples

			The prime indices of 300 are {1,1,2,3,3}, with partitions into constant blocks:
  {{2},{1,1},{3,3}}
  {{1},{1},{2},{3,3}}
  {{2},{3},{3},{1,1}}
  {{1},{1},{2},{3},{3}}
but none of these has distinct block-sums, so 300 is in the sequence.
The terms together with their prime indices begin:
   12: {1,1,2}
   60: {1,1,2,3}
   63: {2,2,4}
   84: {1,1,2,4}
  120: {1,1,1,2,3}
  126: {1,2,2,4}
  132: {1,1,2,5}
  156: {1,1,2,6}
  204: {1,1,2,7}
  228: {1,1,2,8}
  252: {1,1,2,2,4}
  276: {1,1,2,9}
  300: {1,1,2,3,3}

Crossrefs

More on multiset partitions into constant blocks: A006171, A279784, A295935.
These are the positions of 0 in A381635, after taking block-sums A381716.
Partitions of this type are counted by A381717.
For strict instead of constant blocks we have A381806, zeros of A381633.
For equal instead of distinct block-sums we have A381871.
A000688 counts multiset partitions into constant, see A381455 (upper), A381453 (lower).
A001055 counts multiset partitions, see A317141 (upper), A300383 (lower).
A050361 counts multiset partitions into distinct constant blocks, after sums A381715.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
Cf. A000720, A001222, A005117, A050320, A059404, A213242, A293243, A299202, A300385, A381078, A381454, A381634.

Programs

  • Mathematica
    hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
pfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[pfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],PrimePowerQ]}]];
Select[Range[100],Select[pfacs[#],UnsameQ@@hwt/@#&]=={}&]

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]

A382877 Number of ways to permute the prime indices of n so that the run-sums are all equal.

Original entry on oeis.org

1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 2, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 2, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 2, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0
Offset: 1

Views

Author

Gus Wiseman, Apr 14 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 a(144) = 4 permutations of {1,1,1,1,2,2} are:
  (1,1,1,1,2,2)
  (1,1,2,1,1,2)
  (2,1,1,2,1,1)
  (2,2,1,1,1,1)
The a(1728) = 4 permutations are:
  (1,1,1,1,1,1,2,2,2)
  (1,1,2,1,1,2,1,1,2)
  (2,1,1,2,1,1,2,1,1)
  (2,2,2,1,1,1,1,1,1)

Crossrefs

Compositions of this type are counted by A353851, ranked by A353848.
For run-lengths instead of sums we have A382857 (zeros A382879), distinct A382771.
For distinct instead of equal run-sums we have A382876, counted by A353850.
Positions of terms > 1 are A383015.
Positions of 1 are A383099.
Positions of 0 are A383100 (complement A383110), counted by A383098.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A056239 adds up prime indices, row sums of A112798.
A304442 counts compositions with equal run-sums, complement A382076.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A353837 counts partitions with distinct run-sums, ranks A353838.
A353847 gives composition run-sum transformation, for partitions A353832.
A353932 lists run-sums of standard compositions.
Cf. A000720, A000961, A001221, A001222, A130091, A329738, A353833, A353852, A354584, A381871.

Programs

  • Mathematica
    Table[Length[Select[Permutations[PrimePi/@Join @@ ConstantArray@@@FactorInteger[n]], SameQ@@Total/@Split[#]&]],{n,100}]

A383100 Numbers whose prime indices have no permutation with all equal run-sums.

Original entry on oeis.org

6, 10, 14, 15, 18, 20, 21, 22, 24, 26, 28, 30, 33, 34, 35, 38, 39, 42, 44, 45, 46, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 100, 102, 104, 105, 106, 108
Offset: 1

Views

Author

Gus Wiseman, Apr 20 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 prime indices of 18 are {1,2,2}, with permutations (1,2,2), (2,1,2), (2,2,1), with run sums (1,4), (2,1,2), (4,1) respectively, so 18 is in the sequence.
The terms together with their prime indices begin:
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   18: {1,2,2}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   24: {1,1,1,2}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}
   33: {2,5}
   34: {1,7}
   35: {3,4}
   38: {1,8}
   39: {2,6}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   46: {1,9}
   50: {1,3,3}

Crossrefs

For distinct instead of equal run-sums we appear to have A381636, counted by A381717.
For run-lengths instead of sums we have A382879, counted by complement of A383013.
These are the positions of 0 in A382877.
For more than one choice we have A383015.
The complement is A383110, counted by A383098.
Partitions of this type are counted by A383096.
For a unique choice we have A383099, counted by A383095.
A056239 adds up prime indices, row sums of A112798.
A304442 counts partitions with equal run-sums, ranks A353833.
A353851 counts compositions with equal run-sums, ranks A353848.
Cf. A047966, A072774, A130091, A242031, A304686, A304678, A334965.
Cf. A351294, A351295, A353832, A353837, A353838, A354584, A381871, A382857, A382876, A383094, A383097.

Programs

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

A382076 Number of integer partitions of n whose run-sums are not all equal.

Original entry on oeis.org

0, 0, 0, 1, 1, 5, 6, 13, 15, 27, 37, 54, 64, 99, 130, 172, 220, 295, 372, 488, 615, 788, 997, 1253, 1547, 1955, 2431, 3005, 3706, 4563, 5586, 6840, 8332, 10139, 12305, 14879, 17933, 21635, 26010, 31181, 37314, 44581, 53156, 63259, 75163, 89124, 105553, 124752, 147210
Offset: 0

Views

Author

Gus Wiseman, Apr 02 2025

Keywords

Comments

Also the number of integer partitions of n that cannot be partitioned into distinct constant multisets with a common sum. Multiset partitions of this type are ranked by A005117 /\ A326534 /\ A355743, while twice-partitions are counted by A382524, strict case of A279789.

Examples

			The partition (3,2,1,1,1) has runs ((3),(2),(1,1,1)) with sums (3,2,3) so is counted under a(8).
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)  (2211)   (331)     (431)
                      (21111)  (421)     (521)
                               (511)     (611)
                               (2221)    (3221)
                               (3211)    (3311)
                               (4111)    (4211)
                               (22111)   (5111)
                               (31111)   (22211)
                               (211111)  (32111)
                                         (311111)
                                         (2111111)

Crossrefs

The complement is counted by A304442, ranks A353833.
For distinct instead of equal block-sums we have A381717.
This is the strict case of A381993, see A381995, zeros A381871.
A050361 counts factorizations into distinct prime powers, see A381715.
A304405 counts partitions with weakly decreasing run-sums, ranks A357875.
A304406 counts partitions with weakly increasing run-sums, ranks A357861.
A304428 counts partitions with strictly decreasing run-sums, ranks A357862.
A304430 counts partitions with strictly increasing run-sums, ranks A357864.
A317141 counts coarsenings of prime indices, refinements A300383.
A326534 ranks multiset partitions with a common sum.
A353837 counts partitions with distinct run-sums.
A354584 lists run-sums of weakly increasing prime indices.
A355743 ranks multiset partitions into constant blocks.
Cf. A000688, A005117, A006171, A047966, A279784, A381453, A381455, A381635, A381636, A381994, A382204.

Programs

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

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

A381993 Number of integer partitions of n that cannot be partitioned into constant multisets with a common sum.

Original entry on oeis.org

0, 0, 0, 1, 1, 5, 4, 13, 13, 25, 33, 54, 54, 99, 124, 166, 207, 295, 352, 488, 591, 780, 987, 1253, 1488, 1951, 2419, 2993, 3665, 4563, 5508, 6840, 8270, 10127, 12289, 14869, 17781, 21635, 25992, 31167, 37184, 44581, 53008, 63259, 75076, 89080, 105531, 124752, 146842, 173516, 204141, 239921, 281461, 329929, 385852
Offset: 0

Views

Author

Gus Wiseman, Mar 17 2025

Keywords

Examples

			The multiset partition {{2},{2},{1,1},{1,1}} has both properties (constant blocks and common sum), so (2,2,1,1,1,1) is not counted under a(8). We can also use {{2,2},{1,1,1,1}}.
The a(3) = 1 through a(8) = 13 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)   (32111)
                             (211111)  (311111)

Crossrefs

Twice-partitions of this type (constant with equal) are counted by A279789.
Multiset partitions of this type are ranked by A326534 /\ A355743.
For distinct instead of equal block-sums we have A381717.
These partitions are ranked by A381871, zeros of A381995.
For strict instead of constant blocks we have A381994, see A381719, A382080.
The strict case is A382076.
Normal multiset partitions of this type are counted by A382204.
A001055 counts factorizations, strict A045778.
A050361 counts factorizations into distinct prime powers, see A381715.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000688, A006171, A047966, A265947, A279784, A381453, A381455, A381635, A381636, A381992.

Programs

  • Mathematica
    mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn,{ptn,IntegerPartitions[Length[y]]}];
Table[Length[Select[IntegerPartitions[n],Length[Select[Join@@@Tuples[mce/@Split[#]],SameQ@@Total/@#&]]==0&]],{n,0,30}]

Extensions

a(31)-a(54) from Robert Price, Mar 31 2025

A383015 Numbers whose prime indices have more than one permutation with all equal run-sums.

Original entry on oeis.org

12, 40, 63, 112, 144, 325, 351, 352, 675, 832, 931, 1008, 1539, 1600, 1728, 2176, 2875, 3509, 3969, 4864, 6253, 7047, 7056, 8775, 9072, 11776, 12427, 12544, 12691, 16128, 19133, 20736, 20800, 22464, 23125, 26973, 29403, 29696, 32269, 43200, 49392, 57967, 59711
Offset: 1

Views

Author

Gus Wiseman, Apr 14 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.
All terms appear to have even sum of prime indices.

Examples

			The terms together with their prime indices begin:
     12: {1,1,2}
     40: {1,1,1,3}
     63: {2,2,4}
    112: {1,1,1,1,4}
    144: {1,1,1,1,2,2}
    325: {3,3,6}
    351: {2,2,2,6}
    352: {1,1,1,1,1,5}
    675: {2,2,2,3,3}
    832: {1,1,1,1,1,1,6}
    931: {4,4,8}
   1008: {1,1,1,1,2,2,4}
   1539: {2,2,2,2,8}
   1600: {1,1,1,1,1,1,3,3}
   1728: {1,1,1,1,1,1,2,2,2}

Crossrefs

Compositions of this type are counted by A353851, ranked by A353848.
Positions of terms > 1 in A382877, zeros A383100 (complement A383014).
For run-lengths instead of sums we have A383089, counted by A383090.
The complement for run-lengths instead of sums is A383091, counted by A383092
Partitions of this type are counted by A383097.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A056239 adds up prime indices, row sums of A112798.
A304442 counts compositions with equal run-sums, complement A382076.
A329739 counts compositions with distinct run-lengths, ranks A351596.
A353837 counts partitions with distinct run-sums, ranks A353838.
A353847 gives composition run-sum transformation, for partitions A353832.
A353932 lists run-sums of standard compositions.
Cf. A000720, A000961, A001221, A001222, A329738, A353833, A354584, A381636, A381871, A382857, A382876, A382879.

Programs

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

A381995 Number of ways to partition the prime indices of n into constant blocks with a common sum.

Original entry on oeis.org

1, 1, 1, 2, 1, 0, 1, 2, 2, 0, 1, 1, 1, 0, 0, 3, 1, 0, 1, 0, 0, 0, 1, 0, 2, 0, 2, 0, 1, 0, 1, 2, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 4, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 3, 0, 1, 0, 0, 0, 0
Offset: 1

Views

Author

Gus Wiseman, Mar 19 2025

Keywords

Comments

Also the number of factorizations of n into prime powers > 1 with equal sums of prime indices.

Examples

			The prime indices of 144 are {1,1,1,1,2,2}, with the following 2 multiset partitions into constant blocks with a common sum:
  {{2,2},{1,1,1,1}}
  {{2},{2},{1,1},{1,1}}
so a(144) = 2.

Crossrefs

For just constant blocks we have A000688.
Twice-partitions of this type are counted by A279789.
For just a common sum we have A321455.
For distinct instead of equal sums we have A381635.
Positions of 0 are A381871, counted by A381993.
MM-numbers of these multiset partitions are A382215.
A001055 counts factorizations, strict A045778.
A050361 counts factorizations into distinct prime powers.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
A353864 counts rucksack partitions, ranked by A353866.
Cf. A279784, A295935, A381453 (lower), A381455 (upper).
Cf. A000720, A000961, A001222, A006171, A265947, A381633, A381719.
Cf. A323774, A382076, A382204, A382524, A383014, A383093, A383309.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]& /@ sps[Range[Length[set]]]];
Table[Length[Select[mps[prix[n]], SameQ@@Total/@#&&And@@SameQ@@@#&]],{n,100}]

Formula

A323774(n) = Sum_{A056239(k)=n} a(k). Gus Wiseman, Apr 25 2025

A383095 Number of integer partitions of n having exactly one permutation with all equal run-sums.

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 6, 2, 4, 5, 6, 2, 12, 2, 6, 8, 5, 2, 20, 2, 12, 8, 6, 2, 20, 5, 6, 12, 12, 2, 34, 2, 6, 8, 6, 8, 45, 2, 6, 8, 20, 2, 34, 2, 12, 28, 6, 2, 30, 5, 20, 8, 12, 2, 52, 8, 20, 8, 6, 2, 78, 2, 6, 28, 7, 8, 34, 2, 12, 8, 34, 2, 80, 2, 6, 28, 12, 8, 34, 2, 30, 25
Offset: 0

Views

Author

Gus Wiseman, Apr 16 2025

Keywords

Examples

			The partition (2,2,1,1) has permutation (2,1,1,2) so is counted under a(6).
The a(1) = 1 through a(10) = 6 partitions (A=10):
  1  2   3    4     5      6       7        8         9          A
     11  111  22    11111  33      1111111  44        333        55
              1111         222              2222      33111      22222
                           2211             11111111  3111111    2221111
                           21111                      111111111  22111111
                           111111                                1111111111

Crossrefs

For distinct instead of equal run-sums we have A000005.
For run-lengths instead of sums we have A383094.
The complement is counted by A383096 + A383097, ranks A383100 \/ A383015.
These partitions are ranked by A383099 = positions of 1 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.
A383098 counts partitions with a permutation having all equal run-sums, ranks A383110.
Cf. A329738, A353839, A353832, A353932, A354584, A381636, A381871, A382076, A382876.

Programs

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

Extensions

More terms from Bert Dobbelaere, Apr 26 2025
Showing 1-10 of 23 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.