A328509 -id:A328509 - cp's OEIS frontend

A332639 Number of integer partitions of n whose negated run-lengths are not unimodal.

0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 4, 7, 10, 17, 25, 36, 51, 75, 102, 143, 192, 259, 346, 462, 599, 786, 1014, 1309, 1670, 2133, 2686, 3402, 4258, 5325, 6623, 8226, 10134, 12504, 15328, 18779, 22878, 27870, 33762, 40916, 49349, 59457, 71394, 85679, 102394

Offset: 0

Gus Wiseman, Feb 25 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(8) = 1 through a(13) = 10 partitions:
  (3221)  (4221)  (5221)   (4331)    (4332)    (5332)
                  (32221)  (6221)    (5331)    (6331)
                           (42221)   (7221)    (8221)
                           (322211)  (43221)   (43321)
                                     (52221)   (53221)
                                     (322221)  (62221)
                                     (422211)  (332221)
                                               (422221)
                                               (522211)
                                               (3222211)

MathWorld, Unimodal Sequence

The version for normal sequences is A328509.
The non-negated complement is A332280.
The non-negated version is A332281.
The complement is counted by A332638.
The case that is not unimodal either is A332640.
The Heinz numbers of these partitions are A332642.
The generalization to run-lengths of compositions is A332727.
Unimodal compositions are A001523.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Compositions whose negation is not unimodal are A332669.
Cf. A007052, A025065, A100883, A181819, A332282, A332578, A332579, A332641, A332670, A332671, A332726, A332742, A332744.

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[#]]&]],{n,0,30}]

A332642 Numbers whose negated unsorted prime signature is not unimodal.

Original entry on oeis.org

90, 126, 198, 234, 270, 306, 342, 350, 378, 414, 522, 525, 540, 550, 558, 594, 630, 650, 666, 702, 738, 756, 774, 810, 825, 846, 850, 918, 950, 954, 975, 990, 1026, 1050, 1062, 1078, 1098, 1134, 1150, 1170, 1188, 1206, 1242, 1274, 1275, 1278, 1314, 1350, 1386

Offset: 1

Gus Wiseman, Feb 28 2020

nonn

A sequence of 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:
    90: {1,2,2,3}
   126: {1,2,2,4}
   198: {1,2,2,5}
   234: {1,2,2,6}
   270: {1,2,2,2,3}
   306: {1,2,2,7}
   342: {1,2,2,8}
   350: {1,3,3,4}
   378: {1,2,2,2,4}
   414: {1,2,2,9}
   522: {1,2,2,10}
   525: {2,3,3,4}
   540: {1,1,2,2,2,3}
   550: {1,3,3,5}
   558: {1,2,2,11}
   594: {1,2,2,2,5}
   630: {1,2,2,3,4}
   650: {1,3,3,6}
   666: {1,2,2,12}
   702: {1,2,2,2,6}
For example, 630 has negated unsorted prime signature (-1,-2,-1,-1), which is not unimodal, so 630 is in the sequence.

Eric Weisstein's World of Mathematics, Unimodal Sequence

These are the Heinz numbers of the partitions counted by A332639.
The case that is not unimodal either is A332643.
The version for compositions is A332669.
The complement is A332282.
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.
The number of non-unimodal negated permutations of a multiset whose multiplicities are the prime indices of n is A332742(n).
Partitions whose negated 0-appended first differences are not unimodal are A332744, with Heinz numbers A332832.
Cf. A007052, A056239, A112798, A181821, A242031, A329747, A332280, A332281, A332578, A332671, A332831.

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

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

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 2, 4, 6, 12, 18, 28, 42, 62, 86, 123, 168, 226, 306, 411, 534, 704, 908, 1165, 1492, 1898, 2384, 3011, 3758, 4673, 5799, 7168, 8792, 10804, 13192, 16053, 19505, 23633, 28497, 34367, 41283, 49470, 59188, 70675, 84113, 100048, 118689, 140533

Offset: 0

Gus Wiseman, Feb 20 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(6) = 1 through a(11) = 18 partitions:
  (2211)  (331)    (431)     (441)      (541)       (551)
          (22111)  (3311)    (4311)     (3322)      (641)
                   (22211)   (32211)    (3331)      (4331)
                   (221111)  (33111)    (4411)      (4421)
                             (222111)   (33211)     (5411)
                             (2211111)  (42211)     (33221)
                                        (43111)     (33311)
                                        (222211)    (44111)
                                        (322111)    (52211)
                                        (331111)    (322211)
                                        (2221111)   (332111)
                                        (22111111)  (422111)
                                                    (431111)
                                                    (2222111)
                                                    (3221111)
                                                    (3311111)
                                                    (22211111)
                                                    (221111111)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..400
Eric Weisstein's World of Mathematics, Unimodal Sequence.

The complement is counted by A332283.
The strict version is A332286.
The Heinz numbers of these partitions are A332287.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences appear to be A328509.
Partitions with non-unimodal run-lengths are A332281.
Heinz numbers of partitions with non-unimodal run-lengths are A332282.
Cf. A001523, A007052, A332280, A332285, A332288, A332579, A332638, A332639, A332640, A332642.

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,30}]

A072704 Triangle of number of weakly unimodal partitions/compositions of n into exactly k terms.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 5, 4, 1, 1, 5, 8, 7, 5, 1, 1, 6, 12, 12, 9, 6, 1, 1, 7, 16, 20, 16, 11, 7, 1, 1, 8, 21, 30, 28, 20, 13, 8, 1, 1, 9, 27, 42, 45, 36, 24, 15, 9, 1, 1, 10, 33, 58, 68, 60, 44, 28, 17, 10, 1, 1, 11, 40, 77, 98, 95, 75, 52, 32, 19, 11, 1

Offset: 1

Henry Bottomley, Jul 04 2002

			Rows start:
01:  [1]
02:  [1, 1]
03:  [1, 2, 1]
04:  [1, 3, 3, 1]
05:  [1, 4, 5, 4, 1]
06:  [1, 5, 8, 7, 5, 1]
07:  [1, 6, 12, 12, 9, 6, 1]
08:  [1, 7, 16, 20, 16, 11, 7, 1]
09:  [1, 8, 21, 30, 28, 20, 13, 8, 1]
10:  [1, 9, 27, 42, 45, 36, 24, 15, 9, 1]
...
T(6,3)=8 since 6 can be written as 1+1+4, 1+2+3, 1+3+2, 1+4+1, 2+2+2, 2+3+1, 3+2+1, or 4+1+1 but not 2+1+3 or 3+1+2.

Alois P. Heinz, Rows n = 1..141, flattened
Henry Bottomley, Illustration of initial terms
Rigoberto Flórez, Leandro Junes, and José L. Ramírez, Enumerating several aspects of non-decreasing Dyck paths, Discrete Mathematics (2019) Vol. 342, Issue 11, 3079-3097. See page 3094, Table 4.
Eric Weisstein's World of Mathematics, Unimodal Sequence

Cf. A059623, A072705. Row sums are A001523. First column is A057427, second is A000027 offset, third appears to be A000212 offset, right hand columns include A000012, A000027, A005408 and A008574.
The case of partitions is A072233.
Dominates A332670 (the version for negated compositions).
The strict case is A072705.
The case of constant compositions is A113704.
Unimodal sequences covering an initial interval are A007052.
Partitions whose run-lengths are unimodal are A332280.
Cf. A107429, A115981, A227038, A328509, A332282, A332283, A332578, A332638, A332669, A332728.

b:= proc(n, i) option remember; local q; `if`(i>n, 0,
      `if`(irem(n, i, 'q')=0, x^q, 0) +expand(
      add(b(n-i*j, i+1)*(j+1)*x^j, j=0..n/i)))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=1..n))(b(n, 1)):
seq(T(n), n=1..12);  # Alois P. Heinz, Mar 26 2014

b[n_, i_] := b[n, i] = If[i>n, 0, If[Mod[n, i ] == 0, x^Quotient[n, i], 0] + Expand[ Sum[b[n-i*j, i+1]*(j+1)*x^j, {j, 0, n/i}]]]; T[n_] := Function[{p}, Table[Coefficient[p, x, i], {i, 1, n}]][b[n, 1]]; Table[T[n], {n, 1, 12}] // Flatten (* Jean-François Alcover, Feb 26 2015, after Alois P. Heinz *)
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n,{k}],unimodQ]],{n,0,10},{k,0,n}] (* Gus Wiseman, Mar 06 2020 *)

\\ starting for n=0, with initial column 1, 0, 0, ...:
N=25;  x='x+O('x^N);
T=Vec(1 + sum(n=1, N, t*x^n / ( prod(k=1,n-1, (1 - t*x^k)^2 ) * (1 - t*x^n) ) ) )
for(r=1,#T, print(Vecrev(T[r])) ); \\ Joerg Arndt, Oct 01 2017

G.f. with initial column 1, 0, 0, ...: 1 + Sum_{n>=1} (t*x^n / ( ( Product_{k=1..n-1} (1 - t*x^k)^2 ) * (1 - t*x^n) ) ). - Joerg Arndt, Oct 01 2017

A332745 Number of integer partitions of n whose run-lengths are either weakly increasing or weakly decreasing.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 15, 21, 29, 39, 51, 68, 87, 113, 143, 183, 228, 289, 354, 443, 544, 672, 812, 1001, 1202, 1466, 1758, 2123, 2525, 3046, 3606, 4308, 5089, 6054, 7102, 8430, 9855, 11621, 13571, 15915, 18500, 21673, 25103, 29245, 33835, 39296, 45277, 52470

Offset: 0

Gus Wiseman, Feb 29 2020

nonn

Also partitions whose run-lengths and negated run-lengths are both unimodal.

			The a(8) = 21 partitions are:
  (8)     (44)     (2222)
  (53)    (332)    (22211)
  (62)    (422)    (32111)
  (71)    (431)    (221111)
  (521)   (3311)   (311111)
  (611)   (4211)   (2111111)
  (5111)  (41111)  (11111111)
Missing from this list is only (3221).

The complement is counted by A332641.
The Heinz numbers of partitions not in this class are A332831.
The case of run-lengths of compositions is A332835.
Only weakly decreasing is A100882.
Only weakly increasing is A100883.
Unimodal compositions are A001523.
Non-unimodal compositions are A115981.
Partitions with unimodal run-lengths are A332280.
Partitions whose negated run-lengths are unimodal are A332638.
Compositions with unimodal run-lengths are A332726.
Compositions that are neither weakly increasing nor decreasing are A332834.
Cf. A025065, A059204, A181819, A328509, A332281, A332283, A332577, A332578, A332640, A332727, A332742, A332833.

Table[Length[Select[IntegerPartitions[n],Or[LessEqual@@Length/@Split[#],GreaterEqual@@Length/@Split[#]]&]],{n,0,30}]

A332726 Number of compositions of n whose run-lengths are unimodal.

Original entry on oeis.org

1, 1, 2, 4, 8, 16, 31, 61, 120, 228, 438, 836, 1580, 2976, 5596, 10440, 19444, 36099, 66784, 123215, 226846, 416502, 763255, 1395952, 2548444, 4644578, 8452200, 15358445, 27871024, 50514295, 91446810, 165365589, 298730375, 539127705, 972099072, 1751284617, 3152475368

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 only composition of 6 whose run-lengths are not unimodal is (1,1,2,1,1).

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 run-lengths) gives A001523.
The case of partitions is A332280, with complement counted by A332281.
The complement is counted by A332727.
Unimodal compositions are A001523.
Unimodal normal sequences appear to be A007052.
Non-unimodal compositions are A115981.
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 negated run-lengths are unimodal are A332578.
Compositions whose negated run-lengths are not unimodal are A332669.
Compositions whose run-lengths are weakly increasing are A332836.
Cf. A072706, A100883, A181819, A227038, A328509, A329744, A329746, A332642, A332670, A332741, A332833, A332835.

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

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}
desc(M, m)={my(n=matsize(M)[1]); while(m>1, m--; M=step(M,m)); vector(n, i, vecsum(M[i,]))/(#M-1)}
seq(n)={my(M=matrix(n+1, n+1, i, j, i==1), S=M[,1]~); for(m=1, n, my(D=M); M=step(M, m); D=(M-D)[m+1..n+1,1..n-m+2]; S+=concat(vector(m), desc(D,m))); S} \\ Andrew Howroyd, Dec 31 2020

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

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

A332287 Heinz numbers of integer partitions whose first differences (assuming the last part is zero) are not unimodal.

Original entry on oeis.org

36, 50, 70, 72, 98, 100, 108, 140, 144, 154, 180, 182, 196, 200, 216, 225, 242, 250, 252, 280, 286, 288, 294, 300, 308, 324, 338, 350, 360, 363, 364, 374, 392, 396, 400, 418, 429, 432, 441, 442, 450, 462, 468, 484, 490, 494, 500, 504, 507, 540, 550, 560, 561

Offset: 1

Gus Wiseman, Feb 21 2020

nonn

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

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), which gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
   36: {1,1,2,2}
   50: {1,3,3}
   70: {1,3,4}
   72: {1,1,1,2,2}
   98: {1,4,4}
  100: {1,1,3,3}
  108: {1,1,2,2,2}
  140: {1,1,3,4}
  144: {1,1,1,1,2,2}
  154: {1,4,5}
  180: {1,1,2,2,3}
  182: {1,4,6}
  196: {1,1,4,4}
  200: {1,1,1,3,3}
  216: {1,1,1,2,2,2}
  225: {2,2,3,3}
  242: {1,5,5}
  250: {1,3,3,3}
  252: {1,1,2,2,4}
  280: {1,1,1,3,4}
For example, the prime indices of 70 with 0 appended are (4,3,1,0), with differences (-1,-2,-1), which is not unimodal, so 70 belongs to the sequence.

MathWorld, Unimodal Sequence

The enumeration of these partitions by sum is A332284.
Not assuming the last part is zero gives A332725.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Partitions with non-unimodal run-lengths are A332281.
Cf. A001523, A007052, A332280, A332282, A332283, A332285, A332286, A332288, A332294, A332579, A332639, A332642.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Select[Range[1000],!unimodQ[Differences[Append[Reverse[primeMS[#]],0]]]&]

A332288 Number of unimodal permutations of the multiset of prime indices of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 2, 1, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 1, 3, 1, 4, 1, 1, 2, 2, 2, 3, 1, 2, 2, 4, 1, 4, 1, 3, 3, 2, 1, 5, 1, 2, 2, 3, 1, 2, 2, 4, 2, 2, 1, 6, 1, 2, 3, 1, 2, 4, 1, 3, 2, 4, 1, 4, 1, 2, 2, 3, 2, 4, 1, 5, 1, 2, 1, 6, 2, 2, 2

Offset: 1

Gus Wiseman, Feb 22 2020

nonn

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.
A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.
Also permutations of the multiset of prime indices of n avoiding the patterns (2,1,2), (2,1,3), and (3,1,2).

			The a(n) permutations for n = 2, 6, 12, 24, 48, 60, 120, 180:
  (1)  (12)  (112)  (1112)  (11112)  (1123)  (11123)  (11223)
       (21)  (121)  (1121)  (11121)  (1132)  (11132)  (11232)
             (211)  (1211)  (11211)  (1231)  (11231)  (11322)
                    (2111)  (12111)  (1321)  (11321)  (12231)
                            (21111)  (2311)  (12311)  (12321)
                                     (3211)  (13211)  (13221)
                                             (23111)  (22311)
                                             (32111)  (23211)
                                                      (32211)

Wikipedia, Permutation pattern
MathWorld, Unimodal Sequence

Dominated by A008480.
A more interesting version is A332294.
The complement is counted by A332671.
Unimodal compositions are A001523.
Unimodal normal sequences appear to be A007052.
Unimodal permutations are A011782.
Non-unimodal permutations are A059204.
Numbers with non-unimodal unsorted prime signature are A332282.
Partitions with unimodal 0-appended first differences are A332283.
Cf. A056239, A112798, A115981, A124010, A227038, A304660, A328509, A332280, A332284, A332294, A332578, A332672.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{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[primeMS[n]],unimodQ]],{n,30}]

A332870 Number of compositions of n that are neither unimodal nor is their negation.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 2, 9, 32, 92, 243, 587, 1361, 3027, 6564, 13928, 29127, 60180, 123300, 250945, 508326, 1025977, 2065437, 4150056, 8327344, 16692844, 33438984, 66951671, 134004892, 268148573, 536486146, 1073227893, 2146800237, 4294061970, 8588740071, 17178298617

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(6) = 2 and a(7) = 9 compositions:
  (1212)  (1213)
  (2121)  (1312)
          (2131)
          (3121)
          (11212)
          (12112)
          (12121)
          (21121)
          (21211)

Andrew Howroyd, Table of n, a(n) for n = 0..1000

The case of run-lengths of partitions is A332640.
The version for unsorted prime signature is A332643.
Unimodal compositions are A001523.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Compositions whose negation is unimodal are A332578.
Compositions whose negation is not unimodal are A332669.
Partitions with weakly increasing or decreasing run-lengths are A332745.
Compositions that are neither weakly increasing nor decreasing are A332834.
Compositions with weakly increasing or decreasing run-lengths are A332835.
Cf. A000005, A000041, A007052, A072704, A227038, A329398, A332281, A332284, A332639, A332641, A332746, A332831, 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[#]&&!unimodQ[-#]&]],{n,0,10}]

a(n) = 2^(n-1) - A001523(n) - A332578(n) + 2*A000041(n) - A000005(n) for n > 0. - Andrew Howroyd, Dec 30 2020

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

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

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 2, 3, 5, 5, 7, 9, 12, 15, 22, 23, 31, 40, 47, 58, 72, 81, 100, 122, 144, 171, 206, 236, 280, 333, 381, 445, 522, 593, 694, 802, 914, 1054, 1214, 1376, 1577, 1803, 2040, 2324, 2646, 2973, 3373, 3817, 4287, 4838, 5453, 6096, 6857

Offset: 0

Gus Wiseman, Feb 21 2020

nonn

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

Also the number integer partitions of n that cover an initial interval of positive integers and whose negated run-lengths are not unimodal.

			The a(8) = 1 through a(18) = 7 partitions:
  (431)  .  (541)  (641)  (651)   (652)   (752)   (762)   (862)
                          (5421)  (751)   (761)   (861)   (871)
                                  (5431)  (851)   (6531)  (961)
                                          (6431)  (7431)  (6532)
                                          (6521)  (7521)  (6541)
                                                          (7621)
                                                          (8431)
For example, (4,3,1,0) has first differences (-1,-2,-1), which is not unimodal, so (4,3,1) is counted under a(8).

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..500
Eric Weisstein's World of Mathematics, Unimodal Sequence.

Strict partitions are A000009.
Partitions covering an initial interval are (also) A000009.
The non-strict version is A332284.
The complement is counted by A332285.
Unimodal compositions are A001523.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Partitions with non-unimodal run-lengths are A332281.
Normal partitions whose run-lengths are not unimodal are A332579.
Cf. A007052, A011782, A025065, A072706, A227038, A332282, A332283, A332286, A332287, A332288, A332577, A332638, A332642, A332743.

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

cp's OEIS Frontend

A332639 Number of integer partitions of n whose negated run-lengths are not unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A332642 Numbers whose negated unsorted prime signature is not unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A072704 Triangle of number of weakly unimodal partitions/compositions of n into exactly k terms.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A332745 Number of integer partitions of n whose run-lengths are either weakly increasing or weakly decreasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A332726 Number of compositions of n whose run-lengths are unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A332287 Heinz numbers of integer partitions whose first differences (assuming the last part is zero) are not unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A332288 Number of unimodal permutations of the multiset of prime indices of n.

Views

Author

Keywords

Comments