A332639 -id:A332639 - cp's OEIS frontend

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

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

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

A332640 Number of integer partitions of n such that neither the run-lengths nor the negated run-lengths are unimodal.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 4, 6, 12, 17, 29, 44, 66, 92, 138, 187, 266, 359, 492, 649, 877, 1140, 1503, 1938, 2517, 3202, 4111, 5175, 6563, 8209, 10297, 12763, 15898, 19568, 24152, 29575, 36249, 44090, 53737, 65022, 78752, 94873, 114294

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(14) = 1 through a(18) = 12 partitions:
  (433211)  (533211)   (443221)    (544211)     (544311)
            (4332111)  (633211)    (733211)     (553221)
                       (5332111)   (4333211)    (644211)
                       (43321111)  (6332111)    (833211)
                                   (53321111)   (4432221)
                                   (433211111)  (5333211)
                                                (5442111)
                                                (7332111)
                                                (43332111)
                                                (63321111)
                                                (533211111)
                                                (4332111111)
For example, the partition (4,3,3,2,1,1) has run-lengths (1,2,1,2), so is counted under a(14).

MathWorld, Unimodal Sequence

Looking only at the original run-lengths gives A332281.
Looking only at the negated run-lengths gives A332639.
The Heinz numbers of these partitions are A332643.
The complement is counted by A332746.
Unimodal compositions are A001523.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Partitions with unimodal run-lengths are A332280.
Partitions whose negated run-lengths are unimodal are A332638.
Run-lengths and negated run-lengths are not both unimodal: A332641.
Compositions whose negation is not unimodal are A332669.
Run-lengths and negated run-lengths are both unimodal: A332745.
Cf. A007052, A025065, A100883, A181819, A328509, A332282, A332284, A332577, A332578, A332579, A332642, A332726, A332727.

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

A332670 Triangle read by rows where T(n,k) is the number of length-k compositions of n whose negation is unimodal.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 3, 2, 1, 0, 1, 4, 5, 2, 1, 0, 1, 5, 7, 5, 2, 1, 0, 1, 6, 11, 10, 5, 2, 1, 0, 1, 7, 15, 16, 10, 5, 2, 1, 0, 1, 8, 20, 24, 20, 10, 5, 2, 1, 0, 1, 9, 25, 36, 31, 20, 10, 5, 2, 1, 0, 1, 10, 32, 50, 50, 36, 20, 10, 5, 2, 1

Offset: 0

Gus Wiseman, Feb 29 2020

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

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

			Triangle begins:
  1
  0  1
  0  1  1
  0  1  2  1
  0  1  3  2  1
  0  1  4  5  2  1
  0  1  5  7  5  2  1
  0  1  6 11 10  5  2  1
  0  1  7 15 16 10  5  2  1
  0  1  8 20 24 20 10  5  2  1
  0  1  9 25 36 31 20 10  5  2  1
  0  1 10 32 50 50 36 20 10  5  2  1
  0  1 11 38 67 73 59 36 20 10  5  2  1
Column n = 7 counts the following compositions:
  (7)  (16)  (115)  (1114)  (11113)  (111112)  (1111111)
       (25)  (124)  (1123)  (11122)  (211111)
       (34)  (133)  (1222)  (21112)
       (43)  (214)  (2113)  (22111)
       (52)  (223)  (2122)  (31111)
       (61)  (313)  (2212)
             (322)  (2221)
             (331)  (3112)
             (412)  (3211)
             (421)  (4111)
             (511)

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

The case of partitions is A072233.
Dominated by A072704 (the non-negated version).
The strict case is A072705.
The case of constant compositions is A113704.
Row sums are A332578.
Unimodal compositions are A001523.
Unimodal normal sequences appear to be A007052.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Numbers whose negated unsorted prime signature is not unimodal are A332282.
Partitions whose negated run-lengths are unimodal are A332638.
Compositions whose negation is not unimodal are A332669.
Partitions whose negated 0-appended first differences are unimodal: A332728.
Cf. A011782, A107429, A227038, A332280, A332283, A332639, A332642, A332741, A332742, A332744, A332832, A332870.

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

T(n)={[Vecrev(p) | p<-Vec(1 + sum(j=1, n, y*x^j/((1-y*x^j) * prod(k=j+1, n-j, 1 - y*x^k + O(x*x^(n-j)))^2)))]}
{ my(A=T(10)); for(n=1, #A, print(A[n])) } \\ Andrew Howroyd, Jan 11 2024

G.f.: A(x,y) = 1 + Sum_{j>0} y*x^j/((1 - y*x^j)*Product_{k>j} (1 - y*x^k)^2). - Andrew Howroyd, Jan 11 2024

A332641 Number of integer partitions of n whose run-lengths are neither weakly increasing nor weakly decreasing.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 3, 5, 9, 14, 22, 33, 48, 69, 96, 136, 184, 248, 330, 443, 574, 756, 970, 1252, 1595, 2040, 2558, 3236, 4041, 5054, 6256, 7781, 9547, 11782, 14394, 17614, 21423, 26083, 31501, 38158, 45930, 55299, 66262, 79477, 94803, 113214

Offset: 0

Gus Wiseman, Feb 26 2020

nonn

Also partitions whose run-lengths and negated run-lengths are not both unimodal. 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) = 14 partitions:
  (3221)  (4221)  (5221)   (4331)    (4332)     (5332)
                  (32221)  (6221)    (5331)     (6331)
                  (33211)  (42221)   (7221)     (8221)
                           (322211)  (43221)    (43321)
                           (332111)  (44211)    (44311)
                                     (52221)    (53221)
                                     (322221)   (62221)
                                     (422211)   (332221)
                                     (3321111)  (333211)
                                                (422221)
                                                (442111)
                                                (522211)
                                                (3222211)
                                                (33211111)

MathWorld, Unimodal Sequence

The complement is counted by A332745.
The Heinz numbers of these partitions are A332831.
The case of run-lengths of compositions is A332833.
Partitions whose run-lengths are weakly increasing are A100883.
Partitions whose run-lengths are weakly decreasing are A100882.
Partitions whose run-lengths are not unimodal are A332281.
Partitions whose negated run-lengths are not unimodal are A332639.
Unimodal compositions are A001523.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Partitions with unimodal run-lengths are A332280.
Partitions whose negated run-lengths are unimodal are A332638.
Compositions whose negation is not unimodal are A332669.
The case of run-lengths of compositions is A332833.
Compositions that are neither increasing nor decreasing are A332834.
Cf. A025065, A181819, A328509, A332282, A332284, A332577, A332578, A332579, A332640, A332642, A332726, A332727, A332742, A332835.

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

A332579 Number of integer partitions of n covering an initial interval of positive integers with non-unimodal run-lengths.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 2, 3, 4, 7, 8, 10, 14, 19, 22, 30, 36, 43, 56, 69, 80, 101, 121, 141, 172, 202, 234, 282, 332, 384, 452, 527, 602, 706, 815, 929, 1077, 1236, 1403, 1615, 1842, 2082, 2379, 2702, 3044, 3458, 3908, 4388, 4963, 5589, 6252

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.

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

			The a(10) = 1 through a(16) = 7 partitions:
  33211  332111  3321111  333211    433211     443211      443221
                          33211111  3332111    4332111     3333211
                                    332111111  33321111    4432111
                                               3321111111  33322111
                                                           43321111
                                                           333211111
                                                           33211111111

MathWorld, Unimodal Sequence

The complement is counted by A332577.
Not requiring the partition to cover an initial interval gives A332281.
The opposite version is A332286.
A version for compositions is A332743.
Partitions covering an initial interval of positive integers are A000009.
Unimodal compositions are A001523.
Non-unimodal permutations are A059204.
Non-unimodal compositions are A115981.
Non-unimodal normal sequences are A328509.
Numbers whose prime signature is not unimodal are A332282.
Partitions whose 0-appended first differences are unimodal are A332283.
Compositions whose negated run-lengths are not unimodal are A332727.
Cf. A007052, A100883, A107429, A227038, A332280, A332284, A332638, A332639, A332640, A332671, A332672, A332728.

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[IntegerPartitions[n],normQ[#]&&!unimodQ[Length/@Split[#]]&]],{n,0,30}]

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

Original entry on oeis.org

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

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.

cp's OEIS Frontend

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

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A332640 Number of integer partitions of n such that neither the run-lengths nor the negated run-lengths are unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A332670 Triangle read by rows where T(n,k) is the number of length-k compositions of n whose negation is unimodal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A332641 Number of integer partitions of n whose run-lengths are neither weakly increasing nor weakly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A332579 Number of integer partitions of n covering an initial interval of positive integers with non-unimodal run-lengths.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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