A332578 -id:A332578 - cp's OEIS frontend

A332727 Number of compositions of n whose run-lengths are not unimodal.

0, 0, 0, 0, 0, 0, 1, 3, 8, 28, 74, 188, 468, 1120, 2596, 5944, 13324, 29437, 64288, 138929, 297442, 632074, 1333897, 2798352, 5840164, 12132638, 25102232, 51750419, 106346704, 217921161, 445424102, 908376235, 1848753273, 3755839591, 7617835520, 15428584567, 31207263000

Offset: 0

Gus Wiseman, Feb 29 2020

nonn

A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

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

			The a(6) = 1 through a(8) = 8 compositions:
  (11211)  (11311)   (11411)
           (111211)  (111311)
           (112111)  (112112)
                     (113111)
                     (211211)
                     (1111211)
                     (1112111)
                     (1121111)

Andrew Howroyd, Table of n, a(n) for n = 0..500
Eric Weisstein's World of Mathematics, Unimodal Sequence.

Looking at the composition itself (not its run-lengths) gives A115981.
The case of partitions is A332281, with complement counted by A332280.
The complement is counted by A332726.
Unimodal compositions are A001523.
Non-unimodal normal sequences are A328509.
Compositions with normal run-lengths are A329766.
Numbers whose prime signature is not unimodal are A332282.
Partitions whose 0-appended first differences are unimodal are A332283, with complement A332284, with Heinz numbers A332287.
Compositions whose negation is not unimodal are A332669.
Compositions whose run-lengths are weakly increasing are A332836.
Cf. A007052, A072706, A100883, A181819, A227038, A328509, A329744, A329746, A332578, A332638, A332639, A332670, A332741, A332833.

unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]]
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],!unimodQ[Length/@Split[#]]&]],{n,0,10}]

a(n) + A332726(n) = 2^(n - 1).

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

A332742 Number of non-unimodal negated permutations of a multiset whose multiplicities are the prime indices of n.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 2, 3, 2, 0, 8, 0, 3, 7, 16, 0, 24, 0, 16, 12, 4, 0, 52, 16, 5, 81, 26, 0, 54, 0, 104, 18, 6, 31, 168, 0, 7, 25, 112, 0, 99, 0, 38, 201, 8, 0, 344, 65, 132, 33, 52, 0, 612, 52, 202, 42, 9, 0, 408, 0, 10, 411, 688, 80, 162, 0, 68, 52, 272

Offset: 1

Gus Wiseman, Mar 09 2020

nonn

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

A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

			The a(n) permutations for n = 6, 8, 9, 10, 12, 14, 15, 16:
  121  132  1212  1121  1132  11121  11212  1243
       231  1221  1211  1213  11211  11221  1324
            2121        1231  12111  12112  1342
                        1312         12121  1423
                        1321         12211  1432
                        2131         21121  2143
                        2311         21211  2314
                        3121                2341
                                            2413
                                            2431
                                            3142
                                            3241
                                            3412
                                            3421
                                            4132
                                            4231

Eric Weisstein's World of Mathematics, Unimodal Sequence

Dominated by A318762.
The complement of the non-negated version is counted by A332294.
The non-negated version is A332672.
The complement is counted by A332741.
A less interesting version is A333146.
Unimodal compositions are A001523.
Unimodal normal sequences are A007052.
Non-unimodal normal sequences are A328509.
Partitions with non-unimodal 0-appended first differences are A332284.
Compositions whose negation is unimodal are A332578.
Partitions with non-unimodal negated run-lengths are A332639.
Numbers whose negated prime signature is not unimodal are A332642.
Cf. A056239, A112798, A115981, A124010, A181819, A181821, A304660, A332280, A332283, A332288, A332638, A332669, A333145.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[Permutations[nrmptn[n]],!unimodQ[#]&]],{n,30}]

a(n) + A332741(n) = A318762(n).

A332746 Number of integer partitions of n such that either the run-lengths or the negated run-lengths are unimodal.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 15, 22, 30, 42, 56, 77, 101, 134, 174, 227, 291, 373, 473, 598, 748, 936, 1163, 1437, 1771, 2170, 2651, 3226, 3916, 4727, 5702, 6846, 8205, 9793, 11681, 13866, 16462, 19452, 22976, 27041, 31820, 37276, 43693, 51023, 59559, 69309, 80664

Offset: 0

Gus Wiseman, Feb 27 2020

nonn

First differs from A000041 at a(14) = 134, A000041(14) = 135.

A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

			The only partition not counted under a(14) = 134 is (4,3,3,2,1,1), whose run-lengths (1,2,1,2) are neither unimodal nor is their negation.

MathWorld, Unimodal Sequence

Looking only at the original run-lengths gives A332281.
Looking only at the negated run-lengths gives A332639.
The complement is counted by A332640.
The Heinz numbers of partitions not in this class are A332643.
Unimodal compositions are A001523.
Partitions with unimodal run-lengths are A332280.
Compositions whose negation is unimodal are A332578.
Partitions whose negated run-lengths are unimodal are A332638.
Run-lengths are neither weakly increasing nor weakly decreasing: A332641.
Run-lengths and negated run-lengths are both unimodal: A332745.
Cf. A007052, A025065, A100883, A115981, A181819, A332283, A332577, A332578, A332642, A332669, A332726, A332831.

unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]]
Table[Length[Select[IntegerPartitions[n],unimodQ[Length/@Split[#]]||unimodQ[-Length/@Split[#]]&]],{n,0,30}]

A128422 Projective plane crossing number of K_{4,n}.

Original entry on oeis.org

0, 0, 0, 2, 4, 6, 10, 14, 18, 24, 30, 36, 44, 52, 60, 70, 80, 90, 102, 114, 126, 140, 154, 168, 184, 200, 216, 234, 252, 270, 290, 310, 330, 352, 374, 396, 420, 444, 468, 494, 520, 546, 574, 602, 630, 660, 690, 720, 752, 784, 816, 850, 884, 918, 954, 990, 1026

Offset: 1

Eric W. Weisstein, Mar 02 2007

From Gus Wiseman, Oct 15 2020: (Start)
Also the number of 3-part compositions of n that are neither strictly increasing nor weakly decreasing. The set of numbers k such that row k of A066099 is such a composition is the complement of A333255 (strictly increasing) and A114994 (weakly decreasing) in A014311 (triples). The a(4) = 2 through a(9) = 14 compositions are:
  (1,1,2)  (1,1,3)  (1,1,4)  (1,1,5)  (1,1,6)  (1,1,7)
  (1,2,1)  (1,2,2)  (1,3,2)  (1,3,3)  (1,4,3)  (1,4,4)
           (1,3,1)  (1,4,1)  (1,4,2)  (1,5,2)  (1,5,3)
           (2,1,2)  (2,1,3)  (1,5,1)  (1,6,1)  (1,6,2)
                    (2,3,1)  (2,1,4)  (2,1,5)  (1,7,1)
                    (3,1,2)  (2,2,3)  (2,2,4)  (2,1,6)
                             (2,3,2)  (2,3,3)  (2,2,5)
                             (2,4,1)  (2,4,2)  (2,4,3)
                             (3,1,3)  (2,5,1)  (2,5,2)
                             (4,1,2)  (3,1,4)  (2,6,1)
                                      (3,2,3)  (3,1,5)
                                      (3,4,1)  (3,2,4)
                                      (4,1,3)  (3,4,2)
                                      (5,1,2)  (3,5,1)
                                               (4,1,4)
                                               (4,2,3)
                                               (5,1,3)
                                               (6,1,2)
(End)

Eric Weisstein's World of Mathematics, Complete Bipartite Graph
Eric Weisstein's World of Mathematics, Projective Plane Crossing Number
Index entries for linear recurrences with constant coefficients, signature (2,-1,1,-2,1).

A007997 counts the complement.
A337482 counts these compositions of any length.
A337484 is the non-strict/non-strict version.
A000009 counts strictly increasing compositions, ranked by A333255.
A000041 counts weakly decreasing compositions, ranked by A114994.
A001523 counts unimodal compositions (strict: A072706).
A007318 and A097805 count compositions by length.
A032020 counts strict compositions, ranked by A233564.
A225620 ranks weakly increasing compositions.
A333149 counts neither increasing nor decreasing strict compositions.
A333256 ranks strictly decreasing compositions.
A337483 counts 3-part weakly increasing or weakly decreasing compositions.
Cf. A000217, A001399, A001840, A059204, A072705, A115981, A329398, A332578, A332831, A332833, A332834, A332874, A333147, A333190.

Table[Floor[((n - 2)^2 + (n - 2))/3], {n, 1, 100}] (* Vladimir Joseph Stephan Orlovsky, Jan 31 2012 *)
Table[Ceiling[n^2/3] - n, {n, 20}] (* Eric W. Weisstein, Sep 07 2018 *)
Table[(3 n^2 - 9 n + 4 - 4 Cos[2 n Pi/3])/9, {n, 20}] (* Eric W. Weisstein, Sep 07 2018 *)
LinearRecurrence[{2, -1, 1, -2, 1}, {0, 0, 0, 2, 4, 6}, 20] (* Eric W. Weisstein, Sep 07 2018 *)
CoefficientList[Series[-2 x^3/((-1 + x)^3 (1 + x + x^2)), {x, 0, 20}], x] (* Eric W. Weisstein, Sep 07 2018 *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n,{3}],!Less@@#&&!GreaterEqual@@#&]],{n,15}] (* Gus Wiseman, Oct 15 2020 *)

a(n)=(n-1)*(n-2)\3 \\ Charles R Greathouse IV, Jun 06 2013

a(n) = floor(n/3)*(2n-3(floor(n/3)+1)).
a(n) = ceiling(n^2/3) - n. - Charles R Greathouse IV, Jun 06 2013
G.f.: -2*x^4 / ((x-1)^3*(x^2+x+1)). - Colin Barker, Jun 06 2013
a(n) = floor((n - 1)(n - 2) / 3). - Christopher Hunt Gribble, Oct 13 2009
a(n) = 2*A001840(n-3). - R. J. Mathar, Jul 21 2015
a(n) = A000217(n-2) - A001399(n-6) - A001399(n-3). - Gus Wiseman, Oct 15 2020
Sum_{n>=4} 1/a(n) = 10/3 - Pi/sqrt(3). - Amiram Eldar, Sep 27 2022

A332643 Neither the unsorted prime signature of a(n) nor the negated unsorted prime signature of a(n) is unimodal.

Original entry on oeis.org

2100, 3300, 3900, 4200, 4410, 5100, 5700, 6468, 6600, 6900, 7644, 7800, 8400, 8700, 9300, 9996, 10200, 10500, 10780, 10890, 11100, 11172, 11400, 12300, 12740, 12900, 12936, 13200, 13230, 13524, 13800, 14100, 15210, 15246, 15288, 15600, 15900, 16500, 16660

Offset: 1

Gus Wiseman, Feb 28 2020

nonn

A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

			The sequence of terms together with their prime indices begins:
   2100: {1,1,2,3,3,4}
   3300: {1,1,2,3,3,5}
   3900: {1,1,2,3,3,6}
   4200: {1,1,1,2,3,3,4}
   4410: {1,2,2,3,4,4}
   5100: {1,1,2,3,3,7}
   5700: {1,1,2,3,3,8}
   6468: {1,1,2,4,4,5}
   6600: {1,1,1,2,3,3,5}
   6900: {1,1,2,3,3,9}
   7644: {1,1,2,4,4,6}
   7800: {1,1,1,2,3,3,6}
   8400: {1,1,1,1,2,3,3,4}
   8700: {1,1,2,3,3,10}
   9300: {1,1,2,3,3,11}
   9996: {1,1,2,4,4,7}
  10200: {1,1,1,2,3,3,7}
  10500: {1,1,2,3,3,3,4}
  10780: {1,1,3,4,4,5}
  10890: {1,2,2,3,5,5}

MathWorld, Unimodal Sequence

Not requiring non-unimodal negation gives A332282.
These are the Heinz numbers of the partitions counted by A332640.
Not requiring non-unimodality gives A332642.
The case of compositions is A332870.
Unimodal compositions are A001523.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Unsorted prime signature is A124010.
Non-unimodal normal sequences are A328509.
Partitions whose 0-appended first differences are unimodal are A332283, with Heinz numbers the complement of A332287.
Compositions whose negation is unimodal are A332578.
Compositions whose negation is not unimodal are A332669.
Partitions whose 0-appended first differences are not unimodal are A332744, with Heinz numbers A332832.
Numbers whose signature is neither increasing nor decreasing are A332831.
Cf. A007052, A056239, A072704, A112798, A242031, A242414, A332280, A332281, A332288, A332294, A332639, A332728, A332742.

unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]]
Select[Range[10000],!unimodQ[Last/@FactorInteger[#]]&&!unimodQ[-Last/@FactorInteger[#]]&]

Intersection of A332282 and A332642.

A332728 Number of integer partitions of n whose negated first differences (assuming the last part is zero) are unimodal.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 7, 8, 10, 13, 14, 17, 22, 24, 28, 34, 37, 43, 53, 56, 64, 76, 83, 93, 111, 117, 131, 153, 163, 182, 210, 225, 250, 284, 304, 332, 377, 401, 441, 497, 529, 576, 647, 687, 745, 830, 883, 955, 1062, 1127, 1216, 1339, 1422, 1532, 1684, 1779, 1914

Offset: 0

Gus Wiseman, Feb 26 2020

nonn

First differs from A000041 at a(6) = 10, A000041(6) = 11.

A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

			The a(1) = 1 through a(8) = 10 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (221)    (51)      (61)       (62)
                            (11111)  (222)     (331)      (71)
                                     (321)     (421)      (332)
                                     (111111)  (2221)     (431)
                                               (1111111)  (521)
                                                          (2222)
                                                          (11111111)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..600
Eric Weisstein's World of Mathematics, Unimodal Sequence.
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

The non-negated version is A332283.
The non-negated complement is counted by A332284.
The strict case is A332577.
The case of run-lengths (instead of differences) is A332638.
The complement is counted by A332744.
The Heinz numbers of partitions not in this class are A332287.
Unimodal compositions are A001523.
Compositions whose negation is unimodal are A332578.
Compositions whose run-lengths are unimodal are A332726.
Cf. A007052, A332280, A332285, A332286, A332639, A332642, A332669, A332670, A332741.

unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[IntegerPartitions[n],unimodQ[-Differences[Append[#,0]]]&]],{n,0,30}]

A332743 Number of non-unimodal compositions of n covering an initial interval of positive integers.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 5, 14, 35, 83, 193, 417, 890, 1847, 3809, 7805, 15833, 32028, 64513, 129671, 260155, 521775, 1044982, 2092692, 4188168, 8381434, 16767650, 33544423, 67098683, 134213022, 268443023, 536912014, 1073846768, 2147720476, 4295440133, 8590833907

Offset: 0

Gus Wiseman, Mar 02 2020

nonn

A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

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

			The a(5) = 1 through a(7) = 14 compositions:
  (212)  (213)   (1213)
         (312)   (1312)
         (1212)  (2113)
         (2112)  (2122)
         (2121)  (2131)
                 (2212)
                 (3112)
                 (3121)
                 (11212)
                 (12112)
                 (12121)
                 (21112)
                 (21121)
                 (21211)

MathWorld, Unimodal Sequence

Not requiring non-unimodality gives A107429.
Not requiring the covering condition gives A115981.
The complement is counted by A227038.
A version for partitions is A332579, with complement A332577.
Unimodal compositions are A001523.
Non-unimodal permutations are A059204.
Non-unimodal normal sequences are A328509.
Numbers whose unsorted prime signature is not unimodal are A332282.
Cf. A007052, A072704, A072706, A332281, A332284, A332287, A332578, A332639, A332642, A332669, A332834, A332870.

normQ[m_]:=m=={}||Union[m]==Range[Max[m]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],normQ[#]&&!unimodQ[#]&]],{n,0,10}]

For n > 0, a(n) = A107429(n) - A227038(n).

A332741 Number of unimodal negated permutations of a multiset whose multiplicities are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 4, 3, 2, 1, 4, 1, 2, 3, 8, 1, 6, 1, 4, 3, 2, 1, 8, 4, 2, 9, 4, 1, 6, 1, 16, 3, 2, 4, 12, 1, 2, 3, 8, 1, 6, 1, 4, 9, 2, 1, 16, 5, 8, 3, 4, 1, 18, 4, 8, 3, 2, 1, 12, 1, 2, 9, 32, 4, 6, 1, 4, 3, 8, 1, 24, 1, 2, 12, 4, 5, 6, 1, 16, 27, 2, 1

Offset: 1

Gus Wiseman, Mar 09 2020

nonn

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

A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

			The a(12) = 4 permutations:
  {1,1,2,3}
  {2,1,1,3}
  {3,1,1,2}
  {3,2,1,1}

Eric Weisstein's World of Mathematics, Unimodal Sequence

Dominated by A318762.
The non-negated version is A332294.
The complement is counted by A332742.
A less interesting version is A333145.
Unimodal compositions are A001523.
Unimodal normal sequences are A007052.
Numbers with non-unimodal negated prime signature are A332642.
Partitions whose 0-appended first differences are unimodal are A332283.
Compositions whose negation is unimodal are A332578.
Partitions with unimodal negated run-lengths are A332638.
Cf. A056239, A112798, A115981, A124010, A181819, A181821, A304660, A332280, A332288, A332639, A332669, A332672.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[Permutations[nrmptn[n]],unimodQ[-#]&]],{n,30}]

a(n) + A332742(n) = A318762(n).

A218004 Number of equivalence classes of compositions of n where two compositions a,b are considered equivalent if the summands of a can be permuted into the summands of b with an even number of transpositions.

Original entry on oeis.org

1, 1, 2, 4, 6, 9, 14, 19, 27, 37, 51, 67, 91, 118, 156, 202, 262, 334, 430, 543, 690, 867, 1090, 1358, 1696, 2099, 2600, 3201, 3939, 4820, 5899, 7181, 8738, 10590, 12821, 15467, 18644, 22396, 26878, 32166, 38450, 45842, 54599, 64870, 76990, 91181, 107861, 127343, 150182, 176788, 207883

Offset: 0

Geoffrey Critzer, Oct 17 2012

nonn

a(n) = A000041(n) + A000009(n) - 1  where A000041 is the partition numbers and A000009 is the number of partitions into distinct parts.
From Gus Wiseman, Oct 14 2020: (Start)
Also the number of compositions of n that are either strictly increasing or weakly decreasing. For example, the a(1) = 1 through a(6) = 14 compositions are:
  (1)  (2)   (3)    (4)     (5)      (6)
       (11)  (12)   (13)    (14)     (15)
             (21)   (22)    (23)     (24)
             (111)  (31)    (32)     (33)
                    (211)   (41)     (42)
                    (1111)  (221)    (51)
                            (311)    (123)
                            (2111)   (222)
                            (11111)  (321)
                                     (411)
                                     (2211)
                                     (3111)
                                     (21111)
                                     (111111)
A007997 counts only compositions of length 3.
A329398 appears to be the weakly increasing version.
A333147 is the strictly decreasing version.
A333255 union A114994 ranks these compositions using standard compositions (A066099).
A337482 counts the complement.
(End)

			a(4) = 6 because the 6 classes can be represented by: 4, 3+1, 1+3, 2+2, 2+1+1, 1+1+1+1.

A000009 counts strictly increasing compositions, ranked by A333255.
A000041 counts weakly decreasing compositions, ranked by A114994.
A001523 counts unimodal compositions (strict: A072706).
A007318 and A097805 count compositions by length.
A032020 counts strict compositions, ranked by A233564.
A332834 counts compositions not increasing nor decreasing (strict: A333149).
Cf. A115981, A225620, A332578, A332833, A332874, A333150, A333190, A333191, A333256, A337483, A337484.

nn=50;p=CoefficientList[Series[Product[1/(1-x^i),{i,1,nn}],{x,0,nn}],x];d= CoefficientList[Series[Sum[Product[x^i/(1-x^i),{i,1,k}],{k,0,nn}],{x,0,nn}],x];p+d-1
(* second program *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],Less@@#||GreaterEqual@@#&]],{n,0,15}] (* Gus Wiseman, Oct 14 2020 *)

A332744 Number of integer partitions of n whose negated first differences (assuming the last part is zero) are not unimodal.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 4, 7, 12, 17, 28, 39, 55, 77, 107, 142, 194, 254, 332, 434, 563, 716, 919, 1162, 1464, 1841, 2305, 2857, 3555, 4383, 5394, 6617, 8099, 9859, 12006, 14551, 17600, 21236, 25574, 30688, 36809, 44007, 52527, 62574, 74430, 88304, 104675, 123799

Offset: 0

Gus Wiseman, Feb 27 2020

nonn

A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.

			The a(4) = 1 through a(9) = 17 partitions:
  (211)  (311)   (411)    (322)     (422)      (522)
         (2111)  (2211)   (511)     (611)      (711)
                 (3111)   (3211)    (3221)     (3222)
                 (21111)  (4111)    (3311)     (4221)
                          (22111)   (4211)     (4311)
                          (31111)   (5111)     (5211)
                          (211111)  (22211)    (6111)
                                    (32111)    (32211)
                                    (41111)    (33111)
                                    (221111)   (42111)
                                    (311111)   (51111)
                                    (2111111)  (222111)
                                               (321111)
                                               (411111)
                                               (2211111)
                                               (3111111)
                                               (21111111)
For example, the partition y = (4,2,1,1,1) has negated 0-appended first differences (2,1,0,0,1), which is not unimodal, so y is counted under a(9).

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..600
Eric Weisstein's World of Mathematics, Unimodal Sequence.
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

The complement is counted by A332728.
The non-negated version is A332284.
The strict case is A332579.
The case of run-lengths (instead of differences) is A332639.
The Heinz numbers of these partitions are A332832.
Unimodal compositions are A001523.
Non-unimodal compositions are A115981.
Heinz numbers of partitions with non-unimodal run-lengths are A332282.
Partitions whose 0-appended first differences are unimodal are A332283.
Compositions whose negation is unimodal are A332578.
Numbers whose negated prime signature is not unimodal are A332642.
Compositions whose negation is not unimodal are A332669.
Cf. A059204, A227038, A332280, A332285, A332286, A332287, A332638, A332670, A332725, A332726.

unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[IntegerPartitions[n],!unimodQ[-Differences[Append[#,0]]]&]],{n,0,30}]

cp's OEIS Frontend

A332727 Number of compositions of n whose run-lengths are not unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A332742 Number of non-unimodal negated permutations of a multiset whose multiplicities are the prime indices of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A332746 Number of integer partitions of n such that either the run-lengths or the negated run-lengths are unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A128422 Projective plane crossing number of K_{4,n}.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A332643 Neither the unsorted prime signature of a(n) nor the negated unsorted prime signature of a(n) is unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A332728 Number of integer partitions of n whose negated first differences (assuming the last part is zero) are unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A332743 Number of non-unimodal compositions of n covering an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A332741 Number of unimodal negated permutations of a multiset whose multiplicities are the prime indices of n.

Views

Author