A072706 -id:A072706 - cp's OEIS frontend

A117433 Number of planar partitions of n with all part sizes distinct.

1, 1, 1, 3, 3, 5, 9, 11, 15, 21, 35, 41, 59, 75, 103, 149, 187, 243, 321, 413, 527, 735, 895, 1165, 1467, 1885, 2335, 2997, 3853, 4765, 5977, 7473, 9269, 11531, 14255, 17537, 22201, 26897, 33233, 40613, 50027, 60637, 74459, 89963, 109751, 134407, 162117, 195859

Offset: 0

Franklin T. Adams-Watters, Mar 16 2006, Apr 01 2008

nonn

Matches A072706 for n < 10, since a unimodal composition into distinct parts can be placed uniquely as a hook. Starting with n = 10, additional partitions are possible (starting with [4,3|2,1] and [4,2|3,1]).

			From _Gus Wiseman_, Nov 15 2018: (Start)
The a(10) = 35 strict plane partitions (A = 10):
  A  64  73  82  532  91  541  631  721  4321
.
  9  54  63  72  432  8  53  71  431  7  43  52  61  421  6  42  51
  1  1   1   1   1    2  2   2   2    3  21  3   3   3    4  31  4
.
  7  6  5  43  42  5  41
  2  3  4  2   3   3  3
  1  1  1  1   1   2  2
.
  4
  3
  2
  1
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..1000 (first 100 terms from Franklin T. Adams-Watters)
OEIS Wiki, Plane partitions

Cf. A000219, A072706, A117434, A000009.

Cf. A001970, A007716, A068313, A114736, A120733, A319646, A321645, A321652, A321653, A321655, A321659, A321660.

b:= proc(n, i) b(n, i):= `if`(n=0, [1], `if`(i<1, [], zip((x, y)
      -> x+y, b(n, i-1), `if`(i>n, [], [0, b(n-i, i-1)[]]), 0)))
    end:
g:= proc(n) g(n):= `if`(n<2, 1, (n-1)*g(n-2) +g(n-1)) end:
a:= proc(n) b(n, n); add(%[i]*g(i-1), i=1..nops(%)) end:
seq(a(n), n=0..60);  # Alois P. Heinz, Nov 18 2012

prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],UnsameQ@@DeleteCases[Join@@prs2mat[#],0],And@@(OrderedQ[#,Greater]&/@prs2mat[#]),And@@(OrderedQ[#,Greater]&/@Transpose[prs2mat[#]])]&]],{n,5}] (* Gus Wiseman, Nov 15 2018 *)
zip[f_, x_List, y_List, z_] := With[{m = Max[Length[x], Length[y]]}, f[PadRight[x, m, z], PadRight[y, m, z]]];
b[n_, i_] := b[n, i] = If[n == 0, {1}, If[i < 1, {}, zip[Plus, b[n, i - 1], If[i > n, {}, Join[{0}, b[n - i, i - 1]]], 0]]];
g[n_] := g[n] = If[n < 2, 1, (n - 1)*g[n - 2] + g[n - 1]];
a[n_] := With[{bn = b[n, n]}, Sum[bn[[i]]*g[i - 1], {i, 1, Length[bn]}]];
Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Dec 05 2023, after Alois P. Heinz *)

a(n) = Sum_{k=1..floor((sqrt(8*n+1)-1)/2)} A000085(k)*A008289(n,k).

A332833 Number of compositions of n whose run-lengths are neither weakly increasing nor weakly decreasing.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 3, 8, 27, 75, 185, 441, 1025, 2276, 4985, 10753, 22863, 48142, 100583, 208663, 430563, 884407, 1809546, 3690632, 7506774, 15233198, 30851271, 62377004, 125934437, 253936064, 511491634, 1029318958, 2069728850, 4158873540, 8351730223, 16762945432

Offset: 0

Gus Wiseman, Feb 29 2020

nonn

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

			The a(6) = 3 and a(7) = 8 compositions:
  (1221)   (2113)
  (2112)   (3112)
  (11211)  (11311)
           (12112)
           (21112)
           (21121)
           (111211)
           (112111)

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

The case of partitions is A332641.
The version for unsorted prime signature is A332831.
The version for the compositions themselves (not run-lengths) is A332834.
The complement is counted by A332835.
Unimodal compositions are A001523.
Partitions with weakly increasing run-lengths are A100883.
Compositions that are not unimodal are A115981.
Compositions with equal run-lengths are A329738.
Compositions whose run-lengths are unimodal are A332726.
Compositions whose run-lengths are not unimodal are A332727.
Partitions with weakly increasing or weakly decreasing run-lengths: A332745.
Compositions with weakly increasing run-lengths are A332836.
Compositions that are neither unimodal nor is their negation are A332870.
Cf. A001462, A072704, A072706, A107429, A181819, A329398, A329744, A329746, A329766, A332273, A332640, A332746.

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

a(n) = 2^(n - 1) - 2 * A332836(n) + A329738(n).

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

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

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

A337562 Number of pairwise coprime strict compositions of n, where a singleton is always considered coprime.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 9, 7, 17, 13, 23, 41, 41, 67, 49, 75, 75, 155, 211, 229, 243, 241, 287, 395, 807, 537, 841, 655, 1147, 1619, 2037, 2551, 2213, 2007, 2663, 4579, 4171, 7123, 4843, 6013, 6215, 11639, 13561, 16489, 14739, 15445, 16529, 25007, 41003, 32803

Offset: 0

Gus Wiseman, Sep 20 2020

nonn

			The a(1) = 1 through a(9) = 12 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)  (5,1)    (2,5)  (3,5)    (2,7)
                          (3,2)  (1,2,3)  (3,4)  (5,3)    (4,5)
                          (4,1)  (1,3,2)  (4,3)  (7,1)    (5,4)
                                 (2,1,3)  (5,2)  (1,2,5)  (7,2)
                                 (2,3,1)  (6,1)  (1,3,4)  (8,1)
                                 (3,1,2)         (1,4,3)  (1,3,5)
                                 (3,2,1)         (1,5,2)  (1,5,3)
                                                 (2,1,5)  (3,1,5)
                                                 (2,5,1)  (3,5,1)
                                                 (3,1,4)  (5,1,3)
                                                 (3,4,1)  (5,3,1)
                                                 (4,1,3)
                                                 (4,3,1)
                                                 (5,1,2)
                                                 (5,2,1)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..600

A007360 is the unordered version, with non-strict version A051424.
A101268 is the not necessarily strict version.
A220377*6 counts these compositions of length 3.
A337561 does not consider a singleton to be coprime unless it is (1), with non-strict version A337462.
A337664 looks only at distinct parts.
A000740 counts relatively prime compositions, with strict case A332004.
A072706 counts unimodal strict compositions.
A178472 counts compositions with a common factor.
A327516 counts pairwise coprime partitions, with strict case A305713.
A328673 counts pairwise non-coprime partitions.
A333228 ranks compositions whose distinct parts are pairwise coprime.
Cf. A087087, A220377, A302569, A307719, A326675, A333227, A335235, A335238, A337461, A337665.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@#&&(Length[#]<=1||CoprimeQ@@#)&]],{n,0,10}]

a(n > 1) = A337561(n) + 1 for n > 1.

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

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 4, 5, 5, 8, 9, 11, 13, 15, 17, 22, 25, 29, 34, 39, 42, 53, 58, 64, 75, 84, 93, 111, 122, 134, 152, 169, 184, 212, 232, 252, 287, 315, 342, 389, 419, 458, 512, 556, 602, 672, 727, 787, 870, 940, 1012, 1124, 1209, 1303, 1431, 1540, 1655, 1821

Offset: 0

Gus Wiseman, Feb 21 2020

nonn

First differs from A000009 at a(8) = 5, A000009(8) = 6.

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

			The a(1) = 1 through a(9) = 8 partitions:
  (1)  (2)  (3)   (4)   (5)   (6)    (7)    (8)    (9)
            (21)  (31)  (32)  (42)   (43)   (53)   (54)
                        (41)  (51)   (52)   (62)   (63)
                              (321)  (61)   (71)   (72)
                                     (421)  (521)  (81)
                                                   (432)
                                                   (531)
                                                   (621)
For example, (4,3,1,0) has first differences (-1,-2,-1), which is not unimodal, so (4,3,1) is not 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.

The non-strict version is A332283.
The complement is counted by A332286.
Unimodal compositions are A001523.
Unimodal normal sequences appear to be A007052.
Unimodal permutations are A011782.
Partitions with unimodal run-lengths are A332280.
Cf. A025065, A072706, A115981, A227038, A332282, A332284, A332287, A332288, A332577, A332638, A332642.

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

A332836 Number of compositions of n whose run-lengths are weakly increasing.

Original entry on oeis.org

1, 1, 2, 4, 7, 12, 24, 40, 73, 128, 230, 399, 712, 1241, 2192, 3833, 6746, 11792, 20711, 36230, 63532, 111163, 194782, 340859, 596961, 1044748, 1829241, 3201427, 5604504, 9808976, 17170112, 30051470, 52601074, 92063629, 161140256, 282033124, 493637137, 863982135, 1512197655

Offset: 0

Gus Wiseman, Feb 29 2020

nonn

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

Also compositions whose run-lengths are weakly decreasing.

			The a(0) = 1 through a(5) = 12 compositions:
  ()  (1)  (2)   (3)    (4)     (5)
           (11)  (12)   (13)    (14)
                 (21)   (22)    (23)
                 (111)  (31)    (32)
                        (121)   (41)
                        (211)   (122)
                        (1111)  (131)
                                (212)
                                (311)
                                (1211)
                                (2111)
                                (11111)
For example, the composition (2,3,2,2,1,1,2,2,2) has run-lengths (1,1,2,2,3) so is counted under a(17).

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

The version for the compositions themselves (not run-lengths) is A000041.
The case of partitions is A100883.
The case of unsorted prime signature is A304678, with dual A242031.
Permitting the run-lengths to be weakly decreasing also gives A332835.
The complement is counted by A332871.
Unimodal compositions are A001523.
Compositions that are not unimodal are A115981.
Compositions with equal run-lengths are A329738.
Compositions whose run-lengths are unimodal are A332726.
Cf. A001462, A072704, A072706, A100882, A181819, A329744, A329766, A332641, A332727, A332745, A332833, A332834.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],LessEqual@@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}
seq(n)={my(M=matrix(n+1, n, i, j, i==1)); for(m=1, n, M=step(M, m)); M[1,n]=0; vector(n+1, i, vecsum(M[i,]))/(n-1)} \\ Andrew Howroyd, Dec 31 2020

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

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

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

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

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, Mar 02 2020

nonn

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

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

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

MathWorld, Unimodal Sequence

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

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

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

cp's OEIS Frontend

A117433 Number of planar partitions of n with all part sizes distinct.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A332833 Number of compositions of n whose run-lengths are neither weakly increasing nor weakly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A332286 Number of strict 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

A337562 Number of pairwise coprime strict compositions of n, where a singleton is always considered coprime.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A332836 Number of compositions of n whose run-lengths are weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions