A194546 -id:A194546 - cp's OEIS frontend

A211992 Triangle read by rows in which row n lists the partitions of n in colexicographic order.

1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 1, 1, 1, 2, 1, 1, 3, 1, 2, 2, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 4, 1, 3, 2, 5, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 4, 1, 1, 3, 2, 1, 5, 1, 2, 2, 2, 4, 2, 3, 3, 6, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 2, 1, 1, 1, 4, 1, 1, 1, 3, 2, 1, 1, 5, 1, 1, 2, 2, 2, 1, 4, 2, 1, 3, 3, 1, 6, 1, 3, 2, 2, 5, 2, 4, 3, 7

Offset: 1

Omar E. Pol, Aug 18 2012

The order of the partitions of every integer is reversed with respect to A026792. For example: in A026792 the partitions of 3 are listed as [3], [2, 1], [1, 1, 1], however here the partitions of 3 are listed as [1, 1, 1], [2, 1], [3].
Row n has length A006128(n). Row sums give A066186. Right border gives A000027. The equivalent sequence for compositions (ordered partitions) is A228525. - Omar E. Pol, Aug 24 2013
The representation of the partitions (for fixed n) is as (weakly) decreasing lists of parts, the order between individual partitions (for the same n) is co-lexicographic. The equivalent sequence for partitions as (weakly) increasing lists and lexicographic order is A026791. - Joerg Arndt, Sep 02 2013

			From _Omar E. Pol_, Aug 24 2013: (Start)
Illustration of initial terms:
-----------------------------------------
n      Diagram          Partition
-----------------------------------------
.       _
1      |_|              1;
.       _ _
2      |_| |            1, 1,
2      |_ _|            2;
.       _ _ _
3      |_| | |          1, 1, 1,
3      |_ _| |          2, 1,
3      |_ _ _|          3;
.       _ _ _ _
4      |_| | | |        1, 1, 1, 1,
4      |_ _| | |        2, 1, 1,
4      |_ _ _| |        3, 1,
4      |_ _|   |        2, 2,
4      |_ _ _ _|        4;
.       _ _ _ _ _
5      |_| | | | |      1, 1, 1, 1, 1,
5      |_ _| | | |      2, 1, 1, 1,
5      |_ _ _| | |      3, 1, 1,
5      |_ _|   | |      2, 2, 1,
5      |_ _ _ _| |      4, 1,
5      |_ _ _|   |      3, 2,
5      |_ _ _ _ _|      5;
.       _ _ _ _ _ _
6      |_| | | | | |    1, 1, 1, 1, 1, 1,
6      |_ _| | | | |    2, 1, 1, 1, 1,
6      |_ _ _| | | |    3, 1, 1, 1,
6      |_ _|   | | |    2, 2, 1, 1,
6      |_ _ _ _| | |    4, 1, 1,
6      |_ _ _|   | |    3, 2, 1,
6      |_ _ _ _ _| |    5, 1,
6      |_ _|   |   |    2, 2, 2,
6      |_ _ _ _|   |    4, 2,
6      |_ _ _|     |    3, 3,
6      |_ _ _ _ _ _|    6;
...
Triangle begins:
[1];
[1,1], [2];
[1,1,1], [2,1], [3];
[1,1,1,1], [2,1,1], [3,1], [2,2], [4];
[1,1,1,1,1], [2,1,1,1], [3,1,1], [2,2,1], [4,1], [3,2], [5];
[1,1,1,1,1,1], [2,1,1,1,1], [3,1,1,1], [2,2,1,1], [4,1,1], [3,2,1], [5,1], [2,2,2], [4,2], [3,3], [6];
(End)
From _Gus Wiseman_, May 10 2020: (Start)
The triangle with partitions shown as Heinz numbers (A334437) begins:
    1
    2
    4   3
    8   6   5
   16  12  10   9   7
   32  24  20  18  14  15  11
   64  48  40  36  28  30  22  27  21  25  13
  128  96  80  72  56  60  44  54  42  50  26  45  33  35  17
(End)

Joerg Arndt, Table of n, a(n) for n = 1..10000
OEIS Wiki, Orderings of partitions
Wikiversity, Lexicographic and colexicographic order

Cf. A026791, A141285, A194446, A228531.
The graded reversed version is A026792.
The length-sensitive refinement is A036037.
The version for reversed partitions is A080576.
Partition lengths are A193173.
Partition maxima are A194546.
Partition minima are A196931.
The version for compositions is A228525.
The Heinz numbers of these partitions are A334437.
Cf. A036036, A080577, A193073, A228100, A296150, A331581, A334301, A334302, A334436, A334439, A334442.

colex[f_,c_]:=OrderedQ[PadRight[{Reverse[f],Reverse[c]}]];
Join@@Table[Sort[IntegerPartitions[n],colex],{n,0,6}] (* Gus Wiseman, May 10 2020 *)

gen_part(n)=
{  /* Generate partitions of n as weakly increasing lists (order is lex): */
    my(ct = 0);
    my(m, pt);
    my(x, y);
    \\ init:
    my( a = vector( n + (n<=1) ) );
    a[1] = 0;  a[2] = n;  m = 2;
    while ( m!=1,
        y = a[m] - 1;
        m -= 1;
        x = a[m] + 1;
        while ( x<=y,
            a[m] = x;
            y = y - x;
            m += 1;
        );
        a[m] = x + y;
        pt = vector(m, j, a[j]);
    /* for A026791 print partition: */
\\        for (j=1, m, print1(pt[j],", ") );
    /* for A211992 print partition as weakly decreasing list (order is colex): */
        forstep (j=m, 1, -1, print1(pt[j],", ") );
        ct += 1;
    );
    return(ct);
}
for(n=1, 10, gen_part(n) );
\\ Joerg Arndt, Sep 02 2013

A225620 Indices of partitions in the table of compositions of A228351.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 8, 10, 12, 14, 15, 16, 20, 24, 26, 28, 30, 31, 32, 36, 40, 42, 48, 52, 56, 58, 60, 62, 63, 64, 72, 80, 84, 96, 100, 104, 106, 112, 116, 120, 122, 124, 126, 127, 128, 136, 144, 160, 164, 168, 170, 192, 200, 208, 212, 224, 228, 232, 234, 240, 244, 248, 250, 252, 254, 255

Offset: 1

Omar E. Pol, Aug 03 2013

Also triangle read by rows in which T(n,k) is the decimal representation of a binary number whose mirror represents the k-th partition of n according with the list of juxtaposed reverse-lexicographically ordered partitions of the positive integers (A026792).
In order to construct this sequence as a triangle we use the following rules:
- In the list of A026792 we replace each part of size j of the k-th partition of n by concatenation of j - 1 zeros and only one 1.
- Then replace this new set of parts by the concatenation of its parts.
- Then replace this string by its mirror version which is a binary number.
T(n,k) is the decimal value of this binary number, which represents the k-th partition of n (see example).
The partitions of n are represented by a subsequence with A000041(n) integers starting with 2^(n-1) and ending with 2^n - 1, n >= 1. The odd numbers of the sequence are in A000225.
First differs from A065609 at a(23).
Conjecture: this sequence is a sorted version of b(n) where b(2^k) = 2^k for k >= 0, b(n) = A080100(n)*(2*b(A053645(n)) + 1) otherwise. - Mikhail Kurkov, Oct 21 2023

			T(6,8) = 58 because 58 in base 2 is 111010 whose mirror is 010111 which is the concatenation of 01, 01, 1, 1, whose number of digits are 2, 2, 1, 1, which are also the 8th partition of 6.
Illustration of initial terms:
The sequence represents a table of partitions (see below):
--------------------------------------------------------
.            Binary                        Partitions
n  k  T(n,k) number  Mirror   Diagram       (A026792)
.                                          1 2 3 4 5 6
--------------------------------------------------------
.                             _
1  1     1       1    1        |           1,
.                             _ _
1  1     2      10    01      _  |           2,
2  2     3      11    11       | |         1,1,
.                             _ _ _
3  1     4     100    001     _ _  |           3,
3  2     6     110    011     _  | |         2,1,
3  3     7     111    111      | | |       1,1,1,
.                             _ _ _ _
4  1     8    1000    0001    _ _    |           4,
4  2    10    1010    0101    _ _|_  |         2,2,
4  3    12    1100    0011    _ _  | |         3,1,
4  4    14    1110    0111    _  | | |       2,1,1,
4  5    15    1111    1111     | | | |     1,1,1,1,
.                             _ _ _ _ _
5  1    16   10000    00001   _ _ _    |           5,
5  2    20   10100    00101   _ _ _|_  |         3,2,
5  3    24   11000    00011   _ _    | |         4,1,
5  4    26   11010    01011   _ _|_  | |       2,2,1,
5  5    28   11100    00111   _ _  | | |       3,1,1,
5  6    30   11110    01111   _  | | | |     2,1,1,1,
5  7    31   11111    11111    | | | | |   1,1,1,1,1,
.                             _ _ _ _ _ _
6  1    32  100000    000001  _ _ _      |           6
6  2    36  100100    001001  _ _ _|_    |         3,3,
6  3    40  101000    000101  _ _    |   |         4,2,
6  4    42  101010    010101  _ _|_ _|_  |       2,2,2,
6  5    48  110000    000011  _ _ _    | |         5,1,
6  6    52  110100    001011  _ _ _|_  | |       3,2,1,
6  7    56  111000    000111  _ _    | | |       4,1,1,
6  8    58  111010    010111  _ _|_  | | |     2,2,1,1,
6  9    60  111100    001111  _ _  | | | |     3,1,1,1,
6  10   62  111110    011111  _  | | | | |   2,1,1,1,1,
6  11   63  111111    111111   | | | | | | 1,1,1,1,1,1,
.
Triangle begins:
  1;
  2,   3;
  4,   6,  7;
  8,  10, 12, 14, 15;
  16, 20, 24, 26, 28, 30, 31;
  32, 36, 40, 42, 48, 52, 56, 58, 60, 62, 63;
  ...
From _Gus Wiseman_, Apr 01 2020: (Start)
Using the encoding of A066099, this sequence ranks all finite nonempty multisets, as follows.
   1: {1}
   2: {2}
   3: {1,1}
   4: {3}
   6: {1,2}
   7: {1,1,1}
   8: {4}
  10: {2,2}
  12: {1,3}
  14: {1,1,2}
  15: {1,1,1,1}
  16: {5}
  20: {2,3}
  24: {1,4}
  26: {1,2,2}
  28: {1,1,3}
  30: {1,1,1,2}
  31: {1,1,1,1,1}
(End)

Column 1 is A000079. Row n has length A000041(n). Right border gives A000225.
Cf. A026792, A065609, A135010, A141285, A186114, A194446, A194546, A206437, A207779, A211978, A225600, A225610, A228351.
The case covering an initial interval is A333379 or A333380.
All of the following pertain to compositions in the order of A066099.
- The weakly increasing version is this sequence.
- The weakly decreasing version is A114994.
- The strictly increasing version is A333255.
- The strictly decreasing version is A333256.
- The unequal version is A233564.
- The equal version is A272919.
- The case covering an initial interval is A333217.
- Initial intervals are ranked by A164894.
- Reversed initial intervals are ranked by A246534.
Cf. A000120, A029931, A048793, A070939, A124766, A233249, A333219, A333220.

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

Conjecture: a(A000070(m) - k) = 2^m - A228354(k) for m > 0, 0 < k <= A000041(m). - Mikhail Kurkov, Oct 20 2023

A026791 Triangle in which n-th row lists juxtaposed lexicographically ordered partitions of n; e.g., the partitions of 3 (1+1+1,1+2,3) appear as 1,1,1,1,2,3 in row 3.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 1, 2, 1, 3, 2, 2, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 3, 1, 2, 2, 1, 4, 2, 3, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 1, 4, 1, 2, 3, 1, 5, 2, 2, 2, 2, 4, 3, 3, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 1, 4, 1, 1, 2, 3, 1, 1, 5

Offset: 1

Clark Kimberling

Differs from A080576 in a(18): Here, (...,1+3,2+2,4), there (...,2+2,1+3,4).
The representation of the partitions (for fixed n) is as (weakly) increasing lists of parts, the order between individual partitions (for the same n) is lexicographic (see example). - Joerg Arndt, Sep 03 2013
The equivalent sequence for compositions (ordered partitions) is A228369. - Omar E. Pol, Oct 19 2019

			First six rows are:
[[1]];
[[1, 1], [2]];
[[1, 1, 1], [1, 2], [3]];
[[1, 1, 1, 1], [1, 1, 2], [1, 3], [2, 2], [4]];
[[1, 1, 1, 1, 1], [1, 1, 1, 2], [1, 1, 3], [1, 2, 2], [1, 4], [2, 3], [5]];
[[1, 1, 1, 1, 1, 1], [1, 1, 1, 1, 2], [1, 1, 1, 3], [1, 1, 2, 2], [1, 1, 4], [1, 2, 3], [1, 5], [2, 2, 2], [2, 4], [3, 3], [6]];
...
From _Omar E. Pol_, Sep 03 2013: (Start)
Illustration of initial terms:
----------------------------------
.                     Ordered
n  j      Diagram     partition j
----------------------------------
.               _
1  1           |_|    1;
.             _ _
2  1         | |_|    1, 1,
2  2         |_ _|    2;
.           _ _ _
3  1       | | |_|    1, 1, 1,
3  2       | |_ _|    1, 2,
3  3       |_ _ _|    3;
.         _ _ _ _
4  1     | | | |_|    1, 1, 1, 1,
4  2     | | |_ _|    1, 1, 2,
4  3     | |_ _ _|    1, 3,
4  4     |   |_ _|    2, 2,
4  5     |_ _ _ _|    4;
...
(End)

Alois P. Heinz, Rows n = 1..19, flattened
Wikiversity, Lexicographic and colexicographic order

Row lengths are given in A006128.
Partition lengths are in A193173.
Other partition orderings: A026792, A036037, A080577, A125106, A139100, A181087, A181317, A182937, A228100, A240837, A242628.
Row lengths are A000041.
Partition sums are A036042.
Partition minima are A196931.
Partition maxima are A194546.
The reflected version is A211992.
The length-sensitive version (sum/length/lex) is A036036.
The colexicographic version (sum/colex) is A080576.
The version for non-reversed partitions is A193073.
Compositions under the same ordering (sum/lex) are A228369.
The reverse-lexicographic version (sum/revlex) is A228531.
The Heinz numbers of these partitions are A334437.
Cf. A049085, A103921, A112798, A115623, A129129, A331581, A334435, A334439, A334442.

T:= proc(n) local b, ll;
      b:= proc(n,l)
            if n=0 then ll:= ll, l[]
          else seq(b(n-i, [l[], i]), i=`if`(l=[],1,l[-1])..n)
            fi
          end;
      ll:= NULL; b(n, []); ll
    end:
seq(T(n), n=1..8);  # Alois P. Heinz, Jul 16 2011

T[n0_] := Module[{b, ll}, b[n_, l_] := If[n == 0, ll = Join[ll, l], Table[ b[n - i, Append[l, i]], {i, If[l == {}, 1, l[[-1]]], n}]]; ll = {}; b[n0, {}]; ll]; Table[T[n], {n, 1, 8}] // Flatten (* Jean-François Alcover, Aug 05 2015, after Alois P. Heinz *)
Table[DeleteCases[Sort@PadRight[Reverse /@ IntegerPartitions[n]], x_ /; x == 0, 2], {n, 7}] // Flatten (* Robert Price, May 18 2020 *)

t = [[[]]]
for n in range(1, 10):
    p = []
    for minp in range(1, n):
        p += [[minp] + pp for pp in t[n-minp] if min(pp) >= minp]
    t.append(p + [[n]])
print(t)
# Andrey Zabolotskiy, Oct 18 2019

A049085 Irregular table T(n,k) = maximal part of the k-th partition of n, when listed in Abramowitz-Stegun order (as in A036043).

Original entry on oeis.org

0, 1, 2, 1, 3, 2, 1, 4, 3, 2, 2, 1, 5, 4, 3, 3, 2, 2, 1, 6, 5, 4, 3, 4, 3, 2, 3, 2, 2, 1, 7, 6, 5, 4, 5, 4, 3, 3, 4, 3, 2, 3, 2, 2, 1, 8, 7, 6, 5, 4, 6, 5, 4, 4, 3, 5, 4, 3, 3, 2, 4, 3, 2, 3, 2, 2, 1, 9, 8, 7, 6, 5, 7, 6, 5, 4, 5, 4, 3, 6, 5, 4, 4, 3, 3, 5, 4, 3, 3, 2, 4, 3, 2, 3, 2, 2, 1, 10, 9, 8, 7, 6, 5, 8, 7, 6

Offset: 0

Alford Arnold

a(0) = 0 by convention. - Franklin T. Adams-Watters, Jun 24 2014
Like A036043 this is important for calculating sequences defined over the numeric partitions, cf. A000041. For example, the triangular array A019575 can be calculated using A036042 and this sequence.
The row sums are A006128. - Johannes W. Meijer, Jun 21 2010
The name is correct if the partitions are read in reverse, so that the parts are weakly increasing. The version for non-reversed partitions is A334441. - Gus Wiseman, May 21 2020

			Rows:
  [0];
  [1];
  [2,1];
  [3,2,1];
  [4,3,2,2,1];
  [5,4,3,3,2,2,1];
  ...

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 831.

Alois P. Heinz, Rows n = 0..26, flattened
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
Wolfdieter Lang, First 15 rows.
OEIS Wiki, Orderings of partitions
Wikiversity, Lexicographic and colexicographic order

Row lengths are A000041.
Row sums are A006128.
The length of the partition is A036043.
The number of distinct elements of the partition is A103921.
The Heinz number of the partition is A185974.
The version ignoring length is A194546.
The version for non-reversed partitions is A334441.
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun order are A036036.
Reverse-lexicographically ordered partitions are A080577.
Partitions in Abramowitz-Stegun order are A334301.
Cf. A001221, A036037, A036042, A115623, A124734, A193073, A334302, A334433, A334438, A334439, A334440.

with(combinat):
nmax:=9:
for n from 1 to nmax do
   y(n):=numbpart(n):
   P(n):=partition(n):
   for k from 1 to y(n) do
      B(k):=P(n)[k]
   od:
   for k from 1 to y(n) do
      s:=0: j:=0:
      while sJohannes W. Meijer, Jun 21 2010

Table[If[n==0,{0},Max/@Sort[Reverse/@IntegerPartitions[n]]],{n,0,8}] (* Gus Wiseman, May 21 2020 *)

A049085(n,k)=if(n,partitions(n)[k][1],0) \\ M. F. Hasler, Jun 06 2018

More terms from Wolfdieter Lang, Apr 28 2005

a(0) inserted by Franklin T. Adams-Watters, Jun 24 2014

A193173 Triangle in which n-th row lists the number of elements in lexicographically ordered partitions of n, A026791.

Original entry on oeis.org

1, 2, 1, 3, 2, 1, 4, 3, 2, 2, 1, 5, 4, 3, 3, 2, 2, 1, 6, 5, 4, 4, 3, 3, 2, 3, 2, 2, 1, 7, 6, 5, 5, 4, 4, 3, 4, 3, 3, 2, 3, 2, 2, 1, 8, 7, 6, 6, 5, 5, 4, 5, 4, 4, 3, 4, 3, 3, 2, 4, 3, 3, 2, 2, 2, 1, 9, 8, 7, 7, 6, 6, 5, 6, 5, 5, 4, 5, 4, 4, 3, 5, 4, 4, 3, 3, 3, 2, 4, 3, 3, 2, 3, 2, 2, 1, 10, 9, 8, 8, 7, 7, 6, 7, 6

Offset: 1

Alois P. Heinz, Jul 17 2011

This sequence first differs from A049085 in the partitions of 6 (at flattened index 22):
6, 5, 4, 4, 3, 3, 2, 3, 2, 2, 1 (this sequence);
6, 5, 4, 3, 4, 3, 2, 3, 2, 2, 1 (A049085).
- Jason Kimberley, Oct 27 2011
Rows sums give A006128, n >= 1. - Omar E. Pol, Dec 06 2011
The name is correct if the partitions are read in reverse, so that the parts are weakly increasing. The version for non-reversed partitions is A049085.

			The lexicographically ordered partitions of 3 are [[1, 1, 1], [1, 2], [3]], thus row 3 has 3, 2, 1.
Triangle begins:
  1;
  2, 1;
  3, 2, 1;
  4, 3, 2, 2, 1;
  5, 4, 3, 3, 2, 2, 1;
  6, 5, 4, 4, 3, 3, 2, 3, 2, 2, 1;
  ...

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

Row lengths are A000041.
Partition lengths of A026791.
The version ignoring length is A036043.
The version for non-reversed partitions is A049085.
The maxima of these partitions are A194546.
Reversed partitions in Abramowitz-Stegun order are A036036.
Reverse-lexicographically ordered partitions are A080577.
Cf. A001222, A115623, A129129, A185974, A193073, A211992, A228531, A334302, A334434, A334437, A334440, A334441.

T:= proc(n) local b, ll;
      b:= proc(n,l)
            if n=0 then ll:= ll, nops(l)
            else seq(b(n-i, [l[], i]), i=`if`(l=[], 1, l[-1])..n) fi
          end;
      ll:= NULL; b(n, []); ll
    end:
seq(T(n), n=1..11);

lexsort[f_,c_]:=OrderedQ[PadRight[{f,c}]];
Table[Length/@Sort[Reverse/@IntegerPartitions[n],lexsort],{n,0,10}] (* Gus Wiseman, May 22 2020 *)

A194547 Triangle read by rows: T(n,k) = Dyson's rank of the k-th partition of n, with partitions in lexicographic order.

Original entry on oeis.org

0, -1, 1, -2, 0, 2, -3, -1, 1, 0, 3, -4, -2, 0, -1, 2, 1, 4, -5, -3, -1, -2, 1, 0, 3, -1, 2, 1, 5, -6, -4, -2, -3, 0, -1, 2, -2, 1, 0, 4, 0, 3, 2, 6, -7, -5, -3, -4, -1, -2, 1, -3, 0, -1, 3, -1, 2, 1, 5, -2, 1, 0, 4, 3, 2, 7, -8, -6, -4, -5, -2, -3, 0, -4, -1

Offset: 1

Omar E. Pol, Dec 10 2011

Row n has length A000041(n). The sum of row n is equal to zero.

			Written as a triangle:
  0;
  -1,1;
  -2,0,2;
  -3,-1,1,0,3;
  -4,-2,0,-1,2,1,4;
  -5,-3,-1,-2,1,0,3,-1,2,1,5;
  -6,-4,-2,-3,0,-1,2,-2,1,0,4,0,3,2,6;
  -7,-5,-3,-4,-1,-2,1,-3,0,-1,3,-1,2,1,5,-2,1,0,4,3,2,7;

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

Cf. A105805, A135010, A138121, A194546, A194548, A194549.

T:= proc(n) local b, l;
      b:= proc(n, i, t)
            if n=0 then l:=l, i-t
          elif i>n then
          else b(n-i, i, t+1); b(n, i+1, t)
            fi
          end;
      l:= NULL; b(n, 1, 0); l
    end:
seq(T(n), n=1..10);  # Alois P. Heinz, Dec 22 2011

T[n_] := Module[{b, l}, b[n0_, i_, t_] := If [n0==0, l = Append[l, i-t], If[i>n0, , b[n0-i, i, t+1]; b[n0, i+1, t]]]; l = {}; b[n, 1, 0]; l];
Table[T[n], {n, 1, 10}] // Flatten (* Jean-François Alcover, Mar 05 2021, after Alois P. Heinz *)

a(n) = A194546(n) - A193173(n).

More terms from Alois P. Heinz, Dec 22 2011

A194548 Triangle read by rows: T(n,k) = number of parts in the k-th partition of n that does not contain 1 as a part, with partitions in lexicographic order.

Original entry on oeis.org

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

Offset: 1

Omar E. Pol, Dec 11 2011

			Written as a triangle:
  0;
  1;
  1;
  2,1;
  2,1;
  3,2,2,1;
  3,2,2,1;
  4,3,3,2,2,2,1;
  4,3,3,2,3,2,2,1;
  5,4,4,3,3,3,2,3,2,2,2,1;
  5,4,4,3,4,3,3,2,3,3,2,2,2,1;
  6,5,5,4,4,4,3,4,3,3,3,2,4,3,3,2,3,2,2,2,1;
  6,5,5,4,5,4,4,3,4,4,3,3,3,2,4,3,3,3,2,3,2,2,2,1;

Alois P. Heinz, Rows n = 1..33, flattened
Tilman Piesk, Table for A194602, showing the non-one addends.

Row sums give A138135. Row n has length A187219(n).

Cf. A002865, A135010, A138121, A193173, A194546, A194547, A194549.

T:= proc(n) local b, l;
      b:= proc(n, i, t)
            if n=0 then l:=l, t
          elif i>n then
          else b(n-i, i, t+1); b(n, i+1, t)
            fi
          end;
      if n<2 then 0 else l:= NULL; b(n, 2, 0); l fi
    end:
seq(T(n), n=1..15);  # Alois P. Heinz, Dec 19 2011

T[n_] := Module[{b, l}, b[n0_, i_, t_] :=
     If[n0==0, l = Append[l, t],
     If[i>n0, , b[n0-i, i, t+1]; b[n0, i+1, t]]];
     If[n<2, {0}, l = {}; b[n, 2, 0]; l]];
Table[T[n], {n, 1, 15}]  // Flatten (* Jean-François Alcover, Mar 05 2021, after Alois P. Heinz *)

More terms from Alois P. Heinz, Dec 19 2011

A194549 Triangle read by rows: T(n,k) = Dyson's rank of the k-th partition of n that does not contain 1 as a part, with partitions in lexicographic order.

Original entry on oeis.org

1, 1, 2, 0, 3, 1, 4, -1, 2, 1, 5, 0, 3, 2, 6, -2, 1, 0, 4, 3, 2, 7, -1, 2, 1, 5, 0, 4, 3, 8, -3, 0, -1, 3, 2, 1, 6, 1, 5, 4, 3, 9, -2, 1, 0, 4, -1, 3, 2, 7, 2, 1, 6, 5, 4, 10, -4, -1, -2, 2, 1, 0, 5, 0, 4, 3, 2, 8, -1, 3, 2, 7, 1, 6, 5, 4, 11, -3, 0, -1, 3, -2

Offset: 1

Omar E. Pol, Dec 11 2011

			Written as a triangle:
  1;
  1;
  2;
  0,3;
  1,4;
  -1,2,1,5;
  0,3,2,6;
  -2,1,0,4,3,2,7;
  -1,2,1,5,0,4,3,8;
  -3,0,-1,3,2,1,6,1,5,4,3,9;
  -2,1,0,4,-1,3,2,7,2,1,6,5,4,10;
  -4,-1,-2,2,1,0,5,0,4,3,2,8,-1,3,2,7,1,6,5,4,11;

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

The sum of row n is A000041(n-1). Row n has length A187219(n).

Cf. A002865, A135010, A138121, A194546, A194547, A194548.

T:= proc(n) local b, l;
      b:= proc(n, i, t)
            if n=0 then l:=l, i-t
          elif i>n then
          else b(n-i, i, t+1); b(n, i+1, t)
            fi
          end;
      if n<2 then 1 else l:= NULL; b(n, 2, 0); l fi
    end:
seq(T(n), n=1..13); # Alois P. Heinz, Dec 20 2011

T[n_] := Module[{b, l}, b[n0_, i_, t_] :=
     If[n0 == 0, l = Append[l, i-t],
     If[i>n0, , b[n0-i, i, t+1]; b[n0, i+1, t]]];
     If[n<2, {1}, l = {}; b[n, 2, 0]; l]];
Table[T[n], {n, 1, 13}]  // Flatten (* Jean-François Alcover, Mar 05 2021, after Alois P. Heinz *)

a(n) = A141285(n) - A194548(n).

More terms from Alois P. Heinz, Dec 20 2011

cp's OEIS Frontend

A211992 Triangle read by rows in which row n lists the partitions of n in colexicographic order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A225620 Indices of partitions in the table of compositions of A228351.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A026791 Triangle in which n-th row lists juxtaposed lexicographically ordered partitions of n; e.g., the partitions of 3 (1+1+1,1+2,3) appear as 1,1,1,1,2,3 in row 3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

A049085 Irregular table T(n,k) = maximal part of the k-th partition of n, when listed in Abramowitz-Stegun order (as in A036043).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Extensions

A193173 Triangle in which n-th row lists the number of elements in lexicographically ordered partitions of n, A026791.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A194547 Triangle read by rows: T(n,k) = Dyson's rank of the k-th partition of n, with partitions in lexicographic order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A194548 Triangle read by rows: T(n,k) = number of parts in the k-th partition of n that does not contain 1 as a part, with partitions in lexicographic order.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs