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 41-50 of 118 results. Next

A334437 Heinz number of the n-th reversed integer partition in graded lexicographical order.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, May 03 2020

Keywords

Comments

A permutation of the positive integers.
Reversed integer partitions are finite weakly increasing sequences of positive integers. The non-reversed version is A334434.
This is the graded reverse of the so-called "Mathematica" order (A080577, A129129).
The Heinz number of a reversed integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and reversed partitions.
Also Heinz numbers of partitions in colexicographic order (cf. A211992).
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}                 44: {1,1,5}
    2: {1}             64: {1,1,1,1,1,1}       54: {1,2,2,2}
    4: {1,1}           48: {1,1,1,1,2}         42: {1,2,4}
    3: {2}             40: {1,1,1,3}           50: {1,3,3}
    8: {1,1,1}         36: {1,1,2,2}           26: {1,6}
    6: {1,2}           28: {1,1,4}             45: {2,2,3}
    5: {3}             30: {1,2,3}             33: {2,5}
   16: {1,1,1,1}       22: {1,5}               35: {3,4}
   12: {1,1,2}         27: {2,2,2}             17: {7}
   10: {1,3}           21: {2,4}              256: {1,1,1,1,1,1,1,1}
    9: {2,2}           25: {3,3}              192: {1,1,1,1,1,1,2}
    7: {4}             13: {6}                160: {1,1,1,1,1,3}
   32: {1,1,1,1,1}    128: {1,1,1,1,1,1,1}    144: {1,1,1,1,2,2}
   24: {1,1,1,2}       96: {1,1,1,1,1,2}      112: {1,1,1,1,4}
   20: {1,1,3}         80: {1,1,1,1,3}        120: {1,1,1,2,3}
   18: {1,2,2}         72: {1,1,1,2,2}         88: {1,1,1,5}
   14: {1,4}           56: {1,1,1,4}          108: {1,1,2,2,2}
   15: {2,3}           60: {1,1,2,3}           84: {1,1,2,4}
Triangle begins:
    1
    2
    4   3
    8   6   5
   16  12  10   9   7
   32  24  20  18  14  15  11
   64  48  40  36  28  30  22  27  21  25  13
  128  96  80  72  56  60  44  54  42  50  26  45  33  35  17
This corresponds to the following tetrangle:
                  0
                 (1)
               (11)(2)
             (111)(12)(3)
        (1111)(112)(13)(22)(4)
  (11111)(1112)(113)(122)(14)(23)(5)
		

Crossrefs

Row lengths are A000041.
The constructive version is A026791 (triangle).
The length-sensitive version is A185974.
Compositions under the same order are A228351 (triangle).
The version for non-reversed partitions is A334434.
The dual version (sum/revlex) is A334436.
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.
Partitions in colexicographic order (sum/colex) are A211992.
Graded Heinz numbers are given by A215366.
Sorting partitions by Heinz number gives A296150.
Partitions in dual Abramowitz-Stegun (sum/length/revlex) order are A334439.

Programs

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

Formula

A001222(a(n)) = A193173(n).

A080575 Triangle of multinomial coefficients, read by rows (version 2).

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 4, 3, 6, 1, 1, 5, 10, 10, 15, 10, 1, 1, 6, 15, 15, 10, 60, 20, 15, 45, 15, 1, 1, 7, 21, 21, 35, 105, 35, 70, 105, 210, 35, 105, 105, 21, 1, 1, 8, 28, 28, 56, 168, 56, 35, 280, 210, 420, 70, 280, 280, 840, 560, 56, 105, 420, 210, 28, 1, 1, 9, 36, 36, 84, 252, 84, 126, 504, 378, 756, 126, 315, 1260, 1260, 1890, 1260, 126, 280, 2520, 840, 1260, 3780, 1260, 84, 945, 1260, 378, 36, 1, 1, 10, 45, 45, 120, 360, 120, 210, 840, 630, 1260, 210
Offset: 1

Views

Author

Wouter Meeussen, Mar 23 2003

Keywords

Comments

This is different from A036040 and A178867.
T[n,m] = count of set partitions of n with block lengths given by the m-th partition of n in the canonical ordering.
From Tilman Neumann, Oct 05 2008: (Start)
These are also the coefficients occurring in complete Bell polynomials, Faa di Bruno's formula (in its simplest form) and computation of moments from cumulants.
Though the Bell polynomials seem quite unwieldy, they can be computed easily as the determinant of an n-dimensional square matrix. (see e.g. [Coffey] and program below)
The complete Bell polynomial of the first n primes gives A007446. (End)
The difference with A036040 and A178867 lies in the ordering of the monomials. This sequence uses lexicographic ordering, while in A036040 the total order (power) of the monomials prevails (Abramowitz-Stegun style): e.g., in row 6 we have ...+ 15*x[3]*x[5] + 15*x[3]*x[6]^2 + 10*x[4]^2 +...; in A036040 the coefficient of x[3]*x[6]^2 would come after that of x[4]^2 because the total order is higher, here it comes before in view of the lexicographic order. - M. F. Hasler, Jul 12 2015

Examples

			For n=4 the 5 integer partitions in canonical ordering with corresponding set partitions and counts are:
   [4]       -> #{1234} = 1
   [3,1]     -> #{123/4, 124/3, 134/2, 1/234} = 4
   [2,2]     -> #{12/34, 13/24, 14/23} = 3
   [2,1,1]   -> #{12/3/4, 13/2/4, 1/23/4, 14/2/3, 1/24/3, 1/2/34} = 6
   [1,1,1,1] -> #{1/2/3/4} = 1
Thus row 4 is [1, 4, 3, 6, 1].
Triangle begins:
1;
1, 1;
1, 3,  1;
1, 4,  3,  6,  1;
1, 5, 10, 10, 15,  10,  1;
1, 6, 15, 15, 10,  60, 20, 15,  45,  15,  1;
1, 7, 21, 21, 35, 105, 35, 70, 105, 210, 35, 105, 105, 21, 1;
...
Row 4 represents 1*k(4)+4*k(3)*k(1)+3*k(2)^2+6*k(2)*k(1)^2+1*k(1)^4 and T(4,4)=6 since there are six ways of partitioning four labeled items into one part with two items and two parts each with one item.
		

References

  • See A036040 for the column labeled "M_3" in Abramowitz and Stegun, Handbook, p. 831.

Crossrefs

See A036040 for another version. Cf. A036036-A036039.
Row sums are A000110.
Row lengths are A000041.
Cf. A007446. - Tilman Neumann, Oct 05 2008
Cf. A178866 and A178867 (version 3). - Johannes W. Meijer, Jun 21 2010
Maximum value in row n gives A102356(n).

Programs

  • Mathematica
    runs[li:{__Integer}] := ((Length/@ Split[ # ]))&[Sort@ li]; Table[Apply[Multinomial, IntegerPartitions[w], {1}]/Apply[Times, (runs/@ IntegerPartitions[w])!, {1}], {w, 6}]
    (* Second program: *)
    completeBellMatrix[x_, n_] := Module[{M, i, j}, M[, ] = 0; For[i=1, i <= n-1 , i++, M[i, i+1] = -1]; For[i=1, i <= n , i++, For[j=1, j <= i, j++, M[i, j] = Binomial[i-1, j-1]*x[i-j+1]]]; Array[M, {n, n}]]; completeBellPoly[x_, n_] := Det[completeBellMatrix[x, n]]; row[n_] := List @@ completeBellPoly[x, n] /. x[] -> 1 // Reverse; Table[row[n], {n, 1, 10}] // Flatten (* _Jean-François Alcover, Aug 31 2016, after Tilman Neumann *)
    B[0] = 1;
    B[n_] := B[n] = Sum[Binomial[n-1, k] B[n-k-1] x[k+1], {k, 0, n-1}]//Expand;
    row[n_] := Reverse[List @@ B[n] /. x[_] -> 1];
    Table[row[n], {n, 1, 10}] // Flatten (* Jean-François Alcover, Aug 10 2018, after Wolfdieter Lang *)
  • MuPAD
    completeBellMatrix := proc(x,n) // x - vector x[1]...x[m], m>=n
    local i,j,M; begin M:=matrix(n,n): // zero-initialized
    for i from 1 to n-1 do M[i,i+1]:=-1: end_for:
    for i from 1 to n do for j from 1 to i do
        M[i,j] := binomial(i-1,j-1)*x[i-j+1]:
    end_for: end_for:
    return (M): end_proc:
    completeBellPoly := proc(x, n) begin
    return (linalg::det(completeBellMatrix(x,n))): end_proc:
    for i from 1 to 10 do print(i,completeBellPoly(x,i)): end_for:
    // Tilman Neumann, Oct 05 2008
    
  • PARI
    \\ See links.
    
  • PARI
    A080575_poly(n,V=vector(n,i,eval(Str('x,i))))={matdet(matrix(n,n,i,j,if(j<=i,binomial(i-1,j-1)*V[n-i+j],-(j==i+1))))}
    A080575_row(n)={(f(s)=if(type(s)!="t_INT",concat(apply(f,select(t->t,Vec(s)))),s))(A080575_poly(n))} \\ M. F. Hasler, Jul 12 2015

A334442 Irregular triangle whose reversed rows are all integer partitions 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, 1, 3, 2, 2, 1, 1, 2, 1, 1, 1, 1, 5, 1, 4, 2, 3, 1, 1, 3, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 6, 1, 5, 2, 4, 3, 3, 1, 1, 4, 1, 2, 3, 2, 2, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 7, 1, 6, 2, 5, 3, 4, 1, 1, 5
Offset: 0

Views

Author

Gus Wiseman, May 07 2020

Keywords

Comments

First differs from A036036 for reversed partitions of 9. Namely, this sequence has (2,2,5) before (1,4,4), while A036036 has (1,4,4) before (2,2,5).

Examples

			The sequence of all partitions begins:
  ()         (2,3)        (1,1,1,1,2)    (1,1,1,2,2)
  (1)        (1,1,3)      (1,1,1,1,1,1)  (1,1,1,1,1,2)
  (2)        (1,2,2)      (7)            (1,1,1,1,1,1,1)
  (1,1)      (1,1,1,2)    (1,6)          (8)
  (3)        (1,1,1,1,1)  (2,5)          (1,7)
  (1,2)      (6)          (3,4)          (2,6)
  (1,1,1)    (1,5)        (1,1,5)        (3,5)
  (4)        (2,4)        (1,2,4)        (4,4)
  (1,3)      (3,3)        (1,3,3)        (1,1,6)
  (2,2)      (1,1,4)      (2,2,3)        (1,2,5)
  (1,1,2)    (1,2,3)      (1,1,1,4)      (1,3,4)
  (1,1,1,1)  (2,2,2)      (1,1,2,3)      (2,2,4)
  (5)        (1,1,1,3)    (1,2,2,2)      (2,3,3)
  (1,4)      (1,1,2,2)    (1,1,1,1,3)    (1,1,1,5)
This sequence can also be interpreted as the following triangle:
                  0
                 (1)
               (2)(11)
             (3)(12)(111)
        (4)(13)(22)(112)(1111)
  (5)(14)(23)(113)(122)(1112)(11111)
Taking Heinz numbers (A334438) gives:
   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
		

Crossrefs

Row lengths are A036043.
The version for reversed partitions is A334301.
The version for colex instead of revlex is A334302.
Taking Heinz numbers gives A334438.
The version with rows reversed is A334439.
Ignoring length gives A335122.
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.
Lexicographically ordered partitions are A193073.
Partitions in colexicographic order (sum/colex) are A211992.
Sorting partitions by Heinz number gives A296150.

Programs

  • Mathematica
    revlensort[f_,c_]:=If[Length[f]!=Length[c],Length[f]
    				
  • PARI
    A334442_row(n)=vecsort(partitions(n),p->concat(#p,-Vecrev(p))) \\ Rows of triangle defined in EXAMPLE (all partitions of n). Wrap into [Vec(p)|p<-...] to avoid "Vecsmall". - M. F. Hasler, May 14 2020

A026793 Juxtaposed partitions of 1,2,3,... into distinct parts, ordered by number of terms and then lexicographically.

Original entry on oeis.org

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

Views

Author

Keywords

Comments

This is the Abramowitz and Stegun ordering. - Franklin T. Adams-Watters, Apr 28 2006

Examples

			The partitions of 5 into distinct parts are [5], [1,4] and [2,3], so row 5 is 5,1,4,2,3.
Triangle begins:
[1];
[2];
[3], [1,2];
[4], [1,3];
[5], [1,4], [2,3];
[6], [1,5], [2,4], [1,2,3];
[7], [1,6], [2,5], [3,4], [1,2,4];
[8], [1,7], [2,6], [3,5], [1,2,5], [1,3,4];
[9], [1,8], [2,7], [3,6], [4,5], [1,2,6], [1,3,5], [2,3,4];
		

Crossrefs

Cf. A118457, A118458 (partition lengths), A015723 (total row lengths), A036036, A000009, A246688.

Programs

  • Maple
    b:= proc(n, i) b(n, i):= `if`(n=0, [[]], `if`(i>n, [],
          [map(x->[i, x[]], b(n-i, i+1))[], b(n, i+1)[]]))
        end:
    T:= n-> map(x-> x[], sort(b(n, 1)))[]:
    seq(T(n), n=1..12);  # Alois P. Heinz, Jun 22 2020
  • Mathematica
    Array[SortBy[Map[Reverse, Select[IntegerPartitions[#], UnsameQ @@ # &]], Length] &, 12] // Flatten (* Michael De Vlieger, Jun 22 2020 *)
    b[n_, i_] := b[n, i] = If[n == 0, {{}}, If[i>n, {}, Join[Prepend[#, i]& /@ b[n-i, i+1], b[n, i+1]]]];
    T[n_] := Sort[b[n, 1]];
    Array[T, 12] // Flatten (* Jean-François Alcover, Jun 09 2021, after Alois P. Heinz *)

Extensions

Incorrect program removed by Georg Fischer, Jun 22 2020

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

Views

Author

Gus Wiseman, May 06 2020

Keywords

Comments

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.

Examples

			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
		

Crossrefs

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.

Programs

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

A115621 Signature of partitions in Abramowitz and Stegun order.

Original entry on oeis.org

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

Views

Author

Keywords

Comments

The signature of a multiset is a partition consisting of the repetition factors of the original partition. Regarding a partition as a multiset, the signature of a partition is defined. E.g., [1,1,3,4,4] = [1^2,3^1,4^2], so the repetition factors are 2,1,2, making the signature [1,2,2] = [1,2^2]. Partitions are written here in increasing part size, so [1,2^2] is 1,2,2, not 2,2,1. - Edited by Franklin T. Adams-Watters, Jul 09 2012
The sum (or order) of the signature is the number of parts of the original partition and the number of parts of the signature is the number of distinct parts of the original partition.

Examples

			[1];
[1], [2];
[1], [1,1], [3];
[1], [1,1], [2], [1,2], [4];
...
From _Hartmut F. W. Hoft_, Apr 25 2015: (Start)
Extending the triangle to rows 5 and 6 where row headings indicate the number of elements in the underlying partitions. Brackets group the multiplicities of a single partition.
    row 5         row 6
1:  [1]           [1]
2:  [1,1] [1,1]   [1,1] [1,1] [2]
3:  [1,2] [1,2]   [1,2] [1,1,1] [3]
4:  [1,3]         [1,3] [2,2]
5:  [5]           [1,4]
6:                [6]
(End)
		

Crossrefs

Cf. A036036, A113787, A115622, A103921 (part counts), A000070 (row counts).

Programs

  • Mathematica
    (* row[] and triangle[] compute structured rows of the triangle as laid out above *)
    mL[pL_] := Map[Last[Transpose[Tally[#]]]&, pL]
    row[n_] := Map[Map[Sort, mL[#]]&, GatherBy[Map[Sort, IntegerPartitions[n]], Length]]
    triangle[n_] := Map[row, Range[n]]
    a115621[n_]:= Flatten[triangle[n]]
    Take[a115621[8],105] (* data *)  (* Hartmut F. W. Hoft, Apr 25 2015 *)
    Map[Sort[#, Less] &, Table[Last /@ Transpose /@ Tally /@ Sort[Reverse /@ IntegerPartitions[n]], {n, 8}], 2]
  • SageMath
    from collections import Counter
    def A115621_row(n):
        h = lambda p: sorted(Counter(p).values())
        return flatten([h(p) for k in (0..n) for p in Partitions(n, length=k)])
    for n in (1..10): print(A115621_row(n)) # Peter Luschny, Nov 02 2019

A212359 Partition array for the number of representative necklaces (only cyclic symmetry) with n beads, each available in n colors. Only the color type (signature) matters.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 2, 3, 6, 1, 1, 2, 4, 6, 12, 24, 1, 1, 3, 4, 5, 10, 16, 20, 30, 60, 120, 1, 1, 3, 5, 6, 15, 20, 30, 30, 60, 90, 120, 180, 360, 720, 1, 1, 4, 7, 10, 7, 21, 35, 54, 70, 42, 105, 140, 210, 318, 210, 420, 630, 840, 1260, 2520, 5040
Offset: 1

Views

Author

Wolfdieter Lang, Jun 25 2012

Keywords

Comments

The row lengths sequence is A000041(n), n>=1.
The partitions are ordered like in Abramowitz-Stegun (A-St order). For the reference see A036036, where also a link to a work by C. F. Hindenburg from 1779 is found where this order has been used.
A necklace with n beads (n-necklace) has here only the cyclic C_n symmetry group. This is in contrast to, e.g., the Harary-Palmer reference, p. 44, where a n-necklace has the symmetry group D_n, the dihedral group of degree n (order 2n), which allows, in addition to C_n operations, also a turnover (in 3-space) or a reflection (in 2-space).
The necklace number a(n,k) gives the number of n-necklaces, with up to n colors for each bead, belonging to the k-th partition of n in A-St order in the following way. Write this partition with nonincreasing parts (this is the reverse of the partition as given by A-St), e.g., [3,1^2], not [1^2,3], is written as [3,1,1], a partition of n=5. In general [p[1],p[2],...,p[m]], with p[1]>=p[2]>=...>=p[m]>=1, with m the number of parts. To each such partition of n corresponds an n-multiset obtained by 'exponentiation'. For the given example the 5-multiset is {1^3,2^1,3^1}={1,1,1,2,3}. In general {1^p[1],2^p[2],...,m^p[m]}. Such an n-multiset representative (of a repetition class defined by the exponents, sometimes called signature) encodes the n-necklace color monomial by c[1]^p[1]*c[2]^p[2]*...*c[m]^p[m]. For the example one has c[1]^3*c[2]*c[3]. The number of 5-necklaces with this color assignment is a(5,4) because [3,1,1] is the 4th partition of 5 in A-St order. The a(5,4)=4 non-equivalent 5-necklaces with this color assignment are cyclic(c[1]c[1]c[1]c[2]c[3]), cyclic(c[1]c[1]c[1]c[3]c[2]), cyclic(c[1]c[1]c[2]c[1]c[3]) and cyclic(c[1]c[1]c[3]c[1]c[2]).
Such a set of a(n,k) n-necklaces for the given color assignment stands for other sets of the same order where different colors from the repertoire {c[1],...,c[n]} are chosen. In the example, the partition [3,1,1] with the representative multiset [1^3,2,3] stands for all-together 5*binomial(4,2) = 30 such sets, each leading to 4 possible non-equivalent 5-necklace arrangements. Thus one has, in total, 30*4=120 5-necklaces with color signature determined from the partition [3,1,1]. See the partition array A212360 for these numbers.
For the example n=4, k=1..5, see the Stanley reference, last line, where the numbers a(4,k) are, in A-St order, 1, 1, 2, 3, 6, summing to A072605(4).
a(n,k) is computed from the cycle index Z(C_n) for the cyclic group (see A212357 and the link given there) after the variables x_j have been replaced by the j-th power sum sum(c[i]^j,i=1..n), abbreviated as Z(C_n,c_n) with c_n:=sum(c[i],i=1..n), n>=1. The coefficient of the color assignment representative determined by the k-th partition of n in A-St order, as explained above, is a(n,k). See the Harary-Palmer reference, p. 36, Theorem (PET) with A=C_n and p. 36 eq. (2.2.10) for the cycle index polynomial Z(C_n). See the W. Lang link for more details.
The corresponding triangle with summed entries of row n which belong to partitions of n with the same number of parts is A213934. [Wolfdieter Lang, Jul 12 2012]

Examples

			n\k  1 2 3 4 5  6  7  8  9 10  11  12  13  14  15
1    1
2    1 1
3    1 1 2
4    1 1 2 3 6
5    1 1 2 4 6 12 24
6    1 1 3 4 5 10 16 20 30 60 120
7    1 1 3 5 6 15 20 30 30 60  90 120 180 360 720
...
See the link for the rows n=1..15 and the corresponding color polynomials for n=1..10.
a(4,5)=6 because the partition in question is 1^4, the corresponding color type representative multinomial is c[1]*c[2]*c[3]*c[4] (all four colors are involved), and there are the 6 C_4 non-equivalent 4-necklaces (we use here j for color c[j]): 1234, 1243, 1324, 1342, 1423 and 1432 (all taken as cyclically). For this partition there is only one color choice.
a(4,4)=3 because the partition is [2,1^2]=[2,1,1], the color representative monomial is c[1]^2*c[2]*c[3], and the arrangements are 1123, 1132  and  1213 (all taken cyclically). There are, in total, 4*binomial(3,2)=12 color multinomials of this signature (color type) in Z(C_4,c_4).
		

References

  • F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973, p. 36, (2.2.10).
  • R. Stanley, Enumerative combinatorics, Vol. 2, Cambridge University Press, Cambridge, 1999, p. 392, 7.24.3 Example.

Crossrefs

Cf. A212357 for Z(C_n), A072605 for the row sums.
Cf. A000041 (row lengths), A036036, A185974, A212360, A213934, A318810.

Formula

a(n,k) is the number of necklace arrangements with n beads (respecting the cyclic C_n symmetry) with color assignment given by the multiset representative obtained uniquely from the k-th partition of n in A-St order. See the comment for more details and the A-St reference.
From Álvar Ibeas, Dec 12 2020: (Start)
Let L be the k-th partition of n in A-St and d be the gcd of its parts. Abusing the notation, we write a(n, L) for a(n, k) and accordingly for other partition arrays.
a(n, L) = n^(-1) * Sum_{v|d} phi(v) * A036038(n/v, L/v), where L/v is the partwise division of L by v.
a(n, L) = Sum_{v|d} A339677(L/v).
(End)
a(n,k) = A318810(A185974(n,k)). - Andrew Howroyd, Jan 23 2025

A227739 Irregular table where row n lists in nondecreasing order the parts of unordered partition encoded in the runlengths of binary expansion of n; nonzero terms of A227189.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, Jul 25 2013

Keywords

Comments

Row n has A005811(n) elements. Each row contains a unique (unordered) partition of some integer, and all possible partitions of finite natural numbers eventually occur. The first partition that sums to k occurs at row A227368(k) and the last at row A000225(k).
Other similar tables of unordered partitions: A036036, A036037, A080576, A080577 and A112798.

Examples

			Rows are constructed as:
  Row    n in   Runlengths  With one     Partial sums   The row sums
   n    binary  collected   subtracted   of which give  to, i.e. is
                from lsb-   from all     terms on       a partition of
                to msb-end  except 1st   that row       of A227183(n)
   1       "1"        [1]        [1]     1;             1
   2      "10"      [1,1]      [1,0]     1, 1;          2
   3      "11"        [2]        [2]     2;             2
   4     "100"      [2,1]      [2,0]     2, 2;          4
   5     "101"    [1,1,1]    [1,0,0]     1, 1, 1;       3
   6     "110"      [1,2]      [1,1]     1, 2;          3
   7     "111"        [3]        [3]     3;             3
   8    "1000"      [3,1]      [3,0]     3, 3;          6
   9    "1001"    [1,2,1]    [1,1,0]     1, 2, 2;       5
  10    "1010"  [1,1,1,1]  [1,0,0,0]     1, 1, 1, 1;    4
  11    "1011"    [2,1,1]    [2,0,0]     2, 2, 2;       6
  12    "1100"      [2,2]      [2,1]     2, 3;          5
  13    "1101"    [1,1,2]    [1,0,1]     1, 1, 2;       4
  14    "1110"      [1,3]      [1,2]     1, 3;          4
  15    "1111"        [4]        [4]     4;             4
  16   "10000"      [4,1]      [4,0]     4, 4;          8
		

Crossrefs

Row sums: A227183, row products: A227184, the initial (smallest) term of each row: A136480, the last (largest) term: A227185.
Cf. also A227189, A227738, A227736.

Programs

  • Mathematica
    Table[Function[b, Accumulate@ Prepend[If[Length@ b > 1, Rest[b] - 1, {}], First@ b]]@ Map[Length, Split@ Reverse@ IntegerDigits[n, 2]], {n, 34}] // Flatten (* Michael De Vlieger, May 09 2017 *)
  • Scheme
    (define (A227739 n) (A227189bi (A227737 n) (A227740 n))) ;; The Scheme-code for A227189bi has been given in A227189.

Formula

a(n) = A227189(A227737(n),A227740(n)).

A241918 Table of partitions where the ordering is based on the modified partial sums of the exponents of primes in the prime factorization of n.

Original entry on oeis.org

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

Views

Author

Antti Karttunen, May 03 2014, based on Marc LeBrun's Jan 11 2006 message on SeqFan mailing list

Keywords

Comments

a(1) = 0 by convention (stands for an empty partition).
For n >= 2, A203623(n-1)+2 gives the index to the beginning of row n and for n>=1, A203623(n)+1 is the index to the end of row n.

Examples

			Table begins:
Row     Partition
[ 1]    0;         (stands for empty partition)
[ 2]    1;         (as 2 = 2^1)
[ 3]    1,1;       (as 3 = 2^0 * 3^1)
[ 4]    2;         (as 4 = 2^2)
[ 5]    1,1,1;     (as 5 = 2^0 * 3^0 * 5^1)
[ 6]    2,2;       (as 6 = 2^1 * 3^1)
[ 7]    1,1,1,1;   (as 7 = 2^0 * 3^0 * 5^0 * 7^1)
[ 8]    3;         (as 8 = 2^3)
[ 9]    1,2;       (as 9 = 2^0 * 3^2)
[10]    2,2,2;     (as 10 = 2^1 * 3^0 * 5^1)
[11]    1,1,1,1,1;
[12]    3,3;
[13]    1,1,1,1,1,1;
[14]    2,2,2,2;
[15]    1,2,2;     (as 15 = 2^0 * 3^1 * 5^1)
[16]    4;
[17]    1,1,1,1,1,1,1;
[18]    2,3;       (as 18 = 2^1 * 3^2)
etc.
If n is 2^k (k>=1), then the partition is a singleton {k}, otherwise, add one to the exponent of 2 (= A007814(n)), and subtract one from the exponent of the greatest prime dividing n (= A071178(n)), leaving the intermediate exponents as they are, and then take partial sums of all, thus resulting for e.g. 15 = 2^0 * 3^1 * 5^1 the modified sequence of exponents {0+1, 1, 1-1} -> {1,1,0}, whose partial sums {1,1+1,1+1+0} -> {1,2,2} give the corresponding partition at row 15.
		

Crossrefs

For n>=2, the length of row n is given by A061395(n).
Cf. also A067255, A203623, A241914.
Other tables of partitions: A112798 (also based on prime factorization), A227739, A242628 (encoded in the binary representation of n), and A036036-A036037, A080576-A080577, A193073 for various lexicographical orderings.
Permutation A241909 maps between order of partitions employed here, and the order employed in A112798.
Permutation A122111 is induced when partitions in this list are conjugated.
A241912 gives the row numbers for which the corresponding rows in A112798 and here are the conjugate partitions of each other.

Programs

  • Mathematica
    Table[If[n == 1, {0}, Function[s, Function[t, Accumulate[If[Length@ t < 2, {0}, Join[{1}, ConstantArray[0, Length@ t - 2], {-1}]] + ReplacePart[t, Map[#1 -> #2 & @@ # &, s]]]]@ ConstantArray[0, Transpose[s][[1, -1]]]][FactorInteger[n] /. {p_, e_} /; p > 0 :> {PrimePi@ p, e}]], {n, 31}] // Flatten (* Michael De Vlieger, May 12 2017 *)

Formula

If A241914(n)=0 and A241914(n+1)=0, a(n) = A067255(n); otherwise, if A241914(n)=0 and A241914(n+1)>0, a(n) = A067255(n)+1; otherwise, if A241914(n)>0 and A241914(n+1)=0, a(n) = a(n-1) + A067255(n) - 1, otherwise, when A241914(n)>0 and A241914(n+1)>0, a(n) = a(n-1) + A067255(n).

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)).
Previous Showing 41-50 of 118 results. Next