A225620 -id:A225620 - cp's OEIS frontend

A352516 Number of excedances (parts above the diagonal) of the n-th composition in standard order.

0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1

Offset: 0

Gus Wiseman, Mar 23 2022

nonn

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. See also A000120, A059893, A070939, A114994, A225620.

			The 5392th composition in standard order is (2,2,4,5), with excedances {1,3,4}, so a(5392) = 3.

MathOverflow, Why 'excedances' of permutations? [closed].

Positions of first appearances are A104462.
The opposite version is A352514, counted by A352521 (first column A219282).
The weak opposite version is A352515, counted by A352522 (first A238874).
The weak version is A352517, counted by A352525 (first column A177510).
The triangle A352524 counts these compositions (first column A008930).
A008292 is the triangle of Eulerian numbers (version without zeros).
A011782 counts compositions.
A173018 counts permutations by number of excedances, weak A123125.
A238349 counts comps by fixed points, first col A238351, rank stat A352512.
A352487 is the excedance set of A122111.
A352523 counts comps by unfixed points, first A010054, rank stat A352513.
Cf. A088218, A098825, A114088, A115994, A131577, A238352, A352513, A352523.

stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
pd[y_]:=Length[Select[Range[Length[y]],#

A352517 Number of weak excedances (parts on or above the diagonal) of the n-th composition in standard order.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 1, 1, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 3, 2, 2

Offset: 0

Gus Wiseman, Mar 23 2022

nonn

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. See also A000120, A059893, A070939, A114994, A225620.

			The 169th composition in standard order is (2,2,3,1), with weak excedances {1,2,3}, so a(169) = 3.

MathOverflow, Why 'excedances' of permutations? [closed].

Positive positions of first appearances are A164894.
The version for partitions is A257990.
The strong opposite version is A352514, counted by A352521 (first A219282).
The opposite version is A352515, counted by A352522 (first column A238874).
The strong version is A352516, counted by A352524 (first column A008930).
The triangle A352525 counts these compositions (first column A177510).
A008292 is the triangle of Eulerian numbers (version without zeros).
A011782 counts compositions.
A173018 counts permutations by number of excedances, weak A123125.
A238349 counts comps by fixed points, first col A238351, rank stat A352512.
A352489 is the weak excedance set of A122111.
A352523 counts comps by unfixed points, first A010054, rank stat A352513.
Cf. A088218, A098825, A114088, A115994, A131577, A238352, A352513, A352523.

stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
pdw[y_]:=Length[Select[Range[Length[y]],#<=y[[#]]&]];
Table[pdw[stc[n]],{n,0,30}]

A124760 Number of rises for compositions in standard order.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 1, 2

Offset: 0

Franklin T. Adams-Watters, Nov 06 2006

The standard order of compositions is given by A066099.
A114994 seems to give the positions of zeros. - Antti Karttunen, Jul 09 2017
A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (row k of 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. a(n) is one fewer than the number of maximal weakly decreasing runs in this composition. Alternatively, a(n) is the number of strict ascents in the same composition. For example, the weakly decreasing runs of the 1234567th composition are ((3,2,1),(2,2,1),(2),(5,1,1,1)), so a(1234567) = 4 - 1 = 3. The 3 strict ascents together with the weak descents are: 3 >= 2 >= 1 < 2 >= 2 >= 1 < 2 < 5 >= 1 >= 1 >= 1. - Gus Wiseman, Apr 08 2020

			Composition number 11 is 2,1,1; 2>=1>=1, so a(11) = 0.
The table starts:
  0
  0
  0 0
  0 0 1 0
  0 0 0 0 1 1 1 0
  0 0 0 0 1 0 1 0 1 1 1 1 1 1 1 0
  0 0 0 0 0 0 1 0 1 1 0 0 1 1 1 0 1 1 1 1 2 1 2 1 1 1 1 1 1 1 1 0

Antti Karttunen, Table of n, a(n) for n = 0..16383

Cf. A066099, A124761, A124762, A124763, A124764, A011782 (row lengths), A045883 (row sums), A233249, A333213, A333380.
Compositions of n with k strict ascents are A238343.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Sum is A070939.
- Weakly decreasing compositions are A114994.
- Weakly decreasing runs are counted by A124765.
- Weakly increasing runs are counted by A124766.
- Equal runs are counted by A124767.
- Strictly increasing runs are counted by A124768.
- Strictly decreasing runs are counted by A124769.
- Weakly increasing compositions are A225620.
- Reverse is A228351 (triangle).
- Strict compositions are A233564.
- Constant compositions are A272919.
- Normal compositions are A333217.
- Strictly decreasing compositions are A333255.
- Strictly increasing compositions are A333256.
- Anti-runs are counted by A333381.
- Adjacent unequal pairs are counted by A333382.
- Anti-runs are A333489.
- Runs-resistance is A333628.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[Length[Select[Partition[stc[n],2,1],Less@@#&]],{n,0,100}] (* Gus Wiseman, Apr 08 2020 *)

A066099row(n) = {my(v=vector(n), j=0, k=0); while(n>0, k++; if(n%2==1, v[j++]=k; k=0); n\=2);  vector(j, i, v[j-i+1]); } \\ Returns empty for n=0. - From code of Franklin T. Adams-Watters in A066099.
A124760(n) = { my(v=A066099row(n), r=0); for(i=2,length(v),r += (v[i]>v[i-1])); (r); }; \\ Antti Karttunen, Jul 09 2017

For a composition b(1),...,b(k), a(n) = Sum_{i = 1 .. k-1} [b(i+1) > b(i)], where [ ] is Iverson bracket, giving in this case 1 only if b(i+1) > b(i), and 0 otherwise. - Formula clarified by Antti Karttunen, Jul 10 2017

For n > 0, a(n) = A124765(n) - 1. - Gus Wiseman, Apr 08 2020

A349051 Numbers k such that the k-th composition in standard order is an alternating permutation of {1..k} for some k.

Original entry on oeis.org

0, 1, 5, 6, 38, 41, 44, 50, 553, 562, 582, 593, 610, 652, 664, 708, 788, 808, 16966, 17036, 17048, 17172, 17192, 17449, 17458, 17542, 17676, 17712, 17940, 18000, 18513, 18530, 18593, 18626, 18968, 18992, 19496, 19536, 20625, 20676, 20769, 20868, 21256, 22600

Offset: 1

Gus Wiseman, Nov 08 2021

nonn

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.

A sequence is alternating if it is alternately strictly increasing and strictly decreasing, starting with either. For example, the partition (3,2,2,2,1) has no alternating permutations, even though it does have the anti-run permutations (2,3,2,1,2) and (2,1,2,3,2).

			The sequence together with the corresponding compositions begins:
        0: ()
        1: (1)
        5: (2,1)
        6: (1,2)
       38: (3,1,2)
       41: (2,3,1)
       44: (2,1,3)
       50: (1,3,2)
      553: (4,2,3,1)
      562: (4,1,3,2)
      582: (3,4,1,2)
      593: (3,2,4,1)
      610: (3,1,4,2)
      652: (2,4,1,3)
      664: (2,3,1,4)
      708: (2,1,4,3)
      788: (1,4,2,3)
      808: (1,3,2,4)
    16966: (5,3,4,1,2)
    17036: (5,2,4,1,3)

Wikipedia, Alternating permutation

These permutations are counted by A001250, complement A348615.
Compositions of this type are counted by A025047, complement A345192.
Subset of A333218, which ranks permutations of initial intervals.
Subset of A345167, which ranks alternating compositions, complement A345168.
A003242 counts Carlitz (anti-run) compositions.
A345163 counts normal partitions with an alternating permutation.
A345164 counts alternating permutations of prime indices.
A345170 counts partitions with an alternating permutation.
Compositions in standard order are the rows of A066099:
- Number of parts is given by A000120, distinct A334028.
- Sum and product of parts are given by A070939 and A124758.
- Maximum and minimum parts are given by A333766 and A333768.
- GCD and LCM are given by A326674 and A333226.
- Maximal runs and anti-runs are counted by A124767 and A333381.
- Heinz number is given by A333219.
- Runs-resistance is given by A333628.
- Partitions and strict partitions are ranked by A114994 and A333256.
- Multisets and sets are ranked by A225620 and A333255.
- Strict and constant compositions are ranked by A233564 and A272919.
- Carlitz (anti-run) compositions are ranked by A333489.
Cf. A025048, A025049, A344604, A344615, A344653, A344742, A348377, A348379, A345165.

stc[n_]:=Differences[Prepend[Join@@Position[ Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
wigQ[y_]:=Or[Length[y]==0,Length[Split[y]]== Length[y]&&Length[Split[Sign[Differences[y]]]]==Length[y]-1];
Select[Range[0,1000],Sort[stc[#]]==Range[Length[stc[#]]]&&wigQ[stc[#]]&]

Equals A333218 (permutation) /\ A345167 (alternating).

A124761 Number of falls for compositions in standard order.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 2, 1, 1, 0, 1, 0, 1, 1, 2, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 2, 1, 1, 0, 1, 1, 2, 1, 2, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 0, 1, 1, 1, 0, 2, 1, 1, 0

Offset: 0

Franklin T. Adams-Watters, Nov 06 2006

The standard order of compositions is given by A066099.

A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (row k of 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. a(n) is one fewer than the number of maximal weakly increasing runs in this composition. Alternatively, a(n) is the number of strict descents in the same composition. For example, the weakly increasing of runs of the 1234567th composition are ((3),(2),(1,2,2),(1,2,5),(1,1,1)), so a(1234567) = 5 - 1 = 4. The 4 strict descents together with the weak ascents are: 3 > 2 > 1 <= 2 <= 2 > 1 <= 2 <= 5 > 1 <= 1 <= 1. - Gus Wiseman, Apr 08 2020

			Composition number 11 is 2,1,1; 2>1<=1, so a(11) = 1.
The table starts:
  0
  0
  0 0
  0 1 0 0
  0 1 0 1 0 1 0 0
  0 1 1 1 0 1 1 1 0 1 0 1 0 1 0 0
  0 1 1 1 0 2 1 1 0 1 0 1 1 2 1 1 0 1 1 1 0 1 1 1 0 1 0 1 0 1 0 0

Cf. A066099, A124760, A124763, A124764, A011782 (row lengths), A045883 (row sums), A333213, A333220, A333379.
Positions of zeros are A225620.
Compositions of n with k strict descents are A238343.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Sum is A070939.
- Weakly decreasing compositions are A114994.
- Adjacent equal pairs are counted by A124762.
- Weakly decreasing runs are counted by A124765.
- Weakly increasing runs are counted by A124766.
- Equal runs are counted by A124767.
- Strictly increasing runs are counted by A124768.
- Strictly decreasing runs are counted by A124769.
- Weakly increasing compositions are A225620.
- Reverse is A228351 (triangle).
- Strict compositions are A233564.
- Initial intervals are A246534.
- Constant compositions are A272919.
- Normal compositions are A333217.
- Permutations are A333218.
- Strictly decreasing compositions are A333255.
- Strictly increasing compositions are A333256.
- Runs-resistance is A333628.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[Length[Select[Partition[stc[n],2,1],Greater@@#&]],{n,0,100}] (* Gus Wiseman, Apr 08 2020 *)

For a composition b(1),...,b(k), a(n) = Sum_{1<=i=1b(i+1)} 1.

For n > 0, a(n) = A124766(n) - 1. - Gus Wiseman, Apr 08 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

A118462 Decimal equivalent of binary encoding of partitions into distinct parts.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 8, 6, 9, 16, 7, 10, 17, 32, 11, 12, 18, 33, 64, 13, 19, 20, 34, 65, 128, 14, 21, 24, 35, 36, 66, 129, 256, 15, 22, 25, 37, 40, 67, 68, 130, 257, 512, 23, 26, 38, 41, 48, 69, 72, 131, 132, 258, 513, 1024, 27, 28, 39, 42, 49, 70, 73, 80, 133, 136, 259, 260, 514

Offset: 0

Franklin T. Adams-Watters, Apr 28 2006

A part of size k in the partition makes the 2^(k-1) bit of the number be 1. The partitions of n are in reverse Mathematica ordering, so that each row is in ascending order. This is a permutation of the nonnegative integers.
The sequence is the concatenation of the sets: e_n={j>=0: A029931(j)=n}, n=0,1,...: e_0={0}, e_1={1}, e_2={2}, e_3={3,4}, e_4={5,8}, e_5={6,9,16}, e_6={7,10,17,32}, e_7={11,12,18.33.64}, ... . - Vladimir Shevelev, Mar 16 2009
This permutation of the nonnegative integers A001477 has fixed points 0, 1, 2, 3, 4, 5, 325, 562, 800, 4449, ... and inverse permutation A118463. - Alois P. Heinz, Sep 06 2014
Row n lists in increasing order the binary ranks of all strict integer partitions of n, where the binary rank of a partition y is given by Sum_i 2^(y_i-1). - Gus Wiseman, May 21 2024

			Partition 11 is [4,2], which gives binary 1010 (2^(4-1)+2^(2-1)), or 10, so a(11)=10.
Triangle begins:
   0;
   1;
   2;
   3,  4;
   5,  8;
   6,  9, 16;
   7, 10, 17, 32;
  11, 12, 18, 33, 64;
  13, 19, 20, 34, 65, 128;
  14, 21, 24, 35, 36,  66, 129, 256;
  15, 22, 25, 37, 40,  67,  68, 130, 257, 512;
  ...
From _Gus Wiseman_, May 21 2024: (Start)
The tetrangle of strict partitions (A118457) begins:
  (1)  (2)  (2,1)  (3,1)  (3,2)  (3,2,1)  (4,2,1)  (4,3,1)  (4,3,2)
            (3)    (4)    (4,1)  (4,2)    (4,3)    (5,2,1)  (5,3,1)
                          (5)    (5,1)    (5,2)    (5,3)    (5,4)
                                 (6)      (6,1)    (6,2)    (6,2,1)
                                          (7)      (7,1)    (6,3)
                                                   (8)      (7,2)
                                                            (8,1)
                                                            (9)
(End)

Alois P. Heinz, Rows n = 0..42, flattened
V. Shevelev, A recursion for divisor function over divisors belonging to a prescribed finite sequence of positive integers and a solution of the Lahiri problem for divisor function sigma_x(n), arXiv:0903.1743 [math.NT], 2009. [From _Vladimir Shevelev_, Mar 17 2009]
Index entries for sequences that are permutations of the natural numbers

Cf. A118463, A118457, A000009 (row lengths).
Cf. A089633 (first column), A000079 (last in each column). - Franklin T. Adams-Watters, Mar 16 2009
Cf. A246867.
A variation encoding all partitions is A225620.
Row sums are A372888.
A048793 lists binary indices, sum A029931, length A000120.
Cf. A000041, A019565, A029837, A048675, A272020.

b:= proc(n, i) option remember; `if`(n=0, [0], `if`(i<1, [], [seq(
      map(p->p+2^(i-1)*j, b(n-i*j, i-1))[], j=0..min(1, n/i))]))
    end:
T:= n-> sort(b(n$2))[]:
seq(T(n), n=0..14);  # Alois P. Heinz, Sep 06 2014

b[n_, i_] := b[n, i] = If[n==0, {0}, If[i<1, {}, Flatten[Table[b[n-i*j, i-1 ] + 2^(i-1)*j, {j, 0, Min[1, n/i]}]]]]; T[n_] := Sort[b[n, n]]; Table[ T[n], {n, 0, 14}] // Flatten (* Jean-François Alcover, Dec 27 2015, after Alois P. Heinz *)
Table[Total[2^(#-1)]&/@Select[Reverse[IntegerPartitions[n]],UnsameQ@@#&],{n,0,10}] (* Gus Wiseman, May 21 2024 *)

A124764 Number of non-falls (levels or rises) for compositions in standard order.

Original entry on oeis.org

0, 0, 0, 1, 0, 0, 1, 2, 0, 0, 1, 1, 1, 1, 2, 3, 0, 0, 0, 1, 1, 1, 1, 2, 1, 1, 2, 2, 2, 2, 3, 4, 0, 0, 0, 1, 1, 0, 1, 2, 1, 1, 2, 2, 1, 1, 2, 3, 1, 1, 1, 2, 2, 2, 2, 3, 2, 2, 3, 3, 3, 3, 4, 5, 0, 0, 0, 1, 0, 0, 1, 2, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 1, 2, 2, 2, 2, 3, 1, 1, 2, 2, 2, 2, 3, 4, 1, 1, 1, 2, 2, 1, 2, 3, 2

Offset: 0

Franklin T. Adams-Watters, Nov 06 2006

The standard order of compositions is given by A066099.

A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (row k of 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. a(n) is one fewer than the number of maximal strictly decreasing runs in this composition. Alternatively, a(n) is the number of weak ascents in the same composition. For example, the strictly decreasing runs of the 1234567th composition are ((3,2,1),(2),(2,1),(2),(5,1),(1),(1)), so a(1234567) = 7 - 1 = 6. The 6 weak ascents together with the strict descents are: 3 > 2 > 1 <= 2 <= 2 > 1 <= 2 <= 5 > 1 <= 1 <= 1. - Gus Wiseman, Apr 08 2020

			Composition number 11 is 2,1,1; 2>1<=1, so a(11) = 1.
The table starts:
  0
  0
  0 1
  0 0 1 2
  0 0 1 1 1 1 2 3
  0 0 0 1 1 1 1 2 1 1 2 2 2 2 3 4
  0 0 0 1 1 0 1 2 1 1 2 2 1 1 2 3 1 1 1 2 2 2 2 3 2 2 3 3 3 3 4 5

Cf. A066099, A124760, A124761, A124762, A124763, A011782 (row lengths), A045883 (row sums), A233249, A238343.
Compositions of n with k weak ascents are A333213.
Positions of zeros are A333256.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Partial sums from the right are A048793 (triangle).
- Sum is A070939.
- Weakly decreasing compositions are A114994.
- Weakly decreasing runs are counted by A124765.
- Weakly increasing runs are counted by A124766.
- Equal runs are counted by A124767.
- Strictly increasing runs are counted by A124768.
- Strictly decreasing runs are counted by A124769.
- Reversed initial intervals A164894.
- Weakly increasing compositions are A225620.
- Reverse is A228351 (triangle).
- Strict compositions are A233564.
- Constant compositions are A272919.
- Normal compositions are A333217.
- Permutations are A333218.
- Heinz number is A333219.
- Strictly decreasing compositions are A333255.
- Strictly increasing compositions are A333256.
- Anti-runs are A333489.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[Length[Select[Partition[stc[n],2,1],LessEqual@@#&]],{n,0,100}] (* Gus Wiseman, Apr 08 2020 *)

a(n) = A124760(n) + A124762(n)
For a composition b(1),...,b(k), a(n) = Sum_{1<=i=1=b(i+1)} 1.
For n > 0, a(n) = A124769(n) - 1. - Gus Wiseman, Apr 08 2020

A353402 Numbers k such that the k-th composition in standard order has its own run-lengths as a subsequence (not necessarily consecutive).

Original entry on oeis.org

0, 1, 10, 21, 26, 43, 53, 58, 107, 117, 174, 186, 292, 314, 346, 348, 349, 373, 430, 442, 570, 585, 586, 629, 676, 693, 696, 697, 698, 699, 804, 826, 858, 860, 861, 885, 954, 1082, 1141, 1173, 1210, 1338, 1353, 1387, 1392, 1393, 1394, 1396, 1397, 1398, 1466

Offset: 0

Gus Wiseman, May 15 2022

nonn

First differs from A353432 (the consecutive case) in having 0 and 53.

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 initial terms, their binary expansions, and the corresponding standard compositions:
    0:          0  ()
    1:          1  (1)
   10:       1010  (2,2)
   21:      10101  (2,2,1)
   26:      11010  (1,2,2)
   43:     101011  (2,2,1,1)
   53:     110101  (1,2,2,1)
   58:     111010  (1,1,2,2)
  107:    1101011  (1,2,2,1,1)
  117:    1110101  (1,1,2,2,1)
  174:   10101110  (2,2,1,1,2)
  186:   10111010  (2,1,1,2,2)
  292:  100100100  (3,3,3)
  314:  100111010  (3,1,1,2,2)
  346:  101011010  (2,2,1,2,2)
  348:  101011100  (2,2,1,1,3)
  349:  101011101  (2,2,1,1,2,1)
  373:  101110101  (2,1,1,2,2,1)
  430:  110101110  (1,2,2,1,1,2)
  442:  110111010  (1,2,1,1,2,2)

The version for partitions is A325755, counted by A325702.
These compositions are counted by A353390.
The recursive version is A353431, counted by A353391.
The consecutive case is A353432, counted by A353392.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order, reverse A228351.
A333769 lists run-lengths of compositions in standard order.
Words with all distinct run-lengths: A032020, A044813, A098859, A130091, A329739, A351017.
Statistics of standard compositions:
- Length is A000120, sum A070939.
- Runs are counted by A124767, distinct A351014.
- Subsequences are counted by A334299, consecutive A124770/A124771.
- Runs-resistance is A333628.
Classes of standard compositions:
- Partitions are A114994, strict A333255, rev A225620, strict rev A333256.
- Runs are A272919.
- Golomb rulers are A333222, counted by A169942.
- Knapsack compositions are A333223, counted by A325676.
- Anti-runs are A333489, counted by A003242.
Cf. A114640, A165413, A181819, A318928, A325705, A329738, A333224/A333257, A333755, A353393, A353403, A353430.

stc[n_]:=Differences[Prepend[Join@@Position[ Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
rosQ[y_]:=Length[y]==0||MemberQ[Subsets[y],Length/@Split[y]];
Select[Range[0,100],rosQ[stc[#]]&]

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

cp's OEIS Frontend

A352516 Number of excedances (parts above the diagonal) of the n-th composition in standard order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A352517 Number of weak excedances (parts on or above the diagonal) of the n-th composition in standard order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A124760 Number of rises for compositions in standard order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A349051 Numbers k such that the k-th composition in standard order is an alternating permutation of {1..k} for some k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A124761 Number of falls for compositions in standard order.

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

A118462 Decimal equivalent of binary encoding of partitions into distinct parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A124764 Number of non-falls (levels or rises) for compositions in standard order.

Views

Author

Keywords