A059204 -id:A059204 - cp's OEIS frontend

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

12, 20, 24, 28, 36, 40, 44, 45, 48, 52, 56, 60, 63, 68, 72, 76, 80, 84, 88, 90, 92, 96, 99, 100, 104, 108, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 164, 165, 168, 171, 172, 175, 176, 180, 184, 188, 189, 192, 195, 196, 198

Offset: 1

Gus Wiseman, Mar 02 2020

nonn

First differs from A065201 in having 165.
First differs from A316597 in having 36.
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). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   36: {1,1,2,2}
   40: {1,1,1,3}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   68: {1,1,7}
   72: {1,1,1,2,2}
   76: {1,1,8}
   80: {1,1,1,1,3}
   84: {1,1,2,4}
   88: {1,1,1,5}
   90: {1,2,2,3}
For example, 60 is the Heinz number of (3,2,1,1), with negated 0-appended first-differences (1,1,0,1), which are not unimodal, so 60 is in the sequence.

MathWorld, Unimodal Sequence
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

The non-negated version is A332287.
The version for of run-lengths (instead of differences) is A332642.
The enumeration of these partitions by sum is A332744.
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.
Compositions whose negation is not unimodal are A332669.
Cf. A059204, A227038, A332284, A332285, A332286, A332578, A332638, A332639, A332670, A332725, A332728.

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[100],!unimodQ[Differences[Prepend[primeMS[#],0]]]&]

A333149 Number of strict compositions of n that are neither increasing nor decreasing.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 4, 4, 8, 12, 38, 42, 72, 98, 150, 298, 372, 542, 760, 1070, 1428, 2600, 3120, 4550, 6050, 8478, 10976, 15220, 23872, 29950, 41276, 55062, 74096, 97148, 129786, 167256, 256070, 314454, 429338, 556364, 749266, 955746, 1275016, 1618054

Offset: 0

Gus Wiseman, May 16 2020

nonn

A composition of n is a finite sequence of positive integers summing to n. It is strict if there are no repeated parts.

			The a(6) = 4 through a(9) = 12 compositions:
  (1,3,2)  (1,4,2)  (1,4,3)  (1,5,3)
  (2,1,3)  (2,1,4)  (1,5,2)  (1,6,2)
  (2,3,1)  (2,4,1)  (2,1,5)  (2,1,6)
  (3,1,2)  (4,1,2)  (2,5,1)  (2,4,3)
                    (3,1,4)  (2,6,1)
                    (3,4,1)  (3,1,5)
                    (4,1,3)  (3,2,4)
                    (5,1,2)  (3,4,2)
                             (3,5,1)
                             (4,2,3)
                             (5,1,3)
                             (6,1,2)

Eric Weisstein's World of Mathematics, Unimodal Sequence

The non-strict case is A332834.
The complement is counted by A333147.
Strict partitions are A000009.
Strict compositions are A032020.
Non-unimodal strict compositions are A072707.
Strict partitions with increasing or decreasing run-lengths are A333190.
Strict compositions with increasing or decreasing run-lengths are A333191.
Unimodal compositions are A001523, with strict case A072706.
Cf. A059204, A115981, A227038, A329398, A332745, A332746, A332831, A332833, A332835, A332874, A333150, A333192.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@#&&!Greater@@#&&!Less@@#&]],{n,0,10}]

a(n) = A032020(n) - 2*A000009(n) + 1.

A333190 Number of integer partitions of n whose run-lengths are either strictly increasing or strictly decreasing.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 7, 10, 13, 15, 21, 26, 29, 39, 49, 50, 68, 80, 92, 109, 129, 142, 181, 201, 227, 262, 317, 343, 404, 456, 516, 589, 677, 742, 870, 949, 1077, 1207, 1385, 1510, 1704, 1895, 2123, 2352, 2649, 2877, 3261, 3571, 3966, 4363, 4873, 5300, 5914, 6466

Offset: 0

Gus Wiseman, May 17 2020

nonn

			The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (221)    (33)      (322)      (44)
                    (211)   (311)    (222)     (331)      (332)
                    (1111)  (2111)   (411)     (511)      (422)
                            (11111)  (3111)    (2221)     (611)
                                     (21111)   (4111)     (2222)
                                     (111111)  (22111)    (5111)
                                               (31111)    (22211)
                                               (211111)   (41111)
                                               (1111111)  (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)

The non-strict version is A332745.
The generalization to compositions is A333191.
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.
Partitions with unimodal run-lengths are A332280.
Partitions whose run-lengths are not increasing nor decreasing are A332641.
Compositions whose run-lengths are unimodal or co-unimodal are A332746.
Compositions that are neither increasing nor decreasing are A332834.
Strictly increasing or strictly decreasing compositions are A333147.
Compositions with strictly increasing run-lengths are A333192.
Numbers with strictly increasing prime multiplicities are A334965.
Cf. A032020, A059204, A072706, A332726, A332831, A332833, A332835, A333149.

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

A332873 Number of non-unimodal, non-co-unimodal sequences of length n covering an initial interval of positive integers.

Original entry on oeis.org

0, 0, 0, 0, 22, 340, 3954, 44716, 536858, 7056252, 102140970, 1622267196, 28090317226, 526854073564, 10641328363722, 230283141084220, 5315654511587498, 130370766447282204, 3385534661270087178, 92801587312544823804, 2677687796221222845802, 81124824998424994578652

Offset: 0

Gus Wiseman, Mar 03 2020

nonn

A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence. It is co-unimodal if its negative is unimodal.

			The a(4) = 22 sequences:
  (1,2,1,2)  (2,3,1,3)
  (1,2,1,3)  (2,3,1,4)
  (1,3,1,2)  (2,4,1,3)
  (1,3,2,3)  (3,1,2,1)
  (1,3,2,4)  (3,1,3,2)
  (1,4,2,3)  (3,1,4,2)
  (2,1,2,1)  (3,2,3,1)
  (2,1,3,1)  (3,2,4,1)
  (2,1,3,2)  (3,4,1,2)
  (2,1,4,3)  (4,1,3,2)
  (2,3,1,2)  (4,2,3,1)

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

Not requiring non-co-unimodality gives A328509.
Not requiring non-unimodality also gives A328509.
The version for run-lengths of partitions is A332640.
The version for unsorted prime signature is A332643.
The version for compositions is A332870.
Unimodal compositions are A001523.
Unimodal sequences covering an initial interval are A007052.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Unimodal compositions covering an initial interval are A227038.
Numbers whose unsorted prime signature is not unimodal are A332282.
Numbers whose negated prime signature is not unimodal are A332642.
Compositions whose run-lengths are not unimodal are A332727.
Non-unimodal compositions covering an initial interval are A332743.
Cf. A000225, A000670, A060223, A072704, A329398, A332281, A332284, A332577, A332578, A332639, A332672, A332834.

allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Table[Length[Select[Union@@Permutations/@allnorm[n],!unimodQ[#]&&!unimodQ[-#]&]],{n,0,5}]

seq(n)=Vec( serlaplace(1/(2-exp(x + O(x*x^n)))) - (1 - 6*x + 12*x^2 - 6*x^3)/((1 - x)*(1 - 2*x)*(1 - 4*x + 2*x^2)), -(n+1)) \\ Andrew Howroyd, Jan 28 2024

a(n) = A000670(n) + A000225(n) - 2*A007052(n-1) for n > 0. - Andrew Howroyd, Jan 28 2024

a(9) onwards from Andrew Howroyd, Jan 28 2024

A333148 Number of compositions of n whose non-adjacent parts are weakly decreasing.

Original entry on oeis.org

1, 1, 2, 4, 7, 12, 19, 30, 46, 69, 102, 149, 214, 304, 428, 596, 823, 1127, 1532, 2068, 2774, 3697, 4900, 6460, 8474, 11061, 14375, 18600, 23970, 30770, 39354, 50153, 63702, 80646, 101783, 128076, 160701, 201076, 250933, 312346, 387832, 480409, 593716, 732105, 900810, 1106063, 1355336, 1657517, 2023207, 2464987, 2997834, 3639464

Offset: 0

Gus Wiseman, May 16 2020

nonn

			The a(1) = 1 through a(6) = 19 compositions:
  (1)  (2)   (3)    (4)     (5)      (6)
       (11)  (12)   (13)    (14)     (15)
             (21)   (22)    (23)     (24)
             (111)  (31)    (32)     (33)
                    (121)   (41)     (42)
                    (211)   (131)    (51)
                    (1111)  (212)    (141)
                            (221)    (222)
                            (311)    (231)
                            (1211)   (312)
                            (2111)   (321)
                            (11111)  (411)
                                     (1311)
                                     (2121)
                                     (2211)
                                     (3111)
                                     (12111)
                                     (21111)
                                     (111111)
For example, (2,3,1,2) is such a composition, because the non-adjacent pairs of parts are (2,1), (2,2), (3,2), all of which are weakly decreasing.

Alois P. Heinz, Table of n, a(n) for n = 0..700

Unimodal compositions are A001523.
The case of normal sequences appears to be A028859.
A version for ordered set partitions is A332872.
The case of strict compositions is A333150.
The version for strictly decreasing parts is A333193.
Standard composition numbers (A066099) of these compositions are A334966.
Cf. A056242, A059204, A072706, A107429, A115981, A329398, A332578, A332669, A332673, A332724, A332834.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],!MatchQ[#,{_,x_,,y_,_}/;y>x]&]],{n,0,15}]

def a333148(n): return number_of_partitions(n) + sum( Partitions(m, max_part=l, length=k).cardinality() * Partitions(n-m-l^2, min_length=k+2*l).cardinality() for l in range(1, (n+1).isqrt()) for m in range((n-l^2-2*l)*l//(l+1)+1) for k in range(ceil(m/l), min(m,n-m-l^2-2*l)+1) ) # Max Alekseyev, Oct 31 2024

See Sage code for the formula. - Max Alekseyev, Oct 31 2024

Edited and terms a(21)-a(51) added by Max Alekseyev, Oct 30 2024

A333193 Number of compositions of n whose non-adjacent parts are strictly decreasing.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 15, 21, 29, 40, 53, 71, 93, 122, 158, 204, 260, 332, 419, 528, 661, 825, 1023, 1267, 1560, 1916, 2344, 2860, 3476, 4217, 5097, 6147, 7393, 8872, 10618, 12685, 15115, 17977, 21336, 25276, 29882, 35271, 41551, 48872, 57385, 67277, 78745, 92040

Offset: 0

Gus Wiseman, May 18 2020

nonn

			The a(1) = 1 through a(7) = 15 compositions:
  (1)  (2)   (3)   (4)    (5)    (6)     (7)
       (11)  (12)  (13)   (14)   (15)    (16)
             (21)  (22)   (23)   (24)    (25)
                   (31)   (32)   (33)    (34)
                   (211)  (41)   (42)    (43)
                          (221)  (51)    (52)
                          (311)  (231)   (61)
                                 (312)   (241)
                                 (321)   (322)
                                 (411)   (331)
                                 (2211)  (412)
                                         (421)
                                         (511)
                                         (2311)
                                         (3211)
For example, (2,3,1,2) is not such a composition, because the non-adjacent pairs of parts are (2,1), (2,2), (3,2), not all of which are strictly decreasing, while (2,4,1,1) is such a composition, because the non-adjacent pairs of parts are (2,1), (2,1), (4,1), all of which are strictly decreasing.

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

A version for ordered set partitions is A332872.
The case of strict compositions is A333150.
The case of normal sequences appears to be A001045.
Unimodal compositions are A001523, with strict case A072706.
Strict compositions are A032020.
Partitions with strictly increasing run-lengths are A100471.
Partitions with strictly decreasing run-lengths are A100881.
Compositions with weakly decreasing non-adjacent parts are A333148.
Compositions with strictly increasing run-lengths are A333192.
Cf. A059204, A072707, A115981, A227038, A332834, A332836, A333191, A334966.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],!MatchQ[#,{_,x_,,y_,_}/;y>=x]&]],{n,0,15}]

\\ p is all, q is those ending in an unreversed singleton.
seq(n)={my(q=O(x*x^n), p=1+q); for(k=1, n, [p,q] = [p*(1 + x^k + x^(2*k)) + q*x^k, q + p*x^k] ); Vec(p)} \\ Andrew Howroyd, Apr 17 2021

Terms a(21) and beyond from Andrew Howroyd, Apr 17 2021

A335374 Numbers k such that the k-th composition in standard order (A066099) is not co-unimodal.

Original entry on oeis.org

13, 25, 27, 29, 41, 45, 49, 50, 51, 53, 54, 55, 57, 59, 61, 77, 81, 82, 83, 89, 91, 93, 97, 98, 99, 101, 102, 103, 105, 107, 108, 109, 110, 111, 113, 114, 115, 117, 118, 119, 121, 123, 125, 141, 145, 153, 155, 157, 161, 162, 163, 165, 166, 167, 169, 173, 177

Offset: 1

Gus Wiseman, Jun 03 2020

nonn

A sequence of integers is co-unimodal if it is the concatenation of a weakly decreasing and a weakly increasing sequence, implying that its negation is unimodal.

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The sequence together with the corresponding compositions begins:
  13: (1,2,1)
  25: (1,3,1)
  27: (1,2,1,1)
  29: (1,1,2,1)
  41: (2,3,1)
  45: (2,1,2,1)
  49: (1,4,1)
  50: (1,3,2)
  51: (1,3,1,1)
  53: (1,2,2,1)
  54: (1,2,1,2)
  55: (1,2,1,1,1)
  57: (1,1,3,1)
  59: (1,1,2,1,1)
  61: (1,1,1,2,1)
  77: (3,1,2,1)
  81: (2,4,1)
  82: (2,3,2)
  83: (2,3,1,1)
  89: (2,1,3,1)

This is the dual version of A335373.
The case that is not unimodal either is A335375.
Unimodal compositions are A001523.
Unimodal normal sequences are A007052.
Unimodal permutations are A011782.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Numbers with non-unimodal unsorted prime signature are A332282.
Co-unimodal compositions are A332578.
Numbers with non-co-unimodal unsorted prime signature are A332642.
Non-co-unimodal compositions are A332669.
Cf. A000120, A029931, A048793, A066099, A070939, A334299.
Cf. A112798, A227038, A329398, A332281, A332286, A332287, A332638, A332639, A332643, A332670, A332873, A333146.

unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!unimodQ[-stc[#]]&]

A337460 Numbers k such that the k-th composition in standard order is a non-unimodal triple.

Original entry on oeis.org

22, 38, 44, 70, 76, 88, 134, 140, 148, 152, 176, 262, 268, 276, 280, 296, 304, 352, 518, 524, 532, 536, 552, 560, 592, 608, 704, 1030, 1036, 1044, 1048, 1064, 1072, 1096, 1104, 1120, 1184, 1216, 1408, 2054, 2060, 2068, 2072, 2088, 2096, 2120, 2128, 2144, 2192

Offset: 1

Gus Wiseman, Sep 18 2020

nonn

These are triples matching the pattern (2,1,2), (3,1,2), or (2,1,3).
A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.
The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The sequence together with the corresponding triples begins:
      22: (2,1,2)     296: (3,2,4)    1048: (6,1,4)
      38: (3,1,2)     304: (3,1,5)    1064: (5,2,4)
      44: (2,1,3)     352: (2,1,6)    1072: (5,1,5)
      70: (4,1,2)     518: (7,1,2)    1096: (4,3,4)
      76: (3,1,3)     524: (6,1,3)    1104: (4,2,5)
      88: (2,1,4)     532: (5,2,3)    1120: (4,1,6)
     134: (5,1,2)     536: (5,1,4)    1184: (3,2,6)
     140: (4,1,3)     552: (4,2,4)    1216: (3,1,7)
     148: (3,2,3)     560: (4,1,5)    1408: (2,1,8)
     152: (3,1,4)     592: (3,2,5)    2054: (9,1,2)
     176: (2,1,5)     608: (3,1,6)    2060: (8,1,3)
     262: (6,1,2)     704: (2,1,7)    2068: (7,2,3)
     268: (5,1,3)    1030: (8,1,2)    2072: (7,1,4)
     276: (4,2,3)    1036: (7,1,3)    2088: (6,2,4)
     280: (4,1,4)    1044: (6,2,3)    2096: (6,1,5)

Eric Weisstein's World of Mathematics, Unimodal Sequence
Gus Wiseman, Statistics, classes, and transformations of standard compositions

A000212 counts unimodal triples.
A000217(n - 2) counts 3-part compositions.
A001399(n - 3) counts 3-part partitions.
A001399(n - 6) counts 3-part strict partitions.
A001399(n - 6)*2 counts non-unimodal 3-part strict compositions.
A001399(n - 6)*4 counts unimodal 3-part strict compositions.
A001399(n - 6)*6 counts 3-part strict compositions.
A001523 counts unimodal compositions.
A001840 counts non-unimodal triples.
A059204 counts non-unimodal permutations.
A115981 counts non-unimodal compositions.
A328509 counts non-unimodal patterns.
A337459 ranks unimodal triples.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Triples are A014311.
- Sum is A070939.
- Runs are counted by A124767.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Heinz number is A333219.
- Non-unimodal compositions are A335373.
- Non-co-unimodal compositions are A335374.
- Strict triples are A337453.
Cf. A007304, A014612, A069905, A072706, A156040, A211540, A227038, A332743, A337461, A337604.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,1000],Length[stc[#]]==3&&MatchQ[stc[#],{x_,y_,z_}/;x>y

Intersection of A014311 and A335373.

A332725 Heinz numbers of integer partitions whose negated first differences are not unimodal.

Original entry on oeis.org

90, 126, 180, 198, 234, 252, 270, 306, 342, 350, 360, 378, 396, 414, 450, 468, 504, 522, 525, 540, 550, 558, 594, 612, 630, 650, 666, 684, 700, 702, 720, 738, 756, 774, 792, 810, 825, 828, 846, 850, 882, 900, 910, 918, 936, 950, 954, 975, 990, 1008, 1026, 1044

Offset: 1

Gus Wiseman, Feb 26 2020

nonn

A sequence of positive 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). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
    90: {1,2,2,3}
   126: {1,2,2,4}
   180: {1,1,2,2,3}
   198: {1,2,2,5}
   234: {1,2,2,6}
   252: {1,1,2,2,4}
   270: {1,2,2,2,3}
   306: {1,2,2,7}
   342: {1,2,2,8}
   350: {1,3,3,4}
   360: {1,1,1,2,2,3}
   378: {1,2,2,2,4}
   396: {1,1,2,2,5}
   414: {1,2,2,9}
   450: {1,2,2,3,3}
   468: {1,1,2,2,6}
   504: {1,1,1,2,2,4}
   522: {1,2,2,10}
   525: {2,3,3,4}
   540: {1,1,2,2,2,3}
For example, 350 is the Heinz number of (4,3,3,1), with negated first differences (1,0,2), which is not unimodal, so 350 is in the sequence.

MathWorld, Unimodal Sequence
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

The complement is too full.
The enumeration of these partitions by sum is A332284.
The version where the last part is taken to be 0 is A332832.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Partitions with non-unimodal run-lengths are A332281.
Heinz numbers of partitions with non-unimodal run-lengths are A332282.
Heinz numbers of partitions with weakly increasing differences are A325360.
Cf. A001523, A007052, A240026, A332280, 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[primeMS[#]]]&]

A335375 Numbers k such that the k-th composition in standard order (A066099) is neither unimodal nor co-unimodal.

Original entry on oeis.org

45, 54, 77, 89, 91, 93, 102, 108, 109, 110, 118, 141, 153, 155, 157, 166, 173, 177, 178, 179, 181, 182, 183, 185, 187, 189, 198, 204, 205, 206, 214, 216, 217, 218, 219, 220, 221, 222, 230, 236, 237, 238, 246, 269, 281, 283, 285, 297, 301, 305, 306, 307, 309

Offset: 1

Gus Wiseman, Jun 04 2020

nonn

A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence. It is co-unimodal if its negation is unimodal.

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The sequence together with the corresponding compositions begins:
   45: (2,1,2,1)
   54: (1,2,1,2)
   77: (3,1,2,1)
   89: (2,1,3,1)
   91: (2,1,2,1,1)
   93: (2,1,1,2,1)
  102: (1,3,1,2)
  108: (1,2,1,3)
  109: (1,2,1,2,1)
  110: (1,2,1,1,2)
  118: (1,1,2,1,2)
  141: (4,1,2,1)
  153: (3,1,3,1)
  155: (3,1,2,1,1)
  157: (3,1,1,2,1)
  166: (2,3,1,2)
  173: (2,2,1,2,1)
  177: (2,1,4,1)
  178: (2,1,3,2)
  179: (2,1,3,1,1)

Non-unimodal compositions are ranked by A335373.
Non-co-unimodal compositions are ranked by A335374.
Unimodal compositions are A001523.
Unimodal normal sequences are A007052.
Unimodal permutations are A011782.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Numbers with non-unimodal unsorted prime signature are A332282.
Co-unimodal compositions are A332578.
Numbers with non-co-unimodal unsorted prime signature are A332642.
Non-co-unimodal compositions are A332669.
Cf. A000120, A029931, A048793, A066099, A070939, A334299.
Cf. A112798, A227038, A329398, A332281, A332286, A332287, A332638, A332639, A332643, A332670, A332873, A333146.

unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!unimodQ[stc[#]]&&!unimodQ[-stc[#]]&]

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A333149 Number of strict compositions of n that are neither increasing nor decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A333190 Number of integer partitions of n whose run-lengths are either strictly increasing or strictly decreasing.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A332873 Number of non-unimodal, non-co-unimodal sequences of length n covering an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A333148 Number of compositions of n whose non-adjacent parts are weakly decreasing.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Sage

Formula

Extensions

A333193 Number of compositions of n whose non-adjacent parts are strictly decreasing.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A335374 Numbers k such that the k-th composition in standard order (A066099) is not co-unimodal.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A337460 Numbers k such that the k-th composition in standard order is a non-unimodal triple.

Views

Author

Keywords

Comments