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.

Showing 1-10 of 22 results. Next

A080577 Triangle in which n-th row lists all partitions of n, in graded reverse lexicographic ordering.

Original entry on oeis.org

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

Views

Author

N. J. A. Sloane, Mar 23 2003

Keywords

Comments

This is the "Mathematica" ordering of the partitions, referenced in numerous other sequences. The partitions of each integer are in reverse order of the conjugates of the partitions in Abramowitz and Stegun order (A036036). They are in the reverse of the order of the partitions in Maple order (A080576). - Franklin T. Adams-Watters, Oct 18 2006
The graded reverse lexicographic ordering of the partitions is often referred to as the "Canonical" ordering of the partitions. - Daniel Forgues, Jan 21 2011
Also the "MAGMA" ordering of the partitions. - Jason Kimberley, Oct 28 2011
Also an intuitive ordering described but not formalized in [Hardy and Wright] the first four editions of which precede [Abramowitz and Stegun]. - L. Edson Jeffery, Aug 03 2013
Also the "Sage" ordering of the partitions. - Peter Luschny, Aug 12 2013
While this is the order used for the constructive function "IntegerPartitions", it is different from Mathematica's canonical ordering of finite expressions, the latter giving A036036 if parts of partitions are read in reversed (weakly increasing) order, or A334301 if in the usual (weakly decreasing) order. - Gus Wiseman, May 08 2020

Examples

			First five rows are:
  {{1}}
  {{2}, {1, 1}}
  {{3}, {2, 1}, {1, 1, 1}}
  {{4}, {3, 1}, {2, 2}, {2, 1, 1}, {1, 1, 1, 1}}
  {{5}, {4, 1}, {3, 2}, {3, 1, 1}, {2, 2, 1}, {2, 1, 1, 1}, {1, 1, 1, 1, 1}}
Up to the fifth row, this is exactly the same as the colexicographic ordering A036037. The first row which differs is the sixth one, which reads ((6), (5,1), (4,2), (4,1,1), (3,3), (3,2,1), (3,1,1,1), (2,2,2), (2,2,1,1), (2,1,1,1,1), (1,1,1,1,1,1)). - _M. F. Hasler_, Jan 23 2020
From _Gus Wiseman_, May 08 2020: (Start)
The sequence of all partitions begins:
  ()         (3,2)        (2,1,1,1,1)    (2,2,1,1,1)
  (1)        (3,1,1)      (1,1,1,1,1,1)  (2,1,1,1,1,1)
  (2)        (2,2,1)      (7)            (1,1,1,1,1,1,1)
  (1,1)      (2,1,1,1)    (6,1)          (8)
  (3)        (1,1,1,1,1)  (5,2)          (7,1)
  (2,1)      (6)          (5,1,1)        (6,2)
  (1,1,1)    (5,1)        (4,3)          (6,1,1)
  (4)        (4,2)        (4,2,1)        (5,3)
  (3,1)      (4,1,1)      (4,1,1,1)      (5,2,1)
  (2,2)      (3,3)        (3,3,1)        (5,1,1,1)
  (2,1,1)    (3,2,1)      (3,2,2)        (4,4)
  (1,1,1,1)  (3,1,1,1)    (3,2,1,1)      (4,3,1)
  (5)        (2,2,2)      (3,1,1,1,1)    (4,2,2)
  (4,1)      (2,2,1,1)    (2,2,2,1)      (4,2,1,1)
The triangle with partitions shown as Heinz numbers (A129129) begins:
   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
(End)
		

References

  • G. H. Hardy and E. M. Wright, An Introduction to the Theory of Numbers, Clarendon Press, Oxford, Fifth edition, 1979, p. 273.
  • James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, page 287.

Crossrefs

See A080576 Maple (graded reflected lexicographic) ordering.
See A036036 for the Hindenburg (graded reflected colexicographic) ordering (listed in the Abramowitz and Stegun Handbook).
See A036037 for graded colexicographic ordering.
See A228100 for the Fenner-Loizou (binary tree) ordering.
Differs from A036037 at a(48).
See A322761 for a compressed version.
Lexicographically ordered reversed partitions are A026791.
Reverse-colexicographically ordered partitions are A026792.
Compositions under this ordering are A066099.
Distinct parts of these partitions are counted by A115623.
Taking Heinz numbers gives A129129.
Lexicographically ordered partitions are A193073.
Colexicographically ordered partitions are A211992.
Reading partitions in reverse (weakly increasing) order gives A228531.
Lengths of these partitions are A238966.
Sorting partitions by Heinz number gives A296150.
The maxima of these partitions are A331581.
The length-sensitive version is A334439.

Programs

  • Magma
    &cat[&cat Partitions(n):n in[1..7]]; // Jason Kimberley, Oct 28 2011
    
  • Maple
    b:= (n, i)-> `if`(n=0 or i=1, [[1$n]], [map(x->
        [i, x[]], b(n-i, min(n-i, i)))[], b(n, i-1)[]]):
    T:= n-> map(x-> x[], b(n$2))[]:
    seq(T(n), n=1..8);  # Alois P. Heinz, Jan 29 2020
  • Mathematica
    <Jean-François Alcover, Dec 10 2012 *)
    revlexsort[f_,c_]:=OrderedQ[PadRight[{c,f}]];
    Join@@Table[Sort[IntegerPartitions[n],revlexsort],{n,0,8}] (* Gus Wiseman, May 08 2020 *)
  • PARI
    A080577_row(n)={vecsort(apply(t->Vecrev(t),partitions(n)),,4)} \\ M. F. Hasler, Jan 21 2020
  • Sage
    L = []
    for n in range(8): L += list(Partitions(n))
    flatten(L)   # Peter Luschny, Aug 12 2013
    

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

Views

Author

Keywords

Comments

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

Examples

			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)
		

Crossrefs

Row lengths are given in A006128.
Partition lengths are in A193173.
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.

Programs

  • Maple
    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
  • Mathematica
    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 *)
  • Python
    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

A036043 Irregular triangle read by rows: row n (n >= 0) gives number of parts in all partitions of n (in Abramowitz and Stegun order).

Original entry on oeis.org

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

Views

Author

Keywords

Comments

The sequence of row lengths of this array is p(n) = A000041(n) (partition numbers).
The sequence of row sums is A006128(n).
The number of times k appears in row n is A008284(n,k). - Franklin T. Adams-Watters, Jan 12 2006
The next level (row) gets created from each node by adding one or two more nodes. If a single node is added, its value is one more than the value of its parent. If two nodes are added, the first is equal in value to the parent and the value of the second is one more than the value of the parent. See A128628. - Alford Arnold, Mar 27 2007
The 1's in the (flattened) sequence mark the start of a new row, the value that precedes the 1 equals the row number minus one. (I.e., the 1 preceded by a 0 is the start of row 1, the 1 preceded by a 6 is the start of row 7, etc.) - M. F. Hasler, Jun 06 2018
Also the maximum part in the n-th partition in graded lexicographic order (sum/lex, A193073). - Gus Wiseman, May 24 2020

Examples

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

References

  • Abramowitz and Stegun, Handbook, p. 831, column labeled "m".

Crossrefs

Row lengths are A000041.
Partition lengths of A036036 and A334301.
The version not sorted by length is A049085.
The generalization to compositions is A124736.
The Heinz number of the same partition is A334433.
The number of distinct elements in the same partition is A334440.
The maximum part of the same partition is A334441.
Lexicographically ordered reversed partitions are A026791.
Lexicographically ordered partitions are A193073.

Programs

  • Maple
    with(combinat): nmax:=9: for n from 1 to nmax do y(n):=numbpart(n): P(n):=sort(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, revised Nov 29 2012
    # alternative implementation based on A119441 by R. J. Mathar, Jul 12 2013
    A036043 := proc(n,k)
        local pi;
        pi := ASPrts(n)[k] ;
        nops(pi) ;
    end proc:
    for n from 1 to 10 do
        for k from 1 to A000041(n) do
            printf("%d,",A036043(n,k)) ;
        end do:
        printf("\n") ;
    end do:
  • Mathematica
    Table[Length/@Sort[IntegerPartitions[n]],{n,0,30}] (* Gus Wiseman, May 22 2020 *)
  • PARI
    A036043(n,k)=#partitions(n)[k] \\ M. F. Hasler, Jun 06 2018
    
  • SageMath
    def A036043_row(n):
        return [len(p) for k in (0..n) for p in Partitions(n, length=k)]
    for n in (0..10): print(A036043_row(n)) # Peter Luschny, Nov 02 2019

Formula

a(n) = A001222(A334433(n)). - Gus Wiseman, May 22 2020

Extensions

More terms from Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Jun 17 2001
a(0) inserted by Franklin T. Adams-Watters, Jun 24 2014
Incorrect formula deleted by M. F. Hasler, Jun 06 2018

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)

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

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

A238966 The number of distinct primes in divisor lattice in canonical order.

Original entry on oeis.org

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

Views

Author

Sung-Hyuk Cha, Mar 07 2014

Keywords

Comments

After a(0) = 0, this appears to be the same as A128628. - Gus Wiseman, May 24 2020
Also the number of parts in the n-th integer partition in graded reverse-lexicographic order (A080577). - Gus Wiseman, May 24 2020

Examples

			Triangle T(n,k) begins:
  0;
  1;
  1, 2;
  1, 2, 3;
  1, 2, 2, 3, 4;
  1, 2, 2, 3, 3, 4, 5;
  1, 2, 2, 3, 2, 3, 4, 3, 4, 5, 6;
  ...
		

Crossrefs

Row sums are A006128.
Cf. A036043 in canonical order.
Row lengths are A000041.
The generalization to compositions is A000120.
The sum of the partition is A036042.
The lexicographic version (sum/lex) is A049085.
Partition lengths of A080577.
The partition has A115623 distinct elements.
The Heinz number of the partition is A129129.
The colexicographic version (sum/colex) is A193173.
The maximum of the partition is A331581.
Partitions in lexicographic order (sum/lex) are A193073.
Partitions in colexicographic order (sum/colex) are A211992.

Programs

  • Maple
    o:= proc(n) option remember; nops(ifactors(n)[2]) end:
    b:= (n, i)-> `if`(n=0 or i=1, [[1$n]], [map(x->
        [i, x[]], b(n-i, min(n-i, i)))[], b(n, i-1)[]]):
    T:= n-> map(x-> o(mul(ithprime(i)^x[i], i=1..nops(x))), b(n$2))[]:
    seq(T(n), n=0..9);  # Alois P. Heinz, Mar 26 2020
  • Mathematica
    revlexsort[f_,c_]:=OrderedQ[PadRight[{c,f}]];
    Table[Length/@Sort[IntegerPartitions[n],revlexsort],{n,0,8}] (* Gus Wiseman, May 24 2020 *)
    b[n_, i_] := b[n, i] = If[n == 0 || i == 1, {Table[1, {n}]}, Join[ Prepend[#, i]& /@ b[n - i, Min[n - i, i]], b[n, i - 1]]];
    P[n_] := P[n] = Product[Prime[i]^#[[i]], {i, 1, Length[#]}]& /@ b[n, n];
    T[n_, k_] := PrimeNu[P[n][[k + 1]]];
    Table[T[n, k], {n, 0, 9}, {k, 0, Length[P[n]] - 1}] // Flatten (* Jean-François Alcover, Jan 03 2022, after Alois P. Heinz in A063008 *)
  • PARI
    Row(n)={apply(s->#s, vecsort([Vecrev(p) | p<-partitions(n)], , 4))}
    { for(n=0, 8, print(Row(n))) } \\ Andrew Howroyd, Mar 25 2020

Formula

T(n,k) = A001221(A063008(n,k)). - Andrew Howroyd, Mar 25 2020
a(n) = A001222(A129129(n)). - Gus Wiseman, May 24 2020

Extensions

Offset changed and terms a(50) and beyond from Andrew Howroyd, Mar 25 2020

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

Views

Author

Alois P. Heinz, Jul 17 2011

Keywords

Comments

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.

Examples

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

Crossrefs

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.

Programs

  • Maple
    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);
  • Mathematica
    lexsort[f_,c_]:=OrderedQ[PadRight[{f,c}]];
    Table[Length/@Sort[Reverse/@IntegerPartitions[n],lexsort],{n,0,10}] (* Gus Wiseman, May 22 2020 *)

A331581 Maximum part of the n-th integer partition in graded reverse-lexicographic order (A080577); a(1) = 0.

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, 4, 3, 3, 3, 2, 2, 2, 1, 7, 6, 5, 5, 4, 4, 4, 3, 3, 3, 3, 2, 2, 2, 1, 8, 7, 6, 6, 5, 5, 5, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 2, 2, 2, 2, 1, 9, 8, 7, 7, 6, 6, 6, 5, 5, 5, 5, 5, 4, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 1
Offset: 1

Views

Author

Gus Wiseman, May 08 2020

Keywords

Comments

The first partition ranked by A080577 is (); there is no zeroth partition.

Examples

			The sequence of all partitions in graded reverse-lexicographic order begins as follows. The terms are the initial parts.
  ()         (3,2)        (2,1,1,1,1)    (2,2,1,1,1)
  (1)        (3,1,1)      (1,1,1,1,1,1)  (2,1,1,1,1,1)
  (2)        (2,2,1)      (7)            (1,1,1,1,1,1,1)
  (1,1)      (2,1,1,1)    (6,1)          (8)
  (3)        (1,1,1,1,1)  (5,2)          (7,1)
  (2,1)      (6)          (5,1,1)        (6,2)
  (1,1,1)    (5,1)        (4,3)          (6,1,1)
  (4)        (4,2)        (4,2,1)        (5,3)
  (3,1)      (4,1,1)      (4,1,1,1)      (5,2,1)
  (2,2)      (3,3)        (3,3,1)        (5,1,1,1)
  (2,1,1)    (3,2,1)      (3,2,2)        (4,4)
  (1,1,1,1)  (3,1,1,1)    (3,2,1,1)      (4,3,1)
  (5)        (2,2,2)      (3,1,1,1,1)    (4,2,2)
  (4,1)      (2,2,1,1)    (2,2,2,1)      (4,2,1,1)
Triangle begins:
  0
  1
  2 1
  3 2 1
  4 3 2 2 1
  5 4 3 3 2 2 1
  6 5 4 4 3 3 3 2 2 2 1
  7 6 5 5 4 4 4 3 3 3 3 2 2 2 1
  8 7 6 6 5 5 5 4 4 4 4 4 3 3 3 3 3 2 2 2 2 1
		

Crossrefs

Row lengths are A000041.
Lexicographically ordered reversed partitions are A026791.
Reverse-colexicographically ordered partitions are A026792.
Reversed partitions in Abramowitz-Stegun order (sum/length/lex) are A036036.
The version for compositions is A065120 or A333766.
Reverse-lexicographically ordered partitions are A080577.
Distinct parts of these partitions are counted by A115623.
Lexicographically ordered partitions are A193073.
Colexicographically ordered partitions are A211992.
Lengths of these partitions are A238966.

Programs

  • Mathematica
    revlexsort[f_,c_]:=OrderedQ[PadRight[{c,f}]];
    Prepend[First/@Join@@Table[Sort[IntegerPartitions[n],revlexsort],{n,8}],0]

Formula

a(n) = A061395(A129129(n - 1)).
Showing 1-10 of 22 results. Next