A049085 -id:A049085 - cp's OEIS frontend

A334434 Heinz number of the n-th integer partition in graded lexicographic order.

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

Offset: 0

Gus Wiseman, May 01 2020

A permutation of the positive integers.
This is the graded reverse of the so-called "Mathematica" order (A080577, A129129).
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},{4,3},{8,6,5},...}, so offset is 0.

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

Alois P. Heinz, Rows n = 0..28, flattened
OEIS Wiki, Orderings of partitions
Wikiversity, Lexicographic and colexicographic order

Row lengths are A000041.
The dual version (sum/revlex) is A129129.
The constructive version is A193073.
Compositions under the same order are A228351.
The length-sensitive version is A334433.
The version for reversed (weakly increasing) partitions is A334437.
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun order (sum/length/lex) are A036036.
Reverse-lexicographically ordered partitions are A080577.
Sorting reversed partitions by Heinz number gives A112798.
Graded Heinz numbers are A215366.
Sorting partitions by Heinz number gives A296150.
Row sums give A145519.
Cf. A036037, A049085, A056239, A066099, A185974, A211992, A228100, A228531, A333219, A334301, A334302, A334435, A334436, A334438, A334439.

T:= n-> map(p-> mul(ithprime(i), i=p), combinat[partition](n))[]:
seq(T(n), n=0..8);  # Alois P. Heinz, Jan 26 2025

lexsort[f_,c_]:=OrderedQ[PadRight[{f,c}]];
Join@@Table[Times@@Prime/@#&/@Sort[IntegerPartitions[n],lexsort],{n,0,8}]
- or -
Join@@Table[Times@@Prime/@#&/@Reverse[IntegerPartitions[n]],{n,0,8}]

A001222(a(n)) appears to be A049085(n).

A334441 Maximum part of the n-th integer partition in Abramowitz-Stegun (sum/length/lex) order; a(0) = 0.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, May 06 2020

First differs from A049085 at a(8) = 2, A049085(8) = 3.

The parts of a partition are read in the usual (weakly decreasing) order. The version for reversed (weakly increasing) partitions is A049085.

			Triangle begins:
  0
  1
  2 1
  3 2 1
  4 2 3 2 1
  5 3 4 2 3 2 1
  6 3 4 5 2 3 4 2 3 2 1
  7 4 5 6 3 3 4 5 2 3 4 2 3 2 1
  8 4 5 6 7 3 4 4 5 6 2 3 3 4 5 2 3 4 2 3 2 1

Wikiversity, Lexicographic and colexicographic order

Row lengths are A000041.
The length of the same partition is A036043.
Ignoring partition length (sum/lex) gives A036043 also.
The version for reversed partitions is A049085.
a(n) is the maximum element in row n of A334301.
The number of distinct parts in the same partition is A334440.
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.
Graded reverse-lexicographically ordered partitions are A080577.
Partitions counted by sum and number of distinct parts are A116608.
Graded lexicographically ordered partitions are A193073.
Partitions in colexicographic order (sum/colex) are A211992.
Partitions in dual Abramowitz-Stegun (sum/length/revlex) order are A334439.
Cf. A001221, A103921, A124734, A185974, A296774, A299755, A334302, A334433, A334434, A334435, A334438.

Table[If[n==0,{0},Max/@Sort[IntegerPartitions[n]]],{n,0,10}]

A334440 Irregular triangle T(n,k) read by rows: row n lists numbers of distinct parts of the n-th integer partition in Abramowitz-Stegun (sum/length/lex) order.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, May 05 2020

The total number of parts, counting duplicates, is A036043. The version for reversed partitions is A103921.

			Triangle begins:
  0
  1
  1 1
  1 2 1
  1 1 2 2 1
  1 2 2 2 2 2 1
  1 1 2 2 1 3 2 2 2 2 1
  1 2 2 2 2 2 3 2 2 3 2 2 2 2 1
  1 1 2 2 2 2 2 3 3 2 1 3 2 3 2 2 3 2 2 2 2 1

Robert Price, Table of n, a(n) for n = 0..9295 (25 rows).
Wikiversity, Lexicographic and colexicographic order

Row lengths are A000041.
The number of not necessarily distinct parts is A036043.
The version for reversed partitions is A103921.
Ignoring length (sum/lex) gives A103921 (also).
a(n) is the number of distinct elements in row n of A334301.
The maximum part of the same partition is A334441.
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.
Graded reverse-lexicographically ordered partitions are A080577.
Partitions counted by sum and number of distinct parts are A116608.
Graded lexicographically ordered partitions are A193073.
Partitions in colexicographic order (sum/colex) are A211992.
Partitions in dual Abramowitz-Stegun (sum/length/revlex) order are A334439.
Cf. A001221, A049085, A124734, A185974, A296774, A299755, A334028, A334302, A334433, A334434, A334435, A334438.

Join@@Table[Length/@Union/@Sort[IntegerPartitions[n]],{n,0,10}]

a(n) = A001221(A334433(n)).

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

Sung-Hyuk Cha, Mar 07 2014

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

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

Andrew Howroyd, Table of n, a(n) for n = 0..2713 (rows 0..20)
S.-H. Cha, E. G. DuCasse, and L. V. Quintas, Graph Invariants Based on the Divides Relation and Ordered by Prime Signatures, arXiv:1405.5283 [math.NT], 2014.
OEIS Wiki, Orderings of partitions
Wikiversity, Lexicographic and colexicographic order

Row sums are A006128.
Cf. A036043 in canonical order.
Cf. A001221, A063008.
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.
Cf. A026792, A036036, A080576, A103921, A112798, A182715, A333486, A334302, A334435, A334436, A334442.

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

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

Row(n)={apply(s->#s, vecsort([Vecrev(p) | p<-partitions(n)], , 4))}
{ for(n=0, 8, print(Row(n))) } \\ Andrew Howroyd, Mar 25 2020

T(n,k) = A001221(A063008(n,k)). - Andrew Howroyd, Mar 25 2020

a(n) = A001222(A129129(n)). - Gus Wiseman, May 24 2020

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

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

A105805 Irregular triangle read by rows: T(n,k) is the Dyson's rank of the k-th partition of n in Abramowitz-Stegun order.

Original entry on oeis.org

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

Offset: 1

Wolfdieter Lang, Apr 28 2005

The rank of a partition is the largest part minus the number of parts.
Row lengths give A000041, n >= 1.
Just for n <= 6, row n is antisymmetric due to conjugation of partitions (see links under A105806): a(n, p(n)-(k-1)) = a(n,k), k = 1..floor(p(n)/2). [Comment corrected by Franklin T. Adams-Watters, Jan 17 2006]
First differs from A330368 at a(49) = T(7,5). - Omar E. Pol, Dec 31 2019

			Triangle begins:
  [0];
  [1, -1];
  [2,  0, -2];
  [3,  1,  0, -1, -3];
  [4,  2,  1,  0, -1, -2, -4];
  [5,  3,  2,  1,  1,  0, -1, -1, -2, -3, -5];
  ...
Row 3 for partitions of 3 in the mentioned order: 3,(1,2),1^3 with ranks 2,0,-2.
From _Wolfdieter Lang_, Jul 18 2013: (Start)
Row n = 7 is [6, 4, 3, 2, 2, 1, 0 , 0, 0, -1, -2, -2, -3, -4, -6].
This is also antisymmetric, but by accident, because a(7,7) = 0 for the partition (1,3^2), conjugate to (2^2,3) with a(7,8) = 0, and a(7,9) = 0 for (1^3,4) which is self-conjugate.
Row n=8 (see the link) is no longer antisymmetric. See the _Franklin T. Adams-Watters_ correction above. (End)

A. M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, Tenth Printing, 1972, pp. 831-2.
Freeman J. Dyson, Problems for solution nr. 4261, Am. Math. Month. 54 (1947) 418.
Wolfdieter Lang, First 16 rows.

Cf. A000041, A036043, A049085, A209616 (sum of positive ranks), A330368 (another version).

# ASPrts is implemented in A119441
A105805 := proc(n,k)
    local pi;
    pi := ASPrts(n)[k] ;
    max(op(pi))-nops(pi) ;
end proc:
for n from 1 do
    for k from 1 to A000041(n) do
        printf("%d,",A105805(n,k)) ;
    end do:
    printf("\n") ;
end do: # R. J. Mathar, Jul 17 2013

a(n,k) = A049085(n,k) - A036043(n,k). - Alford Arnold, Aug 02 2010

Name clarified by Omar E. Pol, Dec 31 2019

A344086 Flattened tetrangle of strict integer partitions sorted first by sum, then lexicographically.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, May 11 2021

The zeroth row contains only the empty partition.

A tetrangle is a sequence of finite triangles.

			Tetrangle begins:
  0: ()
  1: (1)
  2: (2)
  3: (21)(3)
  4: (31)(4)
  5: (32)(41)(5)
  6: (321)(42)(51)(6)
  7: (421)(43)(52)(61)(7)
  8: (431)(521)(53)(62)(71)(8)
  9: (432)(531)(54)(621)(63)(72)(81)(9)

Wikiversity, Lexicographic and colexicographic order

Positions of first appearances are A015724.
Triangle sums are A066189.
Taking revlex instead of lex gives A118457.
The not necessarily strict version is A193073.
The version for reversed partitions is A246688.
The Heinz numbers of these partitions grouped by sum are A246867.
The ordered generalization is A339351.
Taking colex instead of lex gives A344087.
A026793 gives reversed strict partitions in A-S order (sum/length/lex).
A319247 sorts reversed strict partitions by Heinz number.
A329631 sorts strict partitions by Heinz number.
A344090 gives strict partitions in A-S order (sum/length/lex).
Cf. A005117, A014466, A209862.
Partition/composition orderings: A026791, A026792, A036036, A036037, A048793, A066099, A080577, A112798, A124734, A162247, A211992, A228100, A228351, A228531, A272020, A299755, A296774, A304038, A334301, A334302, A334439, A334442, A335122, A344085, A344086, A344088, A344089.
Partition/composition applications: A001793, A005183, A036043, A049085, A070939, A115623, A124736, A129129, A185974, A238966, A294648, A333483, A333484, A333485, A333486, A334433, A334434, A334435, A334436, A334437, A334438, A334440, A334441, A335123, A335124, A339195.

lexsort[f_,c_]:=OrderedQ[PadRight[{f,c}]];
Table[Sort[Select[IntegerPartitions[n],UnsameQ@@#&],lexsort],{n,0,8}]

A333486 Length of the n-th reversed integer partition in graded reverse-lexicographic order. Partition lengths of A228531.

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

Offset: 0

Gus Wiseman, May 23 2020

			Triangle 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 3 4 4 5 6
  1 2 2 3 2 3 3 4 3 4 4 5 5 6 7
  1 2 2 2 3 3 4 2 3 3 4 3 4 4 5 4 5 5 6 6 7 8

OEIS Wiki, Orderings of partitions
Wikiversity, Lexicographic and colexicographic order

Row lengths are A000041.
The generalization to compositions is A000120.
Row sums are A006128.
The same partition has sum A036042.
The length-sensitive version (sum/length/revlex) is A036043.
The colexicographic version (sum/colex) is A049085.
The same partition has minimum A182715.
The lexicographic version (sum/lex) is A193173.
The tetrangle of these partitions is A228531.
The version for non-reversed partitions is A238966.
The same partition has Heinz number A334436.
Reversed partitions in Abramowitz-Stegun order (sum/length/lex) are A036036.
Partitions in lexicographic order (sum/lex) are A193073.
Partitions in colexicographic order (sum/colex) are A211992.
Partitions in opposite Abramowitz-Stegun order (sum/length/revlex) are A334439.
Cf. A026792, A049085, A080576, A080577, A103921, A112798, A115623, A129129, A331581, A334302, A334435, A334442.

revlexsort[f_,c_]:=OrderedQ[PadRight[{c,f}]];
Table[Length/@Sort[Reverse/@IntegerPartitions[n],revlexsort],{n,0,8}]

A019575 Place n distinguishable balls in n boxes (in n^n ways); let T(n,k) = number of ways that the maximum in any box is k, for 1 <= k <= n; sequence gives triangle of numbers T(n,k).

Original entry on oeis.org

1, 2, 2, 6, 18, 3, 24, 180, 48, 4, 120, 2100, 800, 100, 5, 720, 28800, 14700, 2250, 180, 6, 5040, 458640, 301350, 52920, 5292, 294, 7, 40320, 8361360, 6867840, 1342600, 153664, 10976, 448, 8, 362880, 172141200, 172872000, 36991080, 4644864, 387072, 20736, 648, 9

Offset: 1

Lee Corbin (lcorbin(AT)tsoft.com)

T(n,k) is the number of endofunctions on [n] such that the maximal cardinality of the nonempty preimages equals k. - Alois P. Heinz, Jul 31 2014

			Triangle begins:
       1;
       2,         2;
       6,        18,         3;
      24,       180,        48,        4;
     120,      2100,       800,      100,       5;
     720,     28800,     14700,     2250,     180,      6;
    5040,    458640,    301350,    52920,    5292,    294,     7;
   40320,   8361360,   6867840,  1342600,  153664,  10976,   448,   8;
  362880, 172141200, 172872000, 36991080, 4644864, 387072, 20736, 648, 9;
  ...

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

Cf. A019576. See A180281 for the case when the balls are indistinguishable.
Rows sums give A000312.
Cf. A245687.

b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(b(n-j, i-1, k)/j!, j=0..min(k, n))))
    end:
T:= (n, k)-> n!* (b(n$2, k) -b(n$2, k-1)):
seq(seq(T(n, k), k=1..n), n=1..12);  # Alois P. Heinz, Jul 29 2014

f[0, , b] := Boole[b == 0]; f[n_, k_, b_] := f[n, k, b] = Sum[ Binomial[b, i]*f[n - 1, k, b - i], {i, 0, Min[k, b]}]; t[n_, k_] := f[n, k, n] - f[n, k - 1, n]; Flatten[ Table[ t[n, k], {n, 1, 9}, {k, 1, n}]] (* Jean-François Alcover, Mar 09 2012, after Robert Gerbicz *)

/*setup memoization table for args <= M. Could be done dynamically inside f() */
M=10;F=vector(M,i,vector(M,i,vector(M)));
f(n,k,b)={ (!n||!b||!k) & return(!b); F[n][k][b] & return(F[n][k][b]);
F[n][k][b]=sum(i=0,min(k,b),binomial(b,i)*f(n-1,k,b-i)) }
T(n,k)=f(n,k,n)-f(n,k-1,n)
for(n=1,9,print(vector(n,k,T(n,k))))
\\ M. F. Hasler, Aug 19 2010; Based on Robert Gerbicz's code I suggest the following (very naively) memoized version of "f"

A019575(x, z) = Sum ( A049009(p)) where x = A036042(p), z = A049085(p) - Alford Arnold.
From Robert Gerbicz, Aug 19 2010: (Start)
Let f(n,k,b) = number of ways to place b balls to n boxes, where the max in any box is not larger than k. Then T(n,k) = f(n,k,n) - f(n,k-1,n). We have:
f(n, k, b) = if(n=0, if(b=0, 1, 0), Sum_{i=0..min(k, b)} binomial(b, i)*f(n-1, k, b-i)).
T(n,k) = f(n,k,n) - f(n,k-1,n). (End)

Edited by N. J. A. Sloane, Sep 06 2010

A344089 Flattened tetrangle of reversed strict integer partitions, sorted first by length and then colexicographically.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, May 12 2021

First differs from the revlex (instead of colex) version for partitions of 12.
The zeroth row contains only the empty partition.
A tetrangle is a sequence of finite triangles.

			Tetrangle begins:
  0: ()
  1: (1)
  2: (2)
  3: (3)(12)
  4: (4)(13)
  5: (5)(23)(14)
  6: (6)(24)(15)(123)
  7: (7)(34)(25)(16)(124)
  8: (8)(35)(26)(17)(134)(125)
  9: (9)(45)(36)(27)(18)(234)(135)(126)

Wikiversity, Lexicographic and colexicographic order

Positions of first appearances are A015724 plus one.
Taking lex instead of colex gives A026793 (non-reversed: A118457).
Triangle sums are A066189.
Reversing all partitions gives A344090.
The non-strict version is A344091.
A319247 sorts strict partitions by Heinz number.
A329631 sorts reversed strict partitions by Heinz number.
Cf. A005117, A014466, A209862, A325683, A325859.
Partition/composition orderings: A026791, A026792, A036036, A036037, A048793, A066099, A080577, A112798, A124734, A162247, A193073, A211992, A228100, A228351, A228531, A246688, A272020, A299755, A296774, A304038, A334301, A334302, A334439, A334442, A335122, A339351, A344085, A344086, A344087, A344088, A344089.
Partition/composition applications: A001793, A005183, A036043, A049085, A070939, A115623, A124736, A129129, A185974, A238966, A246867, A294648, A333483, A333484, A333485, A333486, A334433, A334434, A334435, A334436, A334437, A334438, A334440, A334441, A335123, A335124, A339195.

Table[Reverse/@Sort[Select[IntegerPartitions[n],UnsameQ@@#&]],{n,0,30}]

cp's OEIS Frontend

A334434 Heinz number of the n-th integer partition in graded lexicographic order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A334441 Maximum part of the n-th integer partition in Abramowitz-Stegun (sum/length/lex) order; a(0) = 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A334440 Irregular triangle T(n,k) read by rows: row n lists numbers of distinct parts of the n-th integer partition in Abramowitz-Stegun (sum/length/lex) order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

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

A105805 Irregular triangle read by rows: T(n,k) is the Dyson's rank of the k-th partition of n in Abramowitz-Stegun order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Formula

Extensions

A344086 Flattened tetrangle of strict integer partitions sorted first by sum, then lexicographically.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs