cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 50 results. Next

A334433 Heinz numbers of all integer partitions sorted first by sum, then by length, and finally lexicographically.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 7, 9, 10, 12, 16, 11, 15, 14, 18, 20, 24, 32, 13, 25, 21, 22, 27, 30, 28, 36, 40, 48, 64, 17, 35, 33, 26, 45, 50, 42, 44, 54, 60, 56, 72, 80, 96, 128, 19, 49, 55, 39, 34, 75, 63, 70, 66, 52, 81, 90, 100, 84, 88, 108, 120, 112, 144, 160, 192, 256
Offset: 0

Views

Author

Gus Wiseman, Apr 30 2020

Keywords

Comments

First differs from A334435 at a(75) = 99, A334435(75) = 98.
A permutation of the positive integers.
This is the Abramowitz-Stegun ordering of integer partitions when the parts are read in the usual (weakly decreasing) order. The case of reversed (weakly increasing) partitions is A185974.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
As a triangle with row lengths A000041, the sequence starts {{1},{2},{3,4},{5,6,8},...}, so offset is 0.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}            32: {1,1,1,1,1}       42: {1,2,4}
    2: {1}           13: {6}               44: {1,1,5}
    3: {2}           25: {3,3}             54: {1,2,2,2}
    4: {1,1}         21: {2,4}             60: {1,1,2,3}
    5: {3}           22: {1,5}             56: {1,1,1,4}
    6: {1,2}         27: {2,2,2}           72: {1,1,1,2,2}
    8: {1,1,1}       30: {1,2,3}           80: {1,1,1,1,3}
    7: {4}           28: {1,1,4}           96: {1,1,1,1,1,2}
    9: {2,2}         36: {1,1,2,2}        128: {1,1,1,1,1,1,1}
   10: {1,3}         40: {1,1,1,3}         19: {8}
   12: {1,1,2}       48: {1,1,1,1,2}       49: {4,4}
   16: {1,1,1,1}     64: {1,1,1,1,1,1}     55: {3,5}
   11: {5}           17: {7}               39: {2,6}
   15: {2,3}         35: {3,4}             34: {1,7}
   14: {1,4}         33: {2,5}             75: {2,3,3}
   18: {1,2,2}       26: {1,6}             63: {2,2,4}
   20: {1,1,3}       45: {2,2,3}           70: {1,3,4}
   24: {1,1,1,2}     50: {1,3,3}           66: {1,2,5}
Triangle begins:
   1
   2
   3   4
   5   6   8
   7   9  10  12  16
  11  15  14  18  20  24  32
  13  25  21  22  27  30  28  36  40  48  64
  17  35  33  26  45  50  42  44  54  60  56  72  80  96 128
This corresponds to the tetrangle:
                  0
                 (1)
               (2)(11)
             (3)(21)(111)
        (4)(22)(31)(211)(1111)
  (5)(32)(41)(221)(311)(2111)(11111)
		

Crossrefs

Row lengths are A000041.
Compositions under the same order are A124734 (triangle).
The version for reversed (weakly increasing) partitions is A185974.
The constructive version is A334301.
Ignoring length gives A334434, or A334437 for reversed partitions.
The dual version (sum/length/revlex) is A334438.
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun (sum/length/lex) order are A036036.
Partitions in increasing-length colexicographic order (sum/length/colex) are A036037.
Graded reverse-lexicographically ordered partitions are A080577.
Sorting reversed partitions by Heinz number gives A112798.
Graded lexicographically ordered partitions are A193073.
Graded Heinz numbers are A215366.
Sorting partitions by Heinz number gives A296150.
Partitions in increasing-length reverse-lexicographic order (sum/length/revlex) are A334439 (not A036037).

Programs

  • Mathematica
    Join@@Table[Times@@Prime/@#&/@Sort[IntegerPartitions[n]],{n,0,8}]

Formula

A001222(a(n)) = A036043(n).

A129129 An irregular triangular array of natural numbers read by rows, with shape sequence A000041(n) related to sequence A060850.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 7, 10, 9, 12, 16, 11, 14, 15, 20, 18, 24, 32, 13, 22, 21, 28, 25, 30, 40, 27, 36, 48, 64, 17, 26, 33, 44, 35, 42, 56, 50, 45, 60, 80, 54, 72, 96, 128, 19, 34, 39, 52, 55, 66, 88, 49, 70, 63, 84, 112, 75, 100, 90, 120, 160, 81, 108, 144, 192, 256
Offset: 0

Views

Author

Alford Arnold, Mar 31 2007

Keywords

Comments

The tree begins (at height n, n >= 0, nodes represent partitions of n)
0: 1
1: 2
2: 3 4
3: 5 6 8
4: 7 10 9 12 16
5: 11 14 15 20 18 24 32
...
and hence differs from A114622.
Ordering [graded reverse lexicographic order] of partitions (positive integer representation) of nonnegative integers, where part of size i [as summand] is mapped to i-th prime [as multiplicand], where the empty partition for 0 yields the empty product, i.e., 1. Permutation of positive integers, since bijection [1-1 and onto map] between the set of all partitions of nonnegative integers and positive integers. - Daniel Forgues, Aug 07 2018
These are all Heinz numbers of integer partitions in graded reverse-lexicographic order, where The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This is the so-called "Mathematica" order (sum/revlex) of partitions (A080577). Partitions in lexicographic order (sum/lex) are A193073, with Heinz numbers A334434. - Gus Wiseman, May 19 2020

Examples

			The array is a tree structure as described by A128628. If a node value has only one branch the value is twice that of its parent node. If it has two branches one is twice that of its parent node but the other is defined as indicated below:
(1) pick an odd number (e.g., 135)
(2) calculate its prime factorization (135 = 5*3*3*3)
(3) note the least prime factor (LPF(135) = 3)
(4) note the index of the LPF (index(3) = 2)
(5) subtract one from the index (2-1 = 1)
(6) calculate the prime associated with the value in step five (prime(1) = 2)
(7) The parent node of the odd number 135 is (2/3)*135 = 90 = A252461(135).
From _Daniel Forgues_, Aug 07 2018: (Start)
Partitions of 4 in graded reverse lexicographic order:
{4}: p_4 = 7;
{3,1}: p_3 * p_1 = 5 * 2 = 10;
{2,2}: p_2 * p_2 = 3^2 = 9;
{2,1,1}: p_2 * p_1 * p_1 = 3 * 2^2 = 12;
{1,1,1,1}: p_1 * p_1 * p_1 * p_1 = 2^4 = 16. (End)
From _Gus Wiseman_, May 19 2020: (Start)
The sequence together with the corresponding partitions begins:
    1: ()            24: (2,1,1,1)         35: (4,3)
    2: (1)           32: (1,1,1,1,1)       42: (4,2,1)
    3: (2)           13: (6)               56: (4,1,1,1)
    4: (1,1)         22: (5,1)             50: (3,3,1)
    5: (3)           21: (4,2)             45: (3,2,2)
    6: (2,1)         28: (4,1,1)           60: (3,2,1,1)
    8: (1,1,1)       25: (3,3)             80: (3,1,1,1,1)
    7: (4)           30: (3,2,1)           54: (2,2,2,1)
   10: (3,1)         40: (3,1,1,1)         72: (2,2,1,1,1)
    9: (2,2)         27: (2,2,2)           96: (2,1,1,1,1,1)
   12: (2,1,1)       36: (2,2,1,1)        128: (1,1,1,1,1,1,1)
   16: (1,1,1,1)     48: (2,1,1,1,1)       19: (8)
   11: (5)           64: (1,1,1,1,1,1)     34: (7,1)
   14: (4,1)         17: (7)               39: (6,2)
   15: (3,2)         26: (6,1)             52: (6,1,1)
   20: (3,1,1)       33: (5,2)             55: (5,3)
   18: (2,2,1)       44: (5,1,1)           66: (5,2,1)
(End)
		

Crossrefs

Cf. A080577 (the partitions), A252461, A114622, A128628, A215366 (sorted rows).
Row lengths are A000041.
Compositions under the same order are A066099.
The opposite version (sum/lex) is A334434.
The length-sensitive version (sum/length/revlex) is A334438.
The version for reversed (weakly increasing) partitions is A334436.
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun order (sum/length/lex) are A036036.
Sum of prime indices is A056239.
Sorting reversed partitions by Heinz number gives A112798.
Partitions in lexicographic order are A193073.
Sorting partitions by Heinz number gives A296150.

Programs

  • Maple
    b:= (n, i)-> `if`(n=0 or i=1, [2^n], [map(x-> x*ithprime(i),
                    b(n-i, min(n-i, i)))[], b(n, i-1)[]]):
    T:= n-> b(n$2)[]:
    seq(T(n), n=0..10);  # Alois P. Heinz, Feb 14 2020
  • Mathematica
    Array[Times @@ # & /@ Prime@ IntegerPartitions@ # &, 9, 0] // Flatten (* Michael De Vlieger, Aug 07 2018 *)
    b[n_, i_] := b[n, i] = If[n == 0 || i == 1, {2^n}, Join[(# Prime[i]&) /@ b[n - i, Min[n - i, i]], b[n, i - 1]]];
    T[n_] := b[n, n];
    T /@ Range[0, 10] // Flatten (* Jean-François Alcover, May 21 2021, after Alois P. Heinz *)

Formula

From Gus Wiseman, May 19 2020: (Start)
A001222(a(n)) = A238966(n).
A001221(a(n)) = A115623(n).
A056239(a(n)) = A036042(n).
A061395(a(n)) = A331581(n).
(End)

A334302 Irregular triangle read by rows where row k is the k-th reversed integer partition, if reversed partitions are sorted first by sum, then by length, and finally reverse-lexicographically.

Original entry on oeis.org

1, 2, 1, 1, 3, 1, 2, 1, 1, 1, 4, 2, 2, 1, 3, 1, 1, 2, 1, 1, 1, 1, 5, 2, 3, 1, 4, 1, 2, 2, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 6, 3, 3, 2, 4, 1, 5, 2, 2, 2, 1, 2, 3, 1, 1, 4, 1, 1, 2, 2, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 7, 3, 4, 2, 5, 1, 6, 2, 2, 3
Offset: 0

Views

Author

Gus Wiseman, Apr 30 2020

Keywords

Examples

			The sequence of all reversed partitions begins:
  ()         (1,4)        (1,1,1,1,2)
  (1)        (1,2,2)      (1,1,1,1,1,1)
  (2)        (1,1,3)      (7)
  (1,1)      (1,1,1,2)    (3,4)
  (3)        (1,1,1,1,1)  (2,5)
  (1,2)      (6)          (1,6)
  (1,1,1)    (3,3)        (2,2,3)
  (4)        (2,4)        (1,3,3)
  (2,2)      (1,5)        (1,2,4)
  (1,3)      (2,2,2)      (1,1,5)
  (1,1,2)    (1,2,3)      (1,2,2,2)
  (1,1,1,1)  (1,1,4)      (1,1,2,3)
  (5)        (1,1,2,2)    (1,1,1,4)
  (2,3)      (1,1,1,3)    (1,1,1,2,2)
This sequence can also be interpreted as the following triangle, whose n-th row is itself a finite triangle with A000041(n) rows.
                            0
                           (1)
                        (2) (1,1)
                    (3) (1,2) (1,1,1)
            (4) (2,2) (1,3) (1,1,2) (1,1,1,1)
  (5) (2,3) (1,4) (1,2,2) (1,1,3) (1,1,1,2) (1,1,1,1,1)
Showing partitions as their Heinz numbers (see A334435) gives:
   1
   2
   3   4
   5   6   8
   7   9  10  12  16
  11  15  14  18  20  24  32
  13  25  21  22  27  30  28  36  40  48  64
  17  35  33  26  45  50  42  44  54  60  56  72  80  96 128
		

Crossrefs

Row lengths are A036043.
Lexicographically ordered reversed partitions are A026791.
The dual ordering (sum/length/lex) of reversed partitions is A036036.
Reverse-lexicographically ordered partitions are A080577.
Sorting reversed partitions by Heinz number gives A112798.
Lexicographically ordered partitions are A193073.
Graded Heinz numbers are A215366.
Ignoring length gives A228531.
Sorting partitions by Heinz number gives A296150.
The version for compositions is A296774.
The dual ordering (sum/length/lex) of non-reversed partitions is A334301.
Taking Heinz numbers gives A334435.
The version for regular (non-reversed) partitions is A334439 (not A036037).

Programs

  • Mathematica
    revlensort[f_,c_]:=If[Length[f]!=Length[c],Length[f]
    				

A228531 Triangle read by rows in which row n lists the partitions of n in reverse lexicographic order.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Aug 30 2013

Keywords

Comments

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 (list-)reversed lexicographic; see examples. [Joerg Arndt, Sep 03 2013]
Also compositions in the triangle of A066099 that are in nondecreasing order.
The equivalent sequence for compositions (ordered partitions) is A066099.
Row n has length A006128(n).
Row sums give A066186.

Examples

			Illustration of initial terms:
---------------------------------
.                    Ordered
n  j     Diagram     partition
---------------------------------
.              _
1  1          |_|    1;
.            _ _
2  1        |  _|    2,
2  2        |_|_|    1, 1;
.          _ _ _
3  1      |  _ _|    3,
3  2      | |  _|    1, 2,
3  3      |_|_|_|    1, 1, 1;
.        _ _ _ _
4  1    |    _ _|    4,
4  2    |  _|_ _|    2, 2,
4  3    | |  _ _|    1, 3,
4  4    | | |  _|    1, 1, 2,
4  5    |_|_|_|_|    1, 1, 1, 1;
.
Triangle begins:
[1];
[2],[1,1];
[3],[1,2],[1,1,1];
[4],[2,2],[1,3],[1,1,2],[1,1,1,1];
[5],[2,3],[1,4],[1,2,2],[1,1,3],[1,1,1,2],[1,1,1,1,1];
[6],[3,3],[2,4],[2,2,2],[1,5],[1,2,3],[1,1,4],[1,1,2,2],[1,1,1,3],[1,1,1,1,2],[1,1,1,1,1,1];
[7],[3,4],[2,5],[2,2,3],[1,6],[1,3,3],[1,2,4],[1,2,2,2],[1,1,5],[1,1,2,3],[1,1,1,4],[1,1,1,2,2],[1,1,1,1,3],[1,1,1,1,1,2],[1,1,1,1,1,1,1];
...
		

Crossrefs

Row lengths are A000041.
Partition sums are A036042.
Partition minima are A182715.
Partition lengths are A333486.
The lexicographic version (sum/lex) is A026791.
Compositions under the same order (sum/revlex) are A066099.
The colexicographic version (sum/colex) is A080576.
The version for non-reversed partitions is A080577.
The length-sensitive version (sum/length/revlex) is A334302.
The Heinz numbers of these partitions are A334436.
Partitions in colexicographic order (sum/colex) are A211992.
Partitions in lexicographic order (sum/lex) are A193073.

Programs

  • Mathematica
    revlexsort[f_,c_]:=OrderedQ[PadRight[{c,f}]];
    Join@@Table[Sort[Reverse/@IntegerPartitions[n],revlexsort],{n,0,8}] (* Gus Wiseman, May 23 2020 *)

A080576 Triangle in which n-th row lists all partitions of n, in graded reflected lexicographic order.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 3, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 1, 1, 3, 2, 3, 1, 4, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, 3, 1, 2, 3, 3, 3, 1, 1, 4, 2, 4, 1, 5, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 2, 2, 2
Offset: 1

Views

Author

N. J. A. Sloane, Mar 23 2003

Keywords

Comments

The graded reflected lexicographic ordering of the partitions is used by Maple. - Daniel Forgues, Jan 19 2011
Each partition here is the conjugate of the corresponding partition in Abramowitz and Stegun order (A036036). The partitions are in the reverse of the order of the partitions in Mathematica order (A080577). - Franklin T. Adams-Watters, Oct 18 2006
Reversing all partitions gives A193073 (the non-reflected version). The version for reversed (weakly increasing) partitions is A211992. Reversed partitions in Abramowitz-Stegun order (sum/length/lex) are A036036. - Gus Wiseman, May 20 2020
Also reversed integer partitions in colexicographic order, cf. A228531. - Gus Wiseman, May 31 2020

Examples

			First five rows are:
[[1]]
[[1, 1], [2]]
[[1, 1, 1], [1, 2], [3]]
[[1, 1, 1, 1], [1, 1, 2], [2, 2], [1, 3], [4]]
[[1, 1, 1, 1, 1], [1, 1, 1, 2], [1, 2, 2], [1, 1, 3], [2, 3], [1, 4], [5]]
From _Gus Wiseman_, May 20 2020: (Start)
The sequence of all reversed partitions begins:
  ()       (122)     (15)       (25)
  (1)      (113)     (6)        (16)
  (11)     (23)      (1111111)  (7)
  (2)      (14)      (111112)   (11111111)
  (111)    (5)       (11122)    (1111112)
  (12)     (111111)  (1222)     (111122)
  (3)      (11112)   (11113)    (11222)
  (1111)   (1122)    (1123)     (2222)
  (112)    (222)     (223)      (111113)
  (22)     (1113)    (133)      (11123)
  (13)     (123)     (1114)     (1223)
  (4)      (33)      (124)      (1133)
  (11111)  (114)     (34)       (233)
  (1112)   (24)      (115)      (11114)
(End)
		

Crossrefs

See A080577 for the Mathematica (graded reverse lexicographic) ordering.
See A036036 for the Hindenburg (graded reflected colexicographic) ordering (listed in the Abramowitz and Stegun Handbook).
See A036037 for the graded colexicographic ordering.
See A193073 for the graded lexicographic ordering. - M. F. Hasler, Jul 16 2011
See A228100 for the Fenner-Loizou (binary tree) ordering.
Row n has A000041(n) partitions.
Taking colexicographic instead of lexicographic gives A026791.
Lengths of these partitions appear to be A049085.
Reversing all partitions gives A193073 (the non-reflected version).
The version for reversed (weakly increasing) partitions is A211992.
The generalization to compositions is A228525.
The Heinz numbers of these partitions are A334434.

Programs

  • Maple
    with(combinat); partition(6);
  • Mathematica
    row[n_] := Flatten[Reverse /@ Reverse[SplitBy[Reverse /@ IntegerPartitions[n], Length]], 1]; Array[row, 7] // Flatten (* Jean-François Alcover, Dec 05 2016 *)
    lexsort[f_,c_]:=OrderedQ[PadRight[{f,c}]];
    Reverse/@Join@@Table[Sort[IntegerPartitions[n],lexsort],{n,0,8}] (* Gus Wiseman, May 20 2020 *)

Extensions

Edited by Daniel Forgues, Jan 21 2011

A334435 Heinz numbers of all reversed integer partitions sorted first by sum, then by length, and finally reverse-lexicographically.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 7, 9, 10, 12, 16, 11, 15, 14, 18, 20, 24, 32, 13, 25, 21, 22, 27, 30, 28, 36, 40, 48, 64, 17, 35, 33, 26, 45, 50, 42, 44, 54, 60, 56, 72, 80, 96, 128, 19, 49, 55, 39, 34, 75, 63, 70, 66, 52, 81, 90, 100, 84, 88, 108, 120, 112, 144, 160, 192, 256
Offset: 0

Views

Author

Gus Wiseman, May 02 2020

Keywords

Comments

First differs from A334433 at a(75) = 99, A334433(75) = 98.
First differs from A334436 at a(22) = 22, A334436(22) = 27.
A permutation of the positive integers.
Reversed integer partitions are finite weakly increasing sequences of positive integers.
This is the Abramowitz-Stegun ordering of reversed partitions (A185974) except that the finer order is reverse-lexicographic instead of lexicographic. The version for non-reversed partitions is A334438.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
As a triangle with row lengths A000041, the sequence starts {{1},{2},{3,4},{5,6,8},...}, so offset is 0.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}            32: {1,1,1,1,1}       42: {1,2,4}
    2: {1}           13: {6}               44: {1,1,5}
    3: {2}           25: {3,3}             54: {1,2,2,2}
    4: {1,1}         21: {2,4}             60: {1,1,2,3}
    5: {3}           22: {1,5}             56: {1,1,1,4}
    6: {1,2}         27: {2,2,2}           72: {1,1,1,2,2}
    8: {1,1,1}       30: {1,2,3}           80: {1,1,1,1,3}
    7: {4}           28: {1,1,4}           96: {1,1,1,1,1,2}
    9: {2,2}         36: {1,1,2,2}        128: {1,1,1,1,1,1,1}
   10: {1,3}         40: {1,1,1,3}         19: {8}
   12: {1,1,2}       48: {1,1,1,1,2}       49: {4,4}
   16: {1,1,1,1}     64: {1,1,1,1,1,1}     55: {3,5}
   11: {5}           17: {7}               39: {2,6}
   15: {2,3}         35: {3,4}             34: {1,7}
   14: {1,4}         33: {2,5}             75: {2,3,3}
   18: {1,2,2}       26: {1,6}             63: {2,2,4}
   20: {1,1,3}       45: {2,2,3}           70: {1,3,4}
   24: {1,1,1,2}     50: {1,3,3}           66: {1,2,5}
Triangle begins:
   1
   2
   3   4
   5   6   8
   7   9  10  12  16
  11  15  14  18  20  24  32
  13  25  21  22  27  30  28  36  40  48  64
  17  35  33  26  45  50  42  44  54  60  56  72  80  96 128
This corresponds to the following tetrangle:
                  0
                 (1)
               (2)(11)
             (3)(12)(111)
        (4)(22)(13)(112)(1111)
  (5)(23)(14)(122)(113)(1112)(11111)
		

Crossrefs

Row lengths are A000041.
The dual version (sum/length/lex) is A185974.
Compositions under the same order are A296774 (triangle).
The constructive version is A334302.
Ignoring length gives A334436.
The version for non-reversed partitions is A334438.
Partitions in this order (sum/length/revlex) are A334439.
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun (sum/length/lex) order are A036036.
Partitions in increasing-length colex order (sum/length/colex) are A036037.
Reverse-lexicographically ordered partitions are A080577.
Sorting reversed partitions by Heinz number gives A112798.
Graded lexicographically ordered partitions are A193073.
Partitions in colexicographic (sum/colex) order are A211992.
Graded Heinz numbers are given by A215366.
Sorting partitions by Heinz number gives A296150.

Programs

  • Mathematica
    revlensort[f_,c_]:=If[Length[f]!=Length[c],Length[f]
    				

Formula

A001222(a(n)) = A036043(n).

A228100 Triangle in which n-th row lists all partitions of n, such that partitions of n into m parts appear in lexicographic order previous to the partitions of n into k parts if k < m. (Fenner-Loizou tree.)

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 1, 1, 1, 2, 1, 1, 2, 2, 3, 1, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 3, 1, 1, 3, 2, 4, 1, 5, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 3, 1, 1, 1, 2, 2, 2, 3, 2, 1, 4, 1, 1, 3, 3, 4, 2, 5, 1, 6, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1
Offset: 1

Views

Author

Peter Luschny, Aug 10 2013

Keywords

Comments

First differs from A193073 at a(58). - Omar E. Pol, Sep 22 2013
The partition lengths appear to be A331581. - Gus Wiseman, May 12 2020

Examples

			The sixth row is:
[1, 1, 1, 1, 1, 1]
[2, 1, 1, 1, 1]
[2, 2, 1, 1]
[3, 1, 1, 1]
[2, 2, 2]
[3, 2, 1]
[4, 1, 1]
[3, 3]
[4, 2]
[5, 1]
[6]
From _Gus Wiseman_, May 10 2020: (Start)
The triangle with partitions shown as Heinz numbers (A333485) begins:
    1
    2
    4   3
    8   6   5
   16  12   9  10   7
   32  24  18  20  15  14  11
   64  48  36  40  27  30  28  25  21  22  13
  128  96  72  80  54  60  56  45  50  42  44  35  33  26  17
(End)
		

References

  • T. I. Fenner, G. Loizou: A binary tree representation and related algorithms for generating integer partitions. The Computer J. 23(4), 332-337 (1980)
  • D. E. Knuth: The Art of Computer Programming. Generating all combinations and partitions, vol. 4, fasc. 3, 7.2.1.4, exercise 10.
  • K. Yamanaka, Y. Otachi, Sh. Nakano: Efficient enumeration of ordered trees with k leaves. In: WALCOM: Algorithms and Computation, Lecture Notes in Computer Science Volume 5431, 141-150 (2009)
  • S. Zaks, D. Richards: Generating trees and other combinatorial objects lexicographically. SIAM J. Comput. 8(1), 73-81 (1979)
  • A. Zoghbi, I. Stojmenovic': Fast algorithms for generating integer partitions. Int. J. Comput. Math. 70, 319-332 (1998)

Crossrefs

See A036036 for the Hindenburg (graded reflected colexicographic) ordering.
See A036037 for the graded colexicographic ordering.
See A080576 for the Maple (graded reflected lexicographic) ordering.
See A080577 for the Mathematica (graded reverse lexicographic) ordering.
See A182937 the Fenner-Loizou (binary tree in preorder traversal) ordering.
See A193073 for the graded lexicographic ordering.
The version for compositions is A296773.
Taking Heinz numbers gives A333485.
Lexicographically ordered reversed partitions are A026791.
Sorting partitions by Heinz number gives A296150, or A112798 for reversed partitions.
Reversed partitions under the (sum/length/revlex) ordering are A334302.

Programs

  • Maple
    b:= proc(n, i) b(n, i):= `if`(n=0 or i=1, [[1$n]], [b(n, i-1)[],
          `if`(i>n, [], map(x-> [i, x[]], b(n-i, i)))[]])
        end:
    T:= n-> map(h-> h[], sort(b(n$2), proc(x, y) local i;
            if nops(x)<>nops(y) then return nops(x)>nops(y) else
            for i to nops(x) do if x[i]<>y[i] then return x[i]Alois P. Heinz, Aug 13 2013
  • Mathematica
    row[n_] := Flatten[Reverse[Sort[#]]& /@ SplitBy[Sort[IntegerPartitions[n] ], Length], 1] // Reverse; Array[row, 8] // Flatten (* Jean-François Alcover, Dec 05 2016 *)
    ralensort[f_,c_]:=If[Length[f]!=Length[c],Length[f]>Length[c],OrderedQ[{f,c}]];
    Join@@Table[Sort[IntegerPartitions[n],ralensort],{n,0,8}] (* Gus Wiseman, May 10 2020 *)
  • Sage
    from collections import deque
    def GeneratePartitions(n, visit):
        p = ([], 0, n)
        queue = deque()
        queue.append(p)
        visit(p)
        while len(queue) > 0 :
            (phead, pheadLen, pnum1s) = queue.popleft()
            if pnum1s != 1 :
                head = phead[:pheadLen] + [2]
                q = (head, pheadLen + 1, pnum1s - 2)
                if 1 <= q[2] : queue.append(q)
                visit(q)
            if pheadLen == 1 or (pheadLen > 1 and \
                          (phead[pheadLen - 1] != phead[pheadLen - 2])) :
                head = phead[:pheadLen]
                head[pheadLen - 1] += 1
                q = (head, pheadLen, pnum1s - 1)
                if 1 <= q[2] : queue.append(q)
                visit(q)
    def visit(q): print(q[0] + [1 for i in range(q[2])])
    for n in (1..7): GeneratePartitions(n, visit)

A334438 Heinz numbers of all integer partitions sorted first by sum, then by length, and finally reverse-lexicographically.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 7, 10, 9, 12, 16, 11, 14, 15, 20, 18, 24, 32, 13, 22, 21, 25, 28, 30, 27, 40, 36, 48, 64, 17, 26, 33, 35, 44, 42, 50, 45, 56, 60, 54, 80, 72, 96, 128, 19, 34, 39, 55, 49, 52, 66, 70, 63, 75, 88, 84, 100, 90, 81, 112, 120, 108, 160, 144, 192, 256
Offset: 0

Views

Author

Gus Wiseman, May 03 2020

Keywords

Comments

First differs from A185974 shifted left once at a(76) = 99, A185974(75) = 98.
A permutation of the positive integers.
This is the Abramowitz-Stegun ordering of integer partitions (A334433) except that the finer order is reverse-lexicographic instead of lexicographic. The version for reversed partitions is A334435.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
As a triangle with row lengths A000041, the sequence starts {{1},{2},{3,4},{5,6,8},...}, so offset is 0.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}            32: {1,1,1,1,1}       50: {1,3,3}
    2: {1}           13: {6}               45: {2,2,3}
    3: {2}           22: {1,5}             56: {1,1,1,4}
    4: {1,1}         21: {2,4}             60: {1,1,2,3}
    5: {3}           25: {3,3}             54: {1,2,2,2}
    6: {1,2}         28: {1,1,4}           80: {1,1,1,1,3}
    8: {1,1,1}       30: {1,2,3}           72: {1,1,1,2,2}
    7: {4}           27: {2,2,2}           96: {1,1,1,1,1,2}
   10: {1,3}         40: {1,1,1,3}        128: {1,1,1,1,1,1,1}
    9: {2,2}         36: {1,1,2,2}         19: {8}
   12: {1,1,2}       48: {1,1,1,1,2}       34: {1,7}
   16: {1,1,1,1}     64: {1,1,1,1,1,1}     39: {2,6}
   11: {5}           17: {7}               55: {3,5}
   14: {1,4}         26: {1,6}             49: {4,4}
   15: {2,3}         33: {2,5}             52: {1,1,6}
   20: {1,1,3}       35: {3,4}             66: {1,2,5}
   18: {1,2,2}       44: {1,1,5}           70: {1,3,4}
   24: {1,1,1,2}     42: {1,2,4}           63: {2,2,4}
Triangle begins:
   1
   2
   3   4
   5   6   8
   7  10   9  12  16
  11  14  15  20  18  24  32
  13  22  21  25  28  30  27  40  36  48  64
  17  26  33  35  44  42  50  45  56  60  54  80  72  96 128
This corresponds to the following tetrangle:
                  0
                 (1)
               (2)(11)
             (3)(21)(111)
        (4)(31)(22)(211)(1111)
  (5)(41)(32)(311)(221)(2111)(11111)
		

Crossrefs

Row lengths are A000041.
Ignoring length gives A129129.
Compositions under the same order are A296774 (triangle).
The dual version (sum/length/lex) is A334433.
The version for reversed partitions is A334435.
The constructive version is A334439 (triangle).
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun (sum/length/lex) order are A036036.
Partitions in increasing-length colexicographic order (sum/length/colex) are A036037.
Reverse-lexicographically ordered partitions are A080577.
Sorting reversed partitions by Heinz number gives A112798.
Graded lexicographically ordered partitions are A193073.
Partitions in colexicographic order (sum/colex) are A211992.
Graded Heinz numbers are given by A215366.
Sorting partitions by Heinz number gives A296150.

Programs

  • Mathematica
    revlensort[f_,c_]:=If[Length[f]!=Length[c],Length[f]
    				

Formula

A001221(a(n)) = A103921(n).
A001222(a(n)) = A036043(n).

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

Views

Author

Keywords

Comments

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

Examples

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

References

  • 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.

Crossrefs

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.

Programs

  • Maple
    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
  • Mathematica
    Table[If[n==0,{0},Max/@Sort[Reverse/@IntegerPartitions[n]]],{n,0,8}] (* Gus Wiseman, May 21 2020 *)
  • PARI
    A049085(n,k)=if(n,partitions(n)[k][1],0) \\ M. F. Hasler, Jun 06 2018

Extensions

More terms from Wolfdieter Lang, Apr 28 2005
a(0) inserted by Franklin T. Adams-Watters, Jun 24 2014

A103921 Irregular triangle T(n,m) (n >= 0) read by rows: row n lists numbers of distinct parts of partitions of n in Abramowitz-Stegun order.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 1, 2, 3, 1, 2, 2, 2, 1, 1, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 1, 1, 2, 2, 2, 1, 2, 3, 3, 2, 2, 2, 3, 2, 3, 1, 2, 3, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 3, 3, 2, 2, 3, 1, 2, 3, 3, 3, 3, 2, 2, 3, 2, 3, 2, 2, 3, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 1, 2, 3
Offset: 0

Views

Author

Wolfdieter Lang, Mar 24 2005

Keywords

Comments

T(n, m) is the number of distinct parts of the m-th partition of n in Abramowitz-Stegun order; n >= 0, m = 1..p(n) = A000041(n).
The row length sequence of this table is p(n)=A000041(n) (number of partitions).
In order to count distinct parts of a partition consider the partition as a set instead of a multiset. E.g., n=6: read [1,1,1,3] as {1,3} and count the elements, here 2.
Rows are the same as the rows of A115623, but in reverse order.
From Wolfdieter Lang, Mar 17 2011: (Start)
The number of 1s in row number n, n >= 1, is tau(n)=A000005(n), the number of divisors of n.
For the proof read off the divisors d(n,j), j=1..tau(n), from row number n of table A027750, and translate them to the tau(n) partitions d(n,1)^(n/d(n,1)), d(n,2)^(n/d(n,2)),..., d(n,tau(n))^(n/d(n,tau(n))).
See a comment by Giovanni Resta under A000005. (End)
From Gus Wiseman, May 20 2020: (Start)
The name is correct if integer partitions are read in reverse, so that the parts are weakly increasing. The non-reversed version is A334440.
Also the number of distinct parts of the n-th integer partition in lexicographic order (A193073).
Differs from the number of distinct parts in the n-th integer partition in (sum/length/revlex) order (A334439). For example, (6,2,2) has two distinct elements, while (1,4,5) has three.
(End)

Examples

			Triangle starts:
  0,
  1,
  1, 1,
  1, 2, 1,
  1, 2, 1, 2, 1,
  1, 2, 2, 2, 2, 2, 1,
  1, 2, 2, 1, 2, 3, 1, 2, 2, 2, 1,
  1, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 1,
  1, 2, 2, 2, 1, 2, 3, 3, 2, 2, 2, 3, 2, 3, 1, 2, 3, 2, 2, 2, 2, 1,
  1, 2, 2, 2, 2, ...
a(5,4)=2 from the fourth partition of 5 in the mentioned order, i.e., (1^2,3), which has two distinct parts, namely 1 and 3.
		

Crossrefs

Row sums are A000070.
Row lengths are A000041.
The lengths of these partitions are A036043.
The maxima of these partitions are A049085.
The version for non-reversed partitions is A334440.
The version for colex instead of lex is (also) A334440.
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun order are A036036.
Reverse-lexicographically ordered partitions are A080577.
Compositions in Abramowitz-Stegun order are A124734.

Programs

  • Mathematica
    Join@@Table[Length/@Union/@Sort[Reverse/@IntegerPartitions[n]],{n,0,8}] (* Gus Wiseman, May 20 2020 *)

Formula

a(n) = A001221(A185974(n)). - Gus Wiseman, May 20 2020

Extensions

Edited by Franklin T. Adams-Watters, May 29 2006
Previous Showing 11-20 of 50 results. Next