A329398 -id:A329398 - cp's OEIS frontend

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

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

A332831 Numbers whose unsorted prime signature is neither weakly increasing nor weakly decreasing.

Original entry on oeis.org

90, 126, 198, 234, 270, 300, 306, 342, 350, 378, 414, 522, 525, 540, 550, 558, 588, 594, 600, 630, 650, 666, 702, 738, 756, 774, 810, 825, 846, 850, 918, 950, 954, 975, 980, 990, 1026, 1050, 1062, 1078, 1098, 1134, 1150, 1170, 1176, 1188, 1200, 1206, 1242

Offset: 1

Gus Wiseman, Mar 02 2020

nonn

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}
  300: {1,1,2,3,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}
  588: {1,1,2,4,4}
  594: {1,2,2,2,5}
  600: {1,1,1,2,3,3}
  630: {1,2,2,3,4}
For example, the prime signature of 540 is (2,3,1), so 540 is in the sequence.

The version for run-lengths of partitions is A332641.
The version for run-lengths of compositions is A332833.
The version for compositions is A332834.
Prime signature is A124010.
Unimodal compositions are A001523.
Partitions with weakly increasing run-lengths are A100883.
Partitions with weakly increasing or decreasing run-lengths are A332745.
Compositions with weakly increasing or decreasing run-lengths are A332835.
Compositions with weakly increasing run-lengths are A332836.
Cf. A100882, A115981, A328509, A329398, A332281, A332640, A332643, A332746, A332836, A332870.

Select[Range[1000],!Or[LessEqual@@Last/@FactorInteger[#],GreaterEqual@@Last/@FactorInteger[#]]&]

Intersection of A071365 and A112769.

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

A337483 Number of ordered triples of positive integers summing to n that are either weakly increasing or weakly decreasing.

Original entry on oeis.org

0, 0, 0, 1, 2, 4, 5, 8, 10, 13, 16, 20, 23, 28, 32, 37, 42, 48, 53, 60, 66, 73, 80, 88, 95, 104, 112, 121, 130, 140, 149, 160, 170, 181, 192, 204, 215, 228, 240, 253, 266, 280, 293, 308, 322, 337, 352, 368, 383, 400, 416, 433, 450, 468, 485, 504, 522, 541, 560

Offset: 0

Gus Wiseman, Sep 07 2020

			The a(3) = 1 through a(8) = 10 triples:
  (1,1,1)  (1,1,2)  (1,1,3)  (1,1,4)  (1,1,5)  (1,1,6)
           (2,1,1)  (1,2,2)  (1,2,3)  (1,2,4)  (1,2,5)
                    (2,2,1)  (2,2,2)  (1,3,3)  (1,3,4)
                    (3,1,1)  (3,2,1)  (2,2,3)  (2,2,4)
                             (4,1,1)  (3,2,2)  (2,3,3)
                                      (3,3,1)  (3,3,2)
                                      (4,2,1)  (4,2,2)
                                      (5,1,1)  (4,3,1)
                                               (5,2,1)
                                               (6,1,1)

Index entries for linear recurrences with constant coefficients, signature (1,1,0,-1,-1,1).

A001399(n - 3) = A069905(n) = A211540(n + 2) counts the unordered case.
2*A001399(n - 6) = 2*A069905(n - 3) = 2*A211540(n - 1) counts the strict case.
A001399(n - 6) = A069905(n - 3) = A211540(n - 1) counts the strict unordered case.
A329398 counts these compositions of any length.
A218004 counts strictly increasing or weakly decreasing compositions.
A337484 counts neither strictly increasing nor strictly decreasing compositions.
Cf. A000212, A000217, A001840, A014311, A156040, A337461, A337603, A337604.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n,{3}],LessEqual@@#||GreaterEqual@@#&]],{n,0,30}]

a(n > 0) = 2*A001399(n - 3) - A079978(n).
From Colin Barker, Sep 08 2020: (Start)
G.f.: x^3*(1 + x + x^2 - x^3) / ((1 - x)^3*(1 + x)*(1 + x + x^2)).
a(n) = a(n-1) + a(n-2) - a(n-4) - a(n-5) + a(n-6) for n>6. (End)
E.g.f.: (36 - 9*exp(-x) + exp(x)*(6*x^2 + 6*x - 19) - 8*exp(-x/2)*cos(sqrt(3)*x/2))/36. - Stefano Spezia, Apr 05 2023

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 *)

A072707 Number of non-unimodal compositions of n into distinct terms.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 2, 2, 4, 6, 24, 26, 46, 64, 100, 224, 276, 416, 590, 850, 1144, 2214, 2644, 3938, 5282, 7504, 9776, 13704, 21984, 27632, 38426, 51562, 69844, 91950, 123504, 159658, 246830, 303400, 416068, 540480, 730268, 933176, 1248110

Offset: 0

Henry Bottomley, Jul 04 2002

Also the number of compositions of n into distinct terms whose negation is not unimodal. - Gus Wiseman, Mar 05 2020

			a(6)=2 since 6 can be written as 2+1+3 or 3+1+2.
From _Gus Wiseman_, Mar 05 2020: (Start)
The a(6) = 2 through a(9) = 6 strict compositions:
  (2,1,3)  (2,1,4)  (2,1,5)  (2,1,6)
  (3,1,2)  (4,1,2)  (3,1,4)  (3,1,5)
                    (4,1,3)  (3,2,4)
                    (5,1,2)  (4,2,3)
                             (5,1,3)
                             (6,1,2)
(End)

Eric Weisstein's World of Mathematics, Unimodal Sequence

The complement is counted by A072706.
The non-strict version is A115981.
The case where the negation is not unimodal either is A332874.
Unimodal compositions are A001523.
Strict compositions are A032020.
Non-unimodal permutations are A059204.
A triangle for strict unimodal compositions is A072705.
Non-unimodal sequences covering an initial interval are A328509.
Numbers whose prime signature is not unimodal are A332282.
Strict partitions whose 0-appended differences are not unimodal are A332286.
Compositions whose negation is unimodal are A332578.
Compositions whose negation is not unimodal are A332669.
Non-unimodal compositions covering an initial interval are A332743.
Cf. A007052, A072704, A107429, A227038, A329398, A332281, A332284, A332285, A332579, 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],UnsameQ@@#&&!unimodQ[#]&]],{n,0,16}] (* Gus Wiseman, Mar 05 2020 *)

a(n) = A032020(n) - A072706(n) = Sum_{k} A059204(k) * A060016(n, k).

A333147 Number of compositions of n that are either strictly increasing or strictly decreasing.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 7, 9, 11, 15, 19, 23, 29, 35, 43, 53, 63, 75, 91, 107, 127, 151, 177, 207, 243, 283, 329, 383, 443, 511, 591, 679, 779, 895, 1023, 1169, 1335, 1519, 1727, 1963, 2225, 2519, 2851, 3219, 3631, 4095, 4607, 5179, 5819, 6527, 7315, 8193, 9163

Offset: 0

Gus Wiseman, May 16 2020

nonn

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

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

Eric Weisstein's World of Mathematics, Unimodal Sequence

Strict partitions are A000009.
Unimodal compositions are A001523 (strict: A072706).
Strict compositions are A032020.
The non-strict version appears to be A329398.
Partitions with incr. or decr. run-lengths are A332745 (strict: A333190).
Compositions with incr. or decr. run-lengths are A332835 (strict: A333191).
The complement is counted by A333149 (non-strict: A332834).
Cf. A059204, A072705, A072707, A115981, A332285, A332578, A332746, A332831, A332833, A332874, A333150.

Mathematica
```
Table[2*PartitionsQ[n]-1,{n,0,30}]
```

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

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

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 8, 10, 13, 18, 26, 31, 42, 52, 68, 89, 110, 136, 173, 212, 262, 330, 398, 487, 592, 720, 864, 1050, 1262, 1508, 1804, 2152, 2550, 3037, 3584, 4236, 5011, 5880, 6901, 8095, 9472, 11048, 12899, 14996, 17436, 20261, 23460, 27128, 31385, 36189

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(1) = 1 through a(8) = 13 compositions:
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)
            (1,2)  (1,3)  (1,4)  (1,5)    (1,6)    (1,7)
            (2,1)  (3,1)  (2,3)  (2,4)    (2,5)    (2,6)
                          (3,2)  (4,2)    (3,4)    (3,5)
                          (4,1)  (5,1)    (4,3)    (5,3)
                                 (2,3,1)  (5,2)    (6,2)
                                 (3,1,2)  (6,1)    (7,1)
                                 (3,2,1)  (2,4,1)  (2,5,1)
                                          (4,1,2)  (3,4,1)
                                          (4,2,1)  (4,1,3)
                                                   (4,3,1)
                                                   (5,1,2)
                                                   (5,2,1)
For example, (3,5,1,2) is such a composition, because the non-adjacent pairs of parts are (3,1), (3,2), (5,2), all of which are strictly decreasing.

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

The case of permutations appears to be A000045(n + 1).
Unimodal strict compositions are A072706.
A version for ordered set partitions is A332872.
The non-strict version is A333148.
Cf. A001523, A028859, A056242, A059204, A107429, A115981, A329398, A332578, A332669, A332673, A332724, A332834, A333193.

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

seq(n)={my(p=prod(k=1, n, 1 + y*x^k + O(x*x^n))); Vec(sum(k=0, n, fibonacci(k+1) * polcoef(p,k,y)))} \\ Andrew Howroyd, Apr 16 2021

G.f.: Sum_{k>=0} Fibonacci(k+1) * [y^k](Product_{j>=1} 1 + y*x^j). - Andrew Howroyd, Apr 16 2021

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

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, May 17 2020

nonn

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

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

Giovanni Resta, Table of n, a(n) for n = 0..1000

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

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

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

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

A072705 Triangle of number of unimodal compositions of n into exactly k distinct terms.

Original entry on oeis.org

1, 1, 0, 1, 2, 0, 1, 2, 0, 0, 1, 4, 0, 0, 0, 1, 4, 4, 0, 0, 0, 1, 6, 4, 0, 0, 0, 0, 1, 6, 8, 0, 0, 0, 0, 0, 1, 8, 12, 0, 0, 0, 0, 0, 0, 1, 8, 16, 8, 0, 0, 0, 0, 0, 0, 1, 10, 20, 8, 0, 0, 0, 0, 0, 0, 0, 1, 10, 28, 16, 0, 0, 0, 0, 0, 0, 0, 0, 1, 12, 32, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 12, 40, 40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 1

Henry Bottomley, Jul 04 2002

Also the number of compositions of n into exactly k distinct terms whose negation is unimodal. - Gus Wiseman, Mar 06 2020

			Rows start: 1; 1,0; 1,2,0; 1,2,0,0; 1,4,0,0,0; 1,4,4,0,0,0; 1,6,4,0,0,0,0; 1,6,8,0,0,0,0,0; etc. T(6,3)=4 since 6 can be written as 1+2+3, 1+3+2, 2+3+1, or 3+2+1 but not 2+1+3 or 3+1+2.
From _Gus Wiseman_, Mar 06 2020: (Start)
Triangle begins:
  1
  1  0
  1  2  0
  1  2  0  0
  1  4  0  0  0
  1  4  4  0  0  0
  1  6  4  0  0  0  0
  1  6  8  0  0  0  0  0
  1  8 12  0  0  0  0  0  0
  1  8 16  8  0  0  0  0  0  0
  1 10 20  8  0  0  0  0  0  0  0
  1 10 28 16  0  0  0  0  0  0  0  0
  1 12 32 24  0  0  0  0  0  0  0  0  0
  1 12 40 40  0  0  0  0  0  0  0  0  0  0
  1 14 48 48 16  0  0  0  0  0  0  0  0  0  0
(End)

Alois P. Heinz, Rows n = 1..141, flattened

Cf. A060016, A072574, A072704. Row sums are A072706.
Column k = 2 is A052928.
Unimodal compositions are A001523.
Unimodal sequences covering an initial interval are A007052.
Strict compositions are A032020.
Non-unimodal strict compositions are A072707.
Unimodal compositions covering an initial interval are A227038.
Numbers whose prime signature is not unimodal are A332282.
Cf. A059204, A107429, A115981, A329398, A332285, A332286, A332578, A332870, A332874.

b:= proc(n, i) option remember; `if`(n>i*(i+1)/2, 0, `if`(n=0, 1,
      expand(b(n, i-1) +`if`(i>n, 0, x*b(n-i, i-1)))))
    end:
T:= n-> (p-> seq(coeff(p, x, i)*ceil(2^(i-1)), i=1..n))(b(n$2)):
seq(T(n), n=1..14);  # Alois P. Heinz, Mar 26 2014

b[n_, i_] := b[n, i] = If[n > i*(i+1)/2, 0, If[n == 0, 1, Expand[b[n, i-1] + If[i > n, 0, x*b[n-i, i-1]]]]]; T[n_] := Function[{p}, Table[Coefficient[p, x, i]* Ceiling[2^(i-1)], {i, 1, n}]][b[n, n]]; Table[T[n], {n, 1, 14}] // 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}],UnsameQ@@#&&unimodQ[#]&]],{n,12},{k,n}] (* Gus Wiseman, Mar 06 2020 *)

T(n,k) = 2^(k-1)*A060016(n,k) = T(n-k,k)+2*T(n-k,k-1) [starting with T(0,0)=0, T(0,1)=0 and T(n,1)=1 for n>0].

cp's OEIS Frontend

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

A332831 Numbers whose unsorted prime signature is neither weakly increasing nor weakly decreasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A337483 Number of ordered triples of positive integers summing to n that are either weakly increasing or weakly decreasing.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

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.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A072707 Number of non-unimodal compositions of n into distinct terms.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A333147 Number of compositions of n that are either strictly increasing or strictly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments