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 31-40 of 61 results. Next

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

Views

Author

Gus Wiseman, May 05 2020

Keywords

Comments

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

Examples

			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
		

Crossrefs

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.

Programs

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

Formula

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

A302246 Irregular triangle read by rows in which row n lists all parts of all partitions of n, in nonincreasing order.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Apr 05 2018

Keywords

Comments

Also due to the correspondence divisor/part row n lists the terms of the n-th row of A338156 in nonincreasing order. In other words: row n lists in nonincreasing order the divisors of the terms of the n-th row of A176206. - Omar E. Pol, Jun 16 2022

Examples

			Triangle begins:
  1;
  2,1,1;
  3,2,1,1,1,1;
  4,3,2,2,2,1,1,1,1,1,1,1;
  5,4,3,3,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1;
  6,5,4,4,3,3,3,3,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1;
  ...
For n = 4 the partitions of 4 are [4], [2, 2], [3, 1], [2, 1, 1], [1, 1, 1, 1]. There is only one 4, only one 3, three 2's and seven 1's, so the 4th row of this triangle is [4, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1].
On the other hand for n = 4 the 4th row of A176206 is [4, 3, 2, 2, 1, 1, 1] and the divisors of these terms are [1, 2, 4], [1, 3], [1, 2], [1, 2], [1], [1], [1] the same as the 4th row of A338156. These divisors listed in nonincreasing order give the 4th row of this triangle. - _Omar E. Pol_, Jun 16 2022
		

Crossrefs

Both column 1 and 2 are A000027.
Row n has length A006128(n).
The sum of row n is A066186(n).
The number of parts k in row n is A066633(n,k).
The sum of all parts k in row n is A138785(n,k).
The number of parts >= k in row n is A181187(n,k).
The sum of all parts >= k in row n is A206561(n,k).
The number of parts <= k in row n is A210947(n,k).
The sum of all parts <= k in row n is A210948(n,k).
First differs from A036037, A080577, A181317, A237982 and A239512 at a(13) = T(4,3).
Cf. A302247 (mirror).

Programs

  • Mathematica
    nrows=10;Array[ReverseSort[Flatten[IntegerPartitions[#]]]&,nrows] (* Paolo Xausa, Jun 16 2022 *)
  • PARI
    row(n) = my(list = List()); forpart(p=n, for (k=1, #p, listput(list, p[k]));); vecsort(Vec(list), , 4); \\ Michel Marcus, Jun 16 2022

A067855 Square of the Euclidean length of the vector of Littlewood-Richardson coefficients of Sum_{lambda |- n} s_lambda^2, where s_lambda are the symmetric Schur functions and the sum runs over all partitions lambda of n.

Original entry on oeis.org

1, 2, 8, 26, 94, 326, 1196, 4358, 16248, 60854, 230184, 874878, 3343614, 12825418, 49368388, 190554410, 737328366, 2858974502, 11106267880, 43215101102, 168398785002, 657070401106, 2566847255572, 10038191414610, 39295007540748
Offset: 0

Views

Author

Richard Stanley, Feb 15 2002

Keywords

Comments

Original name: "Squared length of sum of s_lambda^2, where s_lambda is a Schur function and lambda ranges over all partitions of n."
This sequence is obtained from the generalized Euler transform in A266964 by taking f(n) = 1/2, g(n) = 4. - Seiichi Manyama, Apr 22 2018
The symbol "|-" means "is a partition of", cf. MathWorld link and the Geloun & Ramgoolam paper. The Littlewood-Richardson coefficients allow a product of two Schur functions to be expressed as a linear combination of Schur functions of the corresponding degree. (The Schur functions symmetric in all n variables correspond to Schur polynomials of partitions extended with 0's to length n.) - M. F. Hasler, Jan 19 2020
See A070933 for similar sums of squares of Littlewood-Richardson coefficients. - M. F. Hasler, Jan 20 2020

Examples

			For n=3 the s_lambda^2 summed over all partitions of n and decomposed into a sum of Schur functions yields
    s(6) + 2 s(3,3) + 2 s(4,2) + s(5,1) + 2 s(2,2,2) + 2 s(3,2,1) + s(4,1,1)
    + 2 s(2,2,1,1) + s(3,1,1,1) + s(2,1,1,1,1) + s(1,1,1,1,1,1),
  and the sum of the squares of the coefficients {1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 1} gives a(3) = 26.
		

Crossrefs

Cf. A001868.
List of partitions: A036037, A080577, A181317, A330370.
Cf. A070933 (Sum_{lambda,mu,nu} (c^{lambda}_{mu,nu})^2, |mu| = |nu| = n).
Cf. A003040 (maximum number of standard tableaux of the Ferrers diagrams of the partitions of n).

Programs

  • Maple
    b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i=1,
          binomial(n+n, n), add(b(j, 1)*b(n-i*j, i-1), j=0..n/i)))
        end:
    a:= n-> b(n$2):
    seq(a(n), n=0..33);  # Alois P. Heinz, Aug 24 2019
  • Mathematica
    Table[Tr[(Apply[List,
      Sum[Tr[s @@@ LRRule[\[Lambda], \[Lambda]]],
       {\[Lambda], Partitions[n]}]] /. s[] -> 1)^2], {n, 1, 10}];
    (* with 'LRRule' defined in http://users.telenet.be/Wouter.Meeussen/ToolBox.nb - Wouter Meeussen, Jan 19 2020 *)
    b[n_, i_] := b[n, i] = If[n == 0, 1, If[i == 1, Binomial[n+n, n],
         Sum[b[j, 1]*b[n - i*j, i-1], {j, 0, n/i}]]];
    a[n_] := b[n, n];
    Table[a[n], {n, 0, 33}] (* Jean-François Alcover, Jan 02 2022, after Alois P. Heinz *)
  • PARI
    A067855_upto(N)=Vec(1/sqrt(prod(i=1,N-1,1-4*'x^i+O('x^N)))) \\ M. F. Hasler, Jan 23 2020

Formula

G.f.: 1/sqrt(Product_{i >= 1} (1 - 4*x^i)).
Euler transform of A001868(n)/2. a(n) = Sum_{pi} Product_{m=1..n} binomial(2*p(m), p(m)), where pi runs through all nonnegative solutions of p(1) + 2*p(2) + ... + n*p(n)=n. - Vladeta Jovovic, Mar 25 2006
a(n) ~ 2^(2*n) / sqrt(c*Pi*n), where c = QPochhammer[1/4] = 0.688537537120339... - Vaclav Kotesovec, Apr 22 2018
By definition, a(n) = Sum_{mu |- 2n} c_mu^2 where Sum_{lambda |- n} s_lambda^2 = Sum_{mu |- 2n} c_mu s_mu, where s_lambda are the Schur polynomials (symmetric in 2n variables) and the sums run over all partitions of n resp. 2n. - M. F. Hasler, Jan 19 2020

Extensions

More terms from Vladeta Jovovic, Mar 25 2006
Name edited by M. F. Hasler following observations by Wouter Meeussen, Jan 17 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)).

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

Views

Author

Gus Wiseman, May 11 2021

Keywords

Comments

The zeroth row contains only the empty partition.
A tetrangle is a sequence of finite triangles.

Examples

			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)
		

Crossrefs

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

Programs

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

A322761 Irregular triangle read by rows in which n-th row lists all partitions of n, in graded reverse lexicographic ordering, using a compressed notation.

Original entry on oeis.org

1, 2, 11, 3, 21, 111, 4, 31, 22, 211, 1111, 5, 41, 32, 311, 221, 2111, 11111, 6, 51, 42, 411, 33, 321, 3111, 222, 2211, 21111, 111111, 7, 61, 52, 511, 43, 421, 4111, 331, 322, 3211, 31111, 2221, 22111, 211111, 1111111
Offset: 1

Views

Author

N. J. A. Sloane, Dec 30 2018

Keywords

Comments

Officially this is deprecated, since one cannot distinguish between (for example) parts which are 11 and parts which are 1,1. However, it is in common use and is included for completeness. See A036037, A080577, etc., for uncompressed versions.

Examples

			Triangle begins:
1,
2, 11,
3, 21, 111,
4, 31, 22, 211, 1111,
5, 41, 32, 311, 221, 2111, 11111,
6, 51, 42, 411, 33, 321, 3111, 222, 2211, 21111, 111111,
7, 61, 52, 511, 43, 421, 4111, 331, 322, 3211, 31111, 2221, 22111, 211111, 1111111,
...
...
		

Crossrefs

Cf. A000041 (number of terms in row n), A036037, A080577.
See also A006128.
First column gives A000027.
Last elements of rows give A000042.

Programs

  • Maple
    b:= (n, i)-> `if`(n=0 or i=1, [cat(1$n)], [map(x->
        cat(i, x), b(n-i, min(n-i, i)))[], b(n, i-1)[]]):
    T:= n-> map(parse, b(n$2))[]:
    seq(T(n), n=1..10);  # Alois P. Heinz, Dec 30 2018
  • Mathematica
    revlexsort[f_, c_] := OrderedQ[PadRight[{c, f}]];
    Table[FromDigits /@ Sort[IntegerPartitions[n], revlexsort], {n, 1, 8}] // Flatten (* Jean-François Alcover, Oct 20 2020, after Gus Wiseman in A080577 *)

A333484 Sort all positive integers, first by sum of prime indices (A056239), then by decreasing number of prime indices (A001222).

Original entry on oeis.org

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

Views

Author

Gus Wiseman, May 10 2020

Keywords

Comments

A refinement of A215366.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			Triangle begins:
    1
    2
    4   3
    8   6   5
   16  12   9  10   7
   32  24  18  20  14  15  11
   64  48  36  40  27  28  30  21  22  25  13
  128  96  72  80  54  56  60  42  44  45  50  26  33  35  17
		

Crossrefs

Row lengths are A000041.
Ignoring length gives A215366 (graded Heinz numbers).
Sorting by increasing length gives A333483.
Number of prime indices is A001222.
Lexicographically ordered reversed partitions are A026791.
Reversed partitions in Abramowitz-Stegun (sum/length/lex) order are A036036.
Partitions in (sum/length/colex) order are A036037.
Sum of prime indices is A056239.
Reverse-lexicographically ordered partitions are A080577.
Sorting reversed partitions by Heinz number gives A112798.
Lexicographically ordered partitions are A193073.
Sorting partitions by Heinz number gives A296150.

Programs

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

A194546 Triangle read by rows: T(n,k) is the largest part of the k-th partition of n, with partitions in colexicographic order.

Original entry on oeis.org

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

Views

Author

Omar E. Pol, Dec 10 2011

Keywords

Comments

Row n lists the first A000041(n) terms of A141285.
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, see example. - Joerg Arndt, Sep 13 2013

Examples

			For n = 5 the partitions of 5 in colexicographic order are:
  1+1+1+1+1
  2+1+1+1
  3+1+1
  2+2+1
  4+1
  3+2
  5
so the fifth row is the largest in each partition: 1,2,3,2,4,3,5
Triangle begins:
  1;
  1,2;
  1,2,3;
  1,2,3,2,4;
  1,2,3,2,4,3,5;
  1,2,3,2,4,3,5,2,4,3,6;
  1,2,3,2,4,3,5,2,4,3,6,3,5,4,7;
  1,2,3,2,4,3,5,2,4,3,6,3,5,4,7,2,4,3,6,5,4,8;
...
		

Crossrefs

The sum of row n is A006128(n).
Row lengths are A000041.
Let y be the n-th integer partition in colexicographic order (A211992):
- The maximum of y is a(n).
- The length of y is A193173(n).
- The minimum of y is A196931(n).
- The Heinz number of y is A334437(n).
Lexicographically ordered reversed partitions are A026791.
Reverse-colexicographically ordered partitions are A026792.
Reversed partitions in Abramowitz-Stegun order (sum/length/lex) are A036036.
Reverse-lexicographically ordered partitions are A080577.
Lexicographically ordered partitions are A193073.

Programs

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

Formula

a(n) = A061395(A334437(n)). - Gus Wiseman, May 31 2020

Extensions

Definition corrected by Omar E. Pol, Sep 12 2013

A333483 Sort all positive integers, first by sum of prime indices (A056239), then by number of prime indices (A001222).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 7, 9, 10, 12, 16, 11, 14, 15, 18, 20, 24, 32, 13, 21, 22, 25, 27, 28, 30, 36, 40, 48, 64, 17, 26, 33, 35, 42, 44, 45, 50, 54, 56, 60, 72, 80, 96, 128, 19, 34, 39, 49, 55, 52, 63, 66, 70, 75, 81, 84, 88, 90, 100, 108, 112, 120, 144, 160, 192, 256, 23, 38, 51, 65, 77, 68, 78, 98, 99, 105, 110, 125, 104, 126, 132, 135, 140, 150, 162, 168, 176, 180, 200, 216, 224, 240, 288, 320, 384, 512
Offset: 0

Views

Author

Gus Wiseman, May 10 2020

Keywords

Comments

A refinement of A215366, from which it first differs at a(49) = 55, A215366(49) = 52.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			Triangle begins:
   1
   2
   3   4
   5   6   8
   7   9  10  12  16
  11  14  15  18  20  24  32
  13  21  22  25  27  28  30  36  40  48  64
  17  26  33  35  42  44  45  50  54  56  60  72  80  96 128
		

Crossrefs

Row lengths are A000041.
Ignoring length gives A215366 (graded Heinz numbers).
Sorting by decreasing length gives A333484.
Finally sorting lexicographically by prime indices gives A185974.
Finally sorting colexicographically by prime indices gives A334433.
Finally sorting reverse-lexicographically by prime indices gives A334435.
Finally sorting reverse-colexicographically by prime indices gives A334438.
Number of prime indices is A001222.
Reversed partitions in Abramowitz-Stegun (sum/length/lex) order are A036036.
Partitions in (sum/length/colex) order are A036037.
Sum of prime indices is A056239.
Sorting reversed partitions by Heinz number gives A112798.
Sorting partitions by Heinz number gives A296150.

Programs

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

A333485 Heinz numbers of all integer partitions sorted first by sum, then by decreasing length, and finally lexicographically. A code for the Fenner-Loizou tree A228100.

Original entry on oeis.org

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, 256, 192, 144, 160, 108, 120, 112, 81, 90, 100, 84, 88, 75, 63, 70, 66, 52, 49, 55, 39, 34, 19
Offset: 0

Views

Author

Gus Wiseman, May 11 2020

Keywords

Comments

A permutation of the positive integers.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), which 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.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}              11: {5}                 56: {1,1,1,4}
    2: {1}             64: {1,1,1,1,1,1}       45: {2,2,3}
    4: {1,1}           48: {1,1,1,1,2}         50: {1,3,3}
    3: {2}             36: {1,1,2,2}           42: {1,2,4}
    8: {1,1,1}         40: {1,1,1,3}           44: {1,1,5}
    6: {1,2}           27: {2,2,2}             35: {3,4}
    5: {3}             30: {1,2,3}             33: {2,5}
   16: {1,1,1,1}       28: {1,1,4}             26: {1,6}
   12: {1,1,2}         25: {3,3}               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}    160: {1,1,1,1,1,3}
   24: {1,1,1,2}       96: {1,1,1,1,1,2}      108: {1,1,2,2,2}
   18: {1,2,2}         72: {1,1,1,2,2}        120: {1,1,1,2,3}
   20: {1,1,3}         80: {1,1,1,1,3}        112: {1,1,1,1,4}
   15: {2,3}           54: {1,2,2,2}           81: {2,2,2,2}
   14: {1,4}           60: {1,1,2,3}           90: {1,2,2,3}
The triangle 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
		

Crossrefs

Row lengths are A000041.
The constructive version is A228100.
Sorting by increasing length gives A334433.
The version with rows reversed is A334438.
Sum of prime indices is A056239.
Reverse-lexicographically ordered partitions are A080577.
Sorting reversed partitions by Heinz number gives A112798.
Lexicographically ordered partitions are A193073.
Graded Heinz numbers are A215366.
Sorting partitions by Heinz number gives A296150.
If the fine ordering is by Heinz number instead of lexicographic we get A333484.

Programs

  • Mathematica
    ralensort[f_,c_]:=If[Length[f]!=Length[c],Length[f]>Length[c],OrderedQ[{f,c}]];
    Join@@Table[Times@@Prime/@#&/@Sort[IntegerPartitions[n],ralensort],{n,0,8}]

Formula

A001221(a(n)) = A115623(n).
A001222(a(n - 1)) = A331581(n).
A061395(a(n > 1)) = A128628(n).

Extensions

Name extended by Peter Luschny, Dec 23 2020
Previous Showing 31-40 of 61 results. Next