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.

Previous Showing 11-20 of 29 results. Next

A332836 Number of compositions of n whose run-lengths are weakly increasing.

Original entry on oeis.org

1, 1, 2, 4, 7, 12, 24, 40, 73, 128, 230, 399, 712, 1241, 2192, 3833, 6746, 11792, 20711, 36230, 63532, 111163, 194782, 340859, 596961, 1044748, 1829241, 3201427, 5604504, 9808976, 17170112, 30051470, 52601074, 92063629, 161140256, 282033124, 493637137, 863982135, 1512197655
Offset: 0

Views

Author

Gus Wiseman, Feb 29 2020

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.
Also compositions whose run-lengths are weakly decreasing.

Examples

			The a(0) = 1 through a(5) = 12 compositions:
  ()  (1)  (2)   (3)    (4)     (5)
           (11)  (12)   (13)    (14)
                 (21)   (22)    (23)
                 (111)  (31)    (32)
                        (121)   (41)
                        (211)   (122)
                        (1111)  (131)
                                (212)
                                (311)
                                (1211)
                                (2111)
                                (11111)
For example, the composition (2,3,2,2,1,1,2,2,2) has run-lengths (1,1,2,2,3) so is counted under a(17).

Links

Crossrefs

The version for the compositions themselves (not run-lengths) is A000041.
The case of partitions is A100883.
The case of unsorted prime signature is A304678, with dual A242031.
Permitting the run-lengths to be weakly decreasing also gives A332835.
The complement is counted by A332871.
Unimodal compositions are A001523.
Compositions that are not unimodal are A115981.
Compositions with equal run-lengths are A329738.
Compositions whose run-lengths are unimodal are A332726.
Cf. A001462, A072704, A072706, A100882, A181819, A329744, A329766, A332641, A332727, A332745, A332833, A332834.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],LessEqual@@Length/@Split[#]&]],{n,0,10}]
  • PARI
    step(M, m)={my(n=matsize(M)[1]); for(p=m+1, n, my(v=vector((p-1)\m, i, M[p-i*m,i]), s=vecsum(v)); M[p,]+=vector(#M,i,s-if(i<=#v, v[i]))); M}
seq(n)={my(M=matrix(n+1, n, i, j, i==1)); for(m=1, n, M=step(M, m)); M[1,n]=0; vector(n+1, i, vecsum(M[i,]))/(n-1)} \\ Andrew Howroyd, Dec 31 2020

Extensions

Terms a(21) and beyond from Andrew Howroyd, Dec 30 2020

A383097 Number of integer partitions of n having more than one permutation with all equal run-sums.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 1, 0, 3, 0, 1, 0, 7, 0, 1, 0, 9, 0, 7, 0, 12, 0, 1, 0, 38, 0, 1, 1, 18, 0, 38, 0, 32, 0, 1, 0, 90, 0, 1, 0, 71, 0, 78, 0, 33, 10, 1, 0, 228, 0, 31, 0, 42, 0, 156, 0, 123, 0, 1, 0, 447, 0, 1, 16, 146, 0, 222, 0, 63, 0, 102, 0, 811, 0, 1, 29, 75, 0, 334, 0
Offset: 0

Views

Author

Gus Wiseman, Apr 17 2025

Keywords

Examples

			The a(27) = 1 partition is: (9,3,3,3,1,1,1,1,1,1,1,1,1).
The a(4) = 1 through a(16) = 9 partitions (empty columns not shown):
  (211)  (3111)  (422)     (511111)  (633)        (71111111)  (844)
                 (41111)             (6222)                   (82222)
                 (221111)            (33222)                  (442222)
                                     (4221111)                (44221111)
                                     (6111111)                (422221111)
                                     (33111111)               (811111111)
                                     (222111111)              (4411111111)
                                                              (42211111111)
                                                              (222211111111)

Crossrefs

These partitions are ranked by A383015, positions of terms > 1 in A382877.
For run-lengths instead of sums we have A383090, ranks A383089, unique A383094.
The complement is A383095 + A383096, ranks A383099 \/ A383100.
For any positive number of permutations we have A383098, ranks A383110.
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.
Cf. A006171, A329738, A353832, A353839, A353850, A353932, A354584, A381717, A382076.

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

A334965 Numbers with strictly increasing prime multiplicities.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 18, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 50, 53, 54, 59, 61, 64, 67, 71, 73, 75, 79, 81, 83, 89, 97, 98, 101, 103, 107, 108, 109, 113, 121, 125, 127, 128, 131, 137, 139, 147, 149, 151, 157, 162, 163, 167, 169
Offset: 1

Views

Author

Gus Wiseman, May 18 2020

Keywords

Comments

First differs from A329131 in lacking 150.
Also numbers whose unsorted prime signature is strictly increasing.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}            25: {3,3}           64: {1,1,1,1,1,1}
    2: {1}           27: {2,2,2}         67: {19}
    3: {2}           29: {10}            71: {20}
    4: {1,1}         31: {11}            73: {21}
    5: {3}           32: {1,1,1,1,1}     75: {2,3,3}
    7: {4}           37: {12}            79: {22}
    8: {1,1,1}       41: {13}            81: {2,2,2,2}
    9: {2,2}         43: {14}            83: {23}
   11: {5}           47: {15}            89: {24}
   13: {6}           49: {4,4}           97: {25}
   16: {1,1,1,1}     50: {1,3,3}         98: {1,4,4}
   17: {7}           53: {16}           101: {26}
   18: {1,2,2}       54: {1,2,2,2}      103: {27}
   19: {8}           59: {17}           107: {28}
   23: {9}           61: {18}           108: {1,1,2,2,2}

Crossrefs

These are the Heinz numbers of the partitions counted by A100471.
Partitions with strictly decreasing run-lengths are A100881.
Partitions with weakly decreasing run-lengths are A100882.
Partitions with weakly increasing run-lengths are A100883.
The weakly decreasing version is A242031.
The weakly increasing version is A304678.
The strictly decreasing version is A304686.
Compositions with strictly increasing or decreasing run-lengths are A333191.
Cf. A000837, A032020, A098859, A100883, A329744, A332835, A333147, A333190.

Programs

  • Mathematica
    Select[Range[100],Less@@Last/@FactorInteger[#]&]

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

A383098 Number of integer partitions of n having at least one permutation with all equal run-sums.

Original entry on oeis.org

1, 1, 2, 2, 4, 2, 7, 2, 7, 5, 7, 2, 19, 2, 7, 8, 14, 2, 27, 2, 24, 8, 7, 2, 58, 5, 7, 13, 30, 2, 72, 2, 38, 8, 7, 8, 135, 2, 7, 8, 91, 2, 112, 2, 45, 38, 7, 2, 258, 5, 51, 8, 54, 2, 208, 8, 143, 8, 7, 2, 525, 2, 7, 44, 153, 8, 256, 2, 75, 8, 136, 2, 891, 2, 7, 57, 87, 8
Offset: 0

Views

Author

Gus Wiseman, Apr 17 2025

Keywords

Examples

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

Crossrefs

For distinct instead of equal run-sums we appear to have A382427.
For run-lengths instead of sums we have A383013, ranked by complement of A382879.
The case of a unique choice is A383095, ranks A383099 = positions of 1 in A382877.
The complement is counted by A383096, ranks A383100 = positions of 0 in A382877.
These partitions are ranked by A383110.
The case of more than one choice is A383097, ranks A383015.
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.
Cf. A006171, A329738, A353832, A353839, A353850, A353932, A354584, A382076, A382857, A382876, A383094, A383112.

Programs

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

Formula

a(n) = A383097(n) + A383095(n), ranks A383015 \/ A383099.

Extensions

More terms from Bert Dobbelaere, Apr 26 2025

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

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

A333191 Number of compositions of n whose run-lengths are either strictly increasing or strictly decreasing.

Original entry on oeis.org

1, 1, 2, 2, 5, 8, 10, 18, 24, 29, 44, 60, 68, 100, 130, 148, 201, 256, 310, 396, 478, 582, 736, 898, 1068, 1301, 1594, 1902, 2288, 2750, 3262, 3910, 4638, 5510, 6538, 7686, 9069, 10670, 12560, 14728, 17170, 20090, 23462, 27292, 31710, 36878, 42704, 49430
Offset: 0

Views

Author

Gus Wiseman, May 17 2020

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.

Examples

			The a(1) = 1 through a(7) = 18 compositions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (111)  (22)    (113)    (33)      (115)
                    (112)   (122)    (114)     (133)
                    (211)   (221)    (222)     (223)
                    (1111)  (311)    (411)     (322)
                            (1112)   (1113)    (331)
                            (2111)   (3111)    (511)
                            (11111)  (11112)   (1114)
                                     (21111)   (1222)
                                     (111111)  (2221)
                                               (4111)
                                               (11113)
                                               (11122)
                                               (22111)
                                               (31111)
                                               (111112)
                                               (211111)
                                               (1111111)

Links

Crossrefs

The non-strict version is A332835.
The case of partitions is A333190.
Unimodal compositions are A001523.
Strict compositions are A032020.
Partitions with distinct run-lengths are A098859.
Partitions with strictly increasing run-lengths are A100471.
Partitions with strictly decreasing run-lengths are A100881.
Partitions with weakly decreasing run-lengths are A100882.
Partitions with weakly increasing run-lengths are A100883.
Compositions with equal run-lengths are A329738.
Compositions whose run-lengths are unimodal are A332726.
Compositions whose run-lengths are unimodal or co-unimodal are A332746.
Compositions whose run-lengths are neither incr. nor decr. are A332833.
Compositions that are neither increasing nor decreasing are A332834.
Compositions with weakly increasing run-lengths are A332836.
Compositions that are strictly incr. or strictly decr. are A333147.
Compositions with strictly increasing run-lengths are A333192.
Cf. A059204, A072706, A329398, A329744, A329766, A332641, A332726, A332831, A332745, A333149.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],Or[Less@@Length/@Split[#],Greater@@Length/@Split[#]]&]],{n,0,15}]

Formula

a(n > 0) = 2*A333192(n) - A000005(n).

Extensions

Terms a(26) and beyond from Giovanni Resta, May 19 2020

A383092 Number of integer partitions of n having at most one permutation with all equal run-lengths.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 7, 10, 13, 16, 22, 28, 34, 46, 58, 69, 90, 114, 141, 178, 216, 271, 338, 418, 506, 630, 769, 941, 1140, 1399, 1675, 2051, 2454, 2975, 3561, 4289, 5094, 6137, 7274, 8692, 10269, 12249, 14414, 17128, 20110, 23767, 27872, 32849, 38346, 45094, 52552, 61533
Offset: 0

Views

Author

Gus Wiseman, Apr 19 2025

Keywords

Examples

			The partition (222211) has 1 permutation with all equal run-lengths: (221122), so is counted under a(10).
The partition (33211111) has no permutation with all equal run-lengths, so is counted under a(13).
The a(1) = 1 through a(7) = 10 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (111)  (22)    (221)    (33)      (322)
                    (211)   (311)    (222)     (331)
                    (1111)  (2111)   (411)     (511)
                            (11111)  (3111)    (2221)
                                     (21111)   (4111)
                                     (111111)  (22111)
                                               (31111)
                                               (211111)
                                               (1111111)

Crossrefs

For no choices we have A382915, ranks A382879.
For at least one choice we have A383013, for run-sums A383098, ranks A383110.
The complement is A383090, ranks A383089.
Partitions of this type are ranked by A383091 = positions of terms <= 1 in A382857.
For a unique choice we have A383094, ranks A383112.
For run-sums instead of lengths we have A383095 + A383096, ranks A383099 \/ A383100.
The complement for run-sums is A383097, ranks A383015, positions of terms > 1 in A382877.
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. A006171, A047993, A362608, A381871, A382076, A382771, A383111.

Programs

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

Formula

a(n) = A382915(n) + A383094(n).

Extensions

More terms from Bert Dobbelaere, Apr 26 2025
Previous Showing 11-20 of 29 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.