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 13 results. Next

A036040 Irregular triangle of multinomial coefficients, read by rows (version 1).

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, 10, 15, 60, 15, 20, 45, 15, 1, 1, 7, 21, 35, 21, 105, 70, 105, 35, 210, 105, 35, 105, 21, 1, 1, 8, 28, 56, 35, 28, 168, 280, 210, 280, 56, 420, 280, 840, 105, 70, 560, 420, 56, 210, 28, 1, 1, 9, 36, 84, 126, 36, 252
Offset: 1

Views

Author

Keywords

Comments

This is different from A080575 and A178867.
T(n,m) = count of set partitions of n with block lengths given by the m-th partition of n.
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 (2006) and program below.)
The complete Bell polynomial of the first n primes gives A007446. (End)
From Tom Copeland, Apr 29 2011: (Start)
A relation between partition polynomials formed from these "refined" Stirling numbers of the second kind and umbral operator trees and Lagrange inversion is presented in the link "Lagrange a la Lah".
For simple diagrams of the relation between connected graphs, cumulants, and A036040, see the references on statistical physics below. In some sense, these graphs are duals of the umbral bouquets presented in "Lagrange a la Lah". (End)
These M3 (Abramowitz-Stegun) partition polynomials are the complete Bell polynomials (see a comment above) with recurrence (see the Wikipedia link) B_0 = 1, B_n = Sum_{k=0..n-1} binomial(n-1,k) * B_{n-1-k}*x[k+1], n >= 1. - Wolfdieter Lang, Aug 31 2016
With the indeterminates (x_1, x_2, x_3,...) = (t, -c_2*t, -c_3*t, ...) with c_n > 0, umbrally B(n,a.) = B(n,t)|{t^n = a_n} = 0 and B(j,a.)B(k,a.) = B(j,t)B(k,t)|{t^n =a_n} = d_{j,k} >= 0 is the coefficient of x^j/j!*y^k/k! in the Taylor series expansion of the formal group law FGL(x,y) = f[f^{-1}(x)+f^{-1}(y)], where a_n are the inversion partition polynomials for calculating f(x) from the coefficients of the series expansion of f^{-1}(x) given in A134685. - Tom Copeland, Feb 09 2018
For applications to functionals in quantum field theory, see Figueroa et al., Brouder, Kreimer and Yeats, and Balduf. In the last two papers, the Bell polynomials with the indeterminates (x_1, x_2, x_3,...) = (c_1, 2!c_2, 3!c_3, ...) are equivalent to the partition polynomials of A130561 in the indeterminates c_n. - Tom Copeland, Dec 17 2019
From Tom Copeland, Oct 15 2020: (Start)
With a_n = n! * b_n = (n-1)! * c_n for n > 0, represent a function with f(0) = a_0 = b_0 = 1 as an
A) exponential generating function (e.g.f), or formal Taylor series: f(x) = e^{a.x} = 1 + Sum_{n > 0} a_n * x^n/n!
B) ordinary generating function (o.g.f.), or formal power series: f(x) = 1/(1-b.x) = 1 + Sum_{n > 0} b_n * x^n
C) logarithmic generating function (l.g.f): f(x) = 1 - log(1 - c.x) = 1 + Sum_{n > 0} c_n * x^n /n.
Expansions of log(f(x)) are given in
I) A127671 and A263634 for the e.g.f: log[ e^{a.*x} ] = e^{L.(a_1,a_2,...)x} = Sum_{n > 0} L_n(a_1,...,a_n) * x^n/n!, the logarithmic polynomials, cumulant expansion polynomials
II) A263916 for the o.g.f.: log[ 1/(1-b.x) ] = log[ 1 - F.(b_1,b_2,...)x ] = -Sum_{n > 0} F_n(b_1,...,b_n) * x^n/n, the Faber polynomials.
Expansions of exp(f(x)-1) are given in
III) A036040 for an e.g.f: exp[ e^{a.x} - 1 ] = e^{BELL.(a_1,...)x}, the Bell/Touchard/exponential partition polynomials, a.k.a. the Stirling partition polynomials of the second kind
IV) A130561 for an o.g.f.: exp[ b.x/(1-b.x) ] = e^{LAH.(b.,...)x}, the Lah partition polynomials
V) A036039 for an l.g.f.: exp[ -log(1-c.x) ] = e^{CIP.(c_1,...)x}, the cycle index polynomials of the symmetric groups S_n, a.k.a. the Stirling partition polynomials of the first kind.
Since exp and log are a compositional inverse pair, one can extract the indeterminates of the log set of partition polynomials from the exp set and vice versa. For a discussion of the relations among these polynomials and the combinatorics of connected and disconnected graphs/maps, see Novak and LaCroix on classical moments and cumulants and the two books on statistical mechanics referenced below. (End)
From Tom Copeland, Jun 12 2021: (Start)
These Bell polynomials and their relations to the Faa di Bruno Hopf bialgebra, correlation functions in quantum field theory, and the moment-cumulant duality are given on pp. 134 -144 of Zeidler.
An interpretation of the coefficients of the polynomials is given in expositions of the exponential formula, or principle, in Cameron et al., Duchamp, Duchamp et al., Labelle and Leroux, and Scott and Sokal along with some history. The simplest applications of this principle are given in A060540. (End)

Examples

			Triangle begins:
  1;
  1,  1;
  1,  3,  1;
  1,  4,  3,  6,  1;
  1,  5, 10, 10, 15, 10,  1;
  1,  6, 15, 10, 15, 60, 15, 20, 45, 15, 1;
  ...
The first partition of 3 (i.e., (3)) induces the set {{1, 2, 3}}, so T(3, 1) = 1; the second one (i.e., (2, 1)) the sets {{1, 2}, {3}}, {{1, 3}, {2}}, and {{2, 3}, {1}}, so T(3, 2) = 3; and the third one (i.e., (1, 1, 1)) the set {{1}, {2}, {3}}, so T(3, 1) = 1. - _Lorenzo Sauras Altuzarra_, Jun 20 2022
		

References

  • Abramowitz and Stegun, Handbook, p. 831, column labeled "M_3".
  • C. Itzykson and J. Drouffe, Statistical Field Theory Vol. 2, Cambridge Univ. Press, 1989, page 412.
  • S. Ma, Statistical Mechanics, World Scientific, 1985, page 205.
  • E. Zeidler, Quantum Field Theory II: Quantum Electrodynamics, Springer, 2009.

Crossrefs

See A080575 for another version.
Row sums are the Bell numbers A000110.
Cf. A000040, A007446, A178866 and A178867 (version 3).
Cf. A127671.
Cf. A060540 for the coefficients of the compositions e^{ x^m/m! }.

Programs

  • Maple
    with(combinat): nmax:=8: for n from 1 to nmax do P(n):=sort(partition(n)): for r from 1 to numbpart(n) do B(r):=P(n)[r] od: for m from 1 to numbpart(n) do s:=0: j:=0: while sA036040(n,m):= n!/(mul((t!)^q(t)*q(t)!,t=1..n)); od: od: seq(seq(A036040(n, m), m=1..numbpart(n)), n=1..nmax); # Johannes W. Meijer, Jun 21 2010, Jul 12 2016
  • Mathematica
    runs[li:{__Integer}] := ((Length/@ Split[ # ]))&[Sort@ li]; Table[temp=Map[Reverse, Sort@ (Sort/@ IntegerPartitions[w]), {1}]; Apply[Multinomial, temp, {1}]/Apply[Times, (runs/@ temp)!, {1}], {w, 6}]
  • 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
    A036040_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))))} \\ Row n of the sequence is made of the coefficients of the monomials ordered by increasing total order (sum of powers) and then lexicographically. - M. F. Hasler, Nov 16 2013, updated Jul 12 2014
    
  • Sage
    from collections import Counter
    def ASPartitions(n, k):
        Q = [p.to_list() for p in Partitions(n, length=k)]
        for q in Q: q.reverse()
        return sorted(Q)
    def A036040_row(n):
        h = lambda p: product(map(factorial, Counter(p).values()))
        return [multinomial(p)//h(p) for k in (0..n) for p in ASPartitions(n, k)]
    for n in (1..10): print(A036040_row(n))
    # Peter Luschny, Dec 18 2016, corrected Apr 30 2022

Formula

E.g.f.: A(t) = exp(Sum_{k>=1} x[k]*(t^k)/k!).
T(n,m) is the coefficient of ((t^n)/n!)* x[1]^e(m,1)*x[2]^e(m,2)*...*x[n]^e(m,n) in A(t). Here the m-th partition of n, counted in Abramowitz-Stegun(A-St) order, is [1^e(m,1), 2^e(m,2), ..., n^e(m,n)] with e(m,j) >= 0 and if e(m, j)=0 then j^0 is not recorded.
a(n, m) = n!/Product_{j=1..n} j!^e(m,j)*e(m,j)!, with [1^e(m,1), 2^e(m,2), ..., n^e(m, n)] the m-th partition of n in the mentioned A-St order.
With the notation in the Lang reference, x(1) treated as a variable and D the derivative w.r.t. x(1), a raising operator for the polynomial S(n,x(1)) = P3_n(x[1], ..., x[n]) is R = Sum_{n>=0} x(n+1) D^n / n! ; i.e., R S(n, x(1)) = S(n+1, x(1)). The lowering operator is D; i.e., D S(n, x(1)) = n S(n-1, x(1)). The sequence of polynomials is an Appell sequence, so [S(.,x(1)) + y]^n = S(n, x(1) + y). For x(j) = (-1)^(j-1)* (j-1)! for j > 1, S(n, x(1)) = [x(1) - 1]^n + n [x(1) - 1]^(n-1). - Tom Copeland, Aug 01 2008
Raising and lowering operators are given for the partition polynomials formed from A036040 in the link in "Lagrange a la Lah Part I" on page 22. - Tom Copeland, Sep 18 2011
The n-th row is generated by the determinant of [Sum_{k=0..n-1} (x_(k+1)*(dP_n)^k/k!) - S_n], where dP_n is the n X n submatrix of A132440 and S_n is the n X n submatrix of A129185. The coefficients are flagged by the partitions of n represented by the monomials in the indeterminates x_k. Letting all x_n = t, generates the Bell / Touchard / exponential polynomials of A008277. - Tom Copeland, May 03 2014
The partition polynomials of A036039 are obtained by substituting (n-1)! x[n] for x[n] in the partition polynomials of this entry. - Tom Copeland, Nov 17 2015
-(n-1)! F(n, B(1, x[1]), B(2, x[1], x[2])/2!, ..., B(n, x[1], ..., x[n])/n!) = x[n] extracts the indeterminates of the complete Bell partition polynomials B(n, x[1], ..., x[n]) of this entry, where F(n, x[1], ..., x[n]) are the Faber polynomials of A263916. (Compare with A263634.) - Tom Copeland, Nov 29 2015; Sep 09 2016
T(n, m) = A127671(n, m)/A264753(n, m), n >= 1 and 1 <= m <= A000041(n). - Johannes W. Meijer, Jul 12 2016
From Tom Copeland, Sep 07 2016: (Start)
From the connections among the elementary Schur polynomials and the partition polynomials of A130561, A036039 and this array, the partition polynomials of this array satisfy (d/d(x_m)) P(n, x_1, ..., x_n) = binomial(n,m) * P(n-m, x_1, ..., x_(n-m)) with P(k, x_1, ..., x_n) = 0 for k < 0.
Just as in the discussion and example in A130561, the umbral compositional inverse sequence is given by the sequence P(n, x_1, -x_2, -x_3, ..., -x_n).
(End)
The partition polynomials with an index shift can be generated by (v(x) + d/dx)^n v(x). Cf. Guha, p. 12. - Tom Copeland, Jul 19 2018

Extensions

More terms from David W. Wilson
Additional comments from Wouter Meeussen, Mar 23 2003

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

A263634 Irregular triangle read by rows: row n gives coefficients of n-th logarithmic polynomial L_n(x_1, x_2, ...) with monomials sorted into standard order.

Original entry on oeis.org

1, -1, 1, 2, -3, 1, -6, 12, -4, -3, 1, 24, -60, 20, 30, -5, -10, 1, -120, 360, -120, -270, 30, 120, 30, -6, -15, -10, 1, 720, -2520, 840, 2520, -210, -1260, -630, 42, 210, 140, 210, -7, -21, -35, 1
Offset: 1

Views

Author

N. J. A. Sloane, Oct 29 2015

Keywords

Comments

"Standard order" here means as produced by Maple's "sort" command.
From Petros Hadjicostas, May 27 2020: (Start)
According to the Maple help files for the "sort" command, polynomials in multiple variables are "sorted in total degree with ties broken by lexicographic order (this is called graded lexicographic order)."
Thus for example, x_1^2*x_3 = x_1*x_1*x_3 > x_1*x_2*x_2 = x_1*x_2^2, while x_1^2*x_4 = x_1*x_1*x_4 > x_1*x_2*x_3. (End)
Row sums are 0 (for n > 1). Numbers of terms in rows are partition numbers A000041.
From Tom Copeland, Nov 06 2015: (Start)
With the formal Taylor series f(x) = 1 + x[1] x + x[2] x^2/2! + ... , the partition polynomials of this entry give d[log(f(x))]/dx = L_1(x[1]) + L_2(x[1], x[2]) x + L_3(...) x^2/2! + ..., and the coefficients of the reduced polynomials with x[n] = t are signed A028246.
The raising operator R = x + d[log(f(D)]/dD = x + L_1(x[1]) + L_2[x[1], x[2]) D + L_3(x[1], x[2], x[3]) D^2/2! + ... with D = d/dx generates an Appell sequence of polynomials, given umbrally by P_n(x[1], ..., x[n]; x) = (x[.] + x)^n = Sum_{k=0..n} binomial(n,k) x[k] * x^(n-k) = R^n 1 with the e.g.f. f(t)*e^(x*t) = exp[t P.(x[1], ..., x[.]; x)]. P_0 = x[0] = 1.
The umbral compositional inverse Appell sequence is generated by R = x - d[log(f(D))]/dD with e.g.f. e^(x*t)/f(t) = exp[t IP.(x[1], ..., x[.]; x)], so umbrally IP_n(x[1], ..., x[n]; P.(x[1], ..., x[n]; x)) = x^n = P_n(x[1], ..., x[n]; IP.(x[1], ..., x[n]; x)). An unsigned array for the reduced IP_n(x[1], ..., x[n]; x) polynomials with IP_0 = x[0] = 1 and x[n] = -1 for n > 0 is A154921, for which f(t) = 2 - e^t. (End)
From Tom Copeland, Sep 08 2016: (Start)
The Appell formalism allows a matrix representation in the power basis x^n of the raising operator R that incorporates this array's partition polynomials L_n(x[1], ..., x[n]):
VP_(n+1) = VP_n * R = VP_n * XPS^(-1) * MX * XPS, where XPS is the matrix formed from multiplying the n-th diagonal of the Pascal matrix PS of A007318 by the indeterminate x[n], with x[0] = 1 for the main diagonal of ones, i.e., XPS[n,k] = PS[n,k] * x[n-k]; the matrix MX is A129185; the matrix XPS^(-1) is the inverse of XPS, which can be formed by multiplying the diagonals of the Pascal matrix by the partition polynomials IPT(n, x[1], ..., x[n]) of A133314, i.e., XPS^(-1)[n,k] = PS[n,k] * IPT(n-k, x[1], ...); and VP_n is the row vector in the power basis representing the Appell polynomial P_n(x) formed from the basic sequence of moments 1, x[1], x[2], ..., i.e., umbrally P_n(x) = (x[.] + x)^n = Sum_{k=0..n} binomial(n,k) * x[k] * x^(n-k).
Then R = XPS^(-1) * MX * XPS is the Pascal matrix PS with an additional first superdiagonal of ones and the other lower diagonals multiplied by the partition polynomials of this array, i.e., R[n,k] = PS[n,k] * L_{n+1-k}(x[1], ..., x[n+1-k]) except for the first superdiagonal of ones.
Consistently, VP_n = (1, 0, 0, ...) * R^n = (1, 0, 0, ...) * XPS^(-1) * MX^n * XPS = (1, 0, 0, ...) * MX^n * XPS = the n-th row vector of XPS, which is the vector representation of P_n(x) = (x[.] + x)^n with x[0] = 1.
See the Copeland link for the umbral representation R = exp[g.*D] * x * exp[h.*D] that reflects the matrix representations.
The Stirling partition polynomials of the first kind St1_n(a[1], a[2], ..., a[n]) of A036039, the Stirling partition polynomials of the second kind St2_n(b[1], b[2], ..., b[n]) of A036040, and the refined Lah polynomials Lah_n[c[1], c[2], ..., c[n]) of A130561 are Appell sequences in the respective distinguished indeterminates a[1], b[1], and c[1]. Comparing the formulas for their raising operators with that in this entry, L_n(x[1], x[2], ..., x[n]) evaluates to
A) (n-1)! * a[n] for x[n] = St1_n(a[1], a[2], ..., a[n]);
B) b[n] for x[n] = St2_n(b[1], b[2], ..., b[n]);
C) n! * c[n] for x[n] = Lah_n(c[1], c[2], ..., c[n]).
Conversely, from the respective e.g.f.s (added Sep 12 2016)
D) x[n] = St1_n(L_1(x[1])/0!, ..., L_n(x[1], ..., x[n])/(n-1)!);
E) x[n] = St2_n(L_1(x[1]), ..., L_n(x[1], ..., x[n]));
F) x[n] = Lah_n(L_1(x[1])/1!, ..., L_n(x[1], ..., x[n])/n!).
Given only the Appell sequence with no closed form for the e.g.f., the raising operator can be generated using this formalism, as has been partially done for A134264. (End)
For the Appell sequences above, the raising operator is related to the recursion P_(n+1)(x) = x * P_n(x) + Sum_{k=0..n} binomial(n,k) * L_(n-k+1)(x[1], ..., x[n+k-1]) * P_k(x). For a derivation and connections to formal cumulants (c_n = L_n(x[1], ...)) and moments (m_n = x[n]), see the Copeland link on noncrossing partitions. With x = 0, the recursion reduces to x[n+1] = Sum_{k = 0..n} binomial(n,k) * L_(n-k+1)(x[1], ..., x[n+k-1]) * x[k] with x[0] = 1. This array is a differently ordered version of A127671. - Tom Copeland, Sep 13 2016
With x[n] = x^(n-1), a signed version of A130850 is obtained. - Tom Copeland, Nov 14 2016
See p. 2 of Getzler for a relation to stable graphs called necklaces used in computations for Deligne-Mumford-Knudsen moduli spaces of stable curves of genus 1. - Tom Copeland, Nov 15 2019
For a relation to a combinatorial Faa di Bruno Hopf algebra related to functional composition, as presented by Connes and Moscovici, see Figueroa et al. - Tom Copeland, Jan 17 2020
From Tom Copeland, May 17 2020: (Start)
The e.g.f. of an Appell sequence is f(t) e^(x*t) with f(0) = 1. Given the Laguerre-Polya class function f(t) = e^(-a*t^2 + b*t) Product_m (1 - t/z_m) e^(t/z_m) with a = 0 for simplicity (more generally a >= 0) and b real and where the product runs over all the zeros z_m of f(t) with all zeros real and Sum_m 1/(z_m)^2 convergent, the raising operator of the Appell polynomials is R = x + b - Sum_{k > 0} c_(k+1) D^k with c_k = Sum_m (1/(z_m)^k), i.e., traces of powers of the reciprocals of the zeros. From R in earlier comments, b = L_1(x_1) and otherwise c_k = -L_k(x_1, ..., x_k).
The Laguerre / Turan / de Gua inequalities (Csordas and Williamson and Skovgaard) imply that all the zeros of each Appell polynomial are real and simple and its extrema are local maxima above the x-axis and local minima below and are located above or below the zeros of the next lower degree Appell polynomial. (End)
From Tom Copeland, Oct 15 2020: (Start)
With a_n = n! * b_n = (n-1)! * c_n for n > 0, represent a function with f(0) = a_0 = b_0 = 1 as an
A) exponential generating function (e.g.f), or formal Taylor series: f(x) = e^{a.x} = 1 + Sum_{n > 0} a_n * x^n/n!
B) ordinary generating function (o.g.f.), or formal power series: f(x) = 1/(1-b.x) = 1 + Sum_{n > 0} b_n * x^n
C) logarithmic generating function (l.g.f): f(x) = 1 - log(1 - c.x) = 1 + Sum_{n > 0} c_n * x^n /n.
Expansions of log(f(x)) are given in
I) A127671 and A263634 for the e.g.f: log[ e^{a.*x} ] = e^{L.(a_1,a_2,...)x} = Sum_{n > 0} L_n(a_1,...,a_n) * x^n/n!, the logarithmic polynomials, cumulant expansion polynomials
II) A263916 for the o.g.f.: log[ 1/(1-b.x) ] = log[ 1 - F.(b_1,b_2,...)x ] = -Sum_{n > 0} F_n(b_1,...,b_n) * x^n/n, the Faber polynomials.
Expansions of exp(f(x)-1) are given in
III) A036040 for an e.g.f: exp[ e^{a.x} - 1 ] = e^{BELL.(a_1,...)x}, the Bell/Touchard/exponential partition polynomials, a.k.a. the Stirling partition polynomials of the second kind
IV) A130561 for an o.g.f.: exp[ b.x/(1-b.x) ] = e^{LAH.(b.,...)x}, the Lah partition polynomials
V) A036039 for an l.g.f.: exp[ -log(1-c.x) ] = e^{CIP.(c_1,...)x}, the cycle index polynomials of the symmetric groups S_n, a.k.a. the Stirling partition polynomials of the first kind.
Since exp and log are a compositional inverse pair, one can extract the indeterminates of the log set of partition polynomials from the exp set and vice versa. For a discussion of the relations among these polynomials and the combinatorics of connected and disconnected graphs/maps, see Novak and LaCroix on classical moments and cumulants and the two books on statistical mechanics referenced in A036040. (End)
Ignoring signs, these polynomials appear in Schröder in the set of equations (II) on p. 343 and in Stewart's translation on p. 31. - Tom Copeland, Aug 25 2021

Examples

			The first few polynomials are:
(1) x[1].
(2) -x[1]^2 + x[2].
(3) 2*x[1]^3 - 3*x[1]*x[2] + x[3].
(4) -6*x[1]^4 + 12*x[1]^2*x[2] - 4*x[1]*x[3] - 3*x[2]^2 + x[4].
(5) 24*x[1]^5 - 60*x[1]^3*x[2] + 20*x[1]^2*x[3] + 30*x[1]*x[2]^2 - 5*x[1]*x[4] - 10*x[2]*x[3] + x[5].
(6) -120*x[1]^6 + 360*x[1]^4*x[2] - 120*x[1]^3*x[3] - 270*x[1]^2*x[2]^2 + 30*x[1]^2*x[4] + 120*x[1]*x[2]*x[3] + 30*x[2]^3 - 6*x[1]*x[5] - 15*x[2]*x[4] - 10*x[3]^2 + x[6].
...
[1]    1
[2]   -1,    1
[3]    2,   -3,     1
[4]   -6,   12,    -4,    -3,   1
[5]   24,  -60,    20,    30,  -5,  -10,   1
[6] -120,  360,  -120,  -270,  30,  120,  30, -6, -15, -10, 1
		

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, pp. 140, 156, 308.

Crossrefs

Programs

  • Maple
    triangle := proc(numrows) local E, s, Q;
    E := add(x[i]*t^i/i!, i=1..numrows);
    s := series(log(1 + E), t, numrows+1);
    Q := k -> sort(expand(k!*coeff(s, t, k)));
    seq(print(coeffs(Q(k))), k=1..numrows) end:
    triangle(6); # updated by Peter Luschny, May 27 2020

Formula

G.f.: Log(1 + Sum_{i >= 1} x_i*t^i/i!) = Sum_{n >= 1} L_n(x_1, x_2, ...)*t^n/n!. [Comtet, p. 140, Eq. [5a]. - corrected by Tom Copeland, Sep 08 2016]
Conjecture: row polynomials are R(n,1) for n > 0 where R(n,k) = R(n-1,k+1) - Sum_{j=1..n-1} binomial(n-2,j-1)*R(j,k)*R(n-j,1) for n > 1, k > 0 with R(1,k) = x_k for k > 0. - Mikhail Kurkov, Mar 30 2025

A274804 The exponential transform of sigma(n).

Original entry on oeis.org

1, 1, 4, 14, 69, 367, 2284, 15430, 115146, 924555, 7991892, 73547322, 718621516, 7410375897, 80405501540, 914492881330, 10873902417225, 134808633318271, 1738734267608613, 23282225008741565, 323082222240744379, 4638440974576329923, 68794595993688306903
Offset: 0

Views

Author

Johannes W. Meijer, Jul 27 2016

Keywords

Comments

The exponential transform [EXP] transforms an input sequence b(n) into the output sequence a(n). The EXP transform is the inverse of the logarithmic transform [LOG], see the Weisstein link and the Sloane and Plouffe reference. This relation goes by the name of Riddell's formula. For information about the logarithmic transform see A274805. The EXP transform is related to the multinomial transform, see A274760 and the second formula.
The definition of the EXP transform, see the second formula, shows that n >= 1. To preserve the identity LOG[EXP[b(n)]] = b(n) for n >= 0 for a sequence b(n) with offset 0 the shifted sequence b(n-1) with offset 1 has to be used as input for the exponential transform, otherwise information about b(0) will be lost in transformation.
In the a(n) formulas, see the examples, the multinomial coefficients A178867 appear.
We observe that a(0) = 1 and provides no information about any value of b(n), this notwithstanding it is customary to start the a(n) sequence with a(0) = 1.
The Maple programs can be used to generate the exponential transform of a sequence. The first program uses a formula found by Alois P. Heinz, see A007446 and the first formula. The second program uses the definition of the exponential transform, see the Weisstein link and the second formula. The third program uses information about the inverse of the exponential transform, see A274805.
Some EXP transform pairs are, n >= 1: A000435(n) and A065440(n-1); 1/A000027(n) and A177208(n-1)/A177209(n-1); A000670(n) and A075729(n-1); A000670(n-1) and A014304(n-1); A000045(n) and A256180(n-1); A000290(n) and A033462(n-1); A006125(n) and A197505(n-1); A053549(n) and A198046(n-1); A000311(n) and A006351(n); A030019(n) and A134954(n-1); A038048(n) and A053529(n-1); A193356(n) and A003727(n-1).

Examples

			Some a(n) formulas, see A178867:
a(0) = 1
a(1) = x(1)
a(2) = x(1)^2 + x(2)
a(3) = x(1)^3 + 3*x(1)*x(2) + x(3)
a(4) = x(1)^4 + 6*x(1)^2*x(2) + 4*x(1)*x(3) + 3*x(2)^2 + x(4)
a(5) = x(1)^5 + 10*x(1)^3*x(2) + 10*x(1)^2*x(3) + 15*x(1)*x(2)^2 + 5*x(1)*x(4) + 10*x(2)*x(3) + x(5)
		

References

  • Frank Harary and Edgar M. Palmer, Graphical Enumeration, 1973.
  • Robert James Riddell, Contributions to the theory of condensation, Dissertation, University of Michigan, Ann Arbor, 1951.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, 1995, pp. 18-23.

Crossrefs

Programs

  • Maple
    nmax:=21: with(numtheory): b := proc(n): sigma(n) end: a:= proc(n) option remember; if n=0 then 1 else add(binomial(n-1, j-1) * b(j) *a(n-j), j=1..n) fi: end: seq(a(n), n=0..nmax); # End first EXP program.
    nmax:= 21: with(numtheory): b := proc(n): sigma(n) end: t1 := exp(add(b(n)*x^n/n!, n=1..nmax+1)): t2 := series(t1, x, nmax+1): a := proc(n): n!*coeff(t2, x, n) end: seq(a(n), n=0..nmax); # End second EXP program.
    nmax:=21: with(numtheory): b := proc(n): sigma(n) end: f := series(log(1+add(q(n)*x^n/n!, n=1..nmax+1)), x, nmax+1): d := proc(n): n!*coeff(f, x, n) end: a(0):=1: q(0):=1: a(1):=b(1): q(1):=b(1): for n from 2 to nmax+1 do q(n) := solve(d(n)-b(n), q(n)): a(n):=q(n): od: seq(a(n), n=0..nmax); # End third EXP program.
  • Mathematica
    a[0] = 1; a[n_] := a[n] = Sum[Binomial[n-1, j-1]*DivisorSigma[1, j]*a[n-j], {j, 1, n}]; Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Feb 22 2017 *)
    nmax = 20; CoefficientList[Series[Exp[Sum[DivisorSigma[1, k]*x^k/k!, {k, 1, nmax}]], {x, 0, nmax}], x] * Range[0, nmax]! (* Vaclav Kotesovec, Jun 08 2021 *)

Formula

a(n) = Sum_{j=1..n} (binomial(n-1,j-1) * b(j) * a(n-j)), n >= 1 and a(0) = 1, with b(n) = A000203(n) = sigma(n).
E.g.f.: exp(Sum_{n >= 1} b(n)*x^n/n!) with b(n) = sigma(n) = A000203(n).

A263633 Irregular triangle read by rows: row n gives coefficients of n-th ordinary Bell polynomial B_n(x_1, x_2, ...) with monomials sorted into graded lexicographic order.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 3, 2, 1, 1, 1, 4, 3, 3, 2, 2, 1, 1, 5, 4, 6, 3, 6, 1, 2, 2, 1, 1, 1, 6, 5, 10, 4, 12, 4, 3, 6, 3, 3, 2, 2, 2, 1, 1, 7, 6, 15, 5, 20, 10, 4, 12, 6, 12, 1, 3, 6, 6, 3, 3, 2, 2, 2, 1, 1, 1, 8, 7, 21, 6, 30, 20, 5, 20, 10, 30, 5, 4, 12, 12, 12, 12, 4, 3, 6, 6, 3, 3, 6, 1, 2, 2, 2, 2, 1
Offset: 1

Views

Author

N. J. A. Sloane, Oct 28 2015

Keywords

Comments

"Ordinary" here means in contrast to "exponential", cf. A178867 (see Comtet).
Graded lexicographic order with x[1] > x[2] > ... > x[n] means that monomials are compared first by their total degree, with ties broken by lexicographic order. These monomials correspond to integer partitions.
Row sums are powers of 2. Numbers of terms in rows are partition numbers A000041.
OP_n(-a_1,..,-a_n) = EP_n(a_1,2!*a_2,..,n!*a_n) / n!, where OP_n(a_1,..,a_n) are the partition polynomials of this entry and EP_n, the polynomials of A133314; i.e., the sequences are related as reciprocal o.g.f.s are to reciprocal e.g.f.s. The polynomials play a role in expansion of the iterated Lie derivative (g(x) D_x)^n) formalism for the compositional inversion sketched in A133932. With x[n] = t, the array reduces to the Pascal matrix A007318. - Tom Copeland, Sep 19 2016
The signed row partition polynomials can be generated by the Gram determinants of equation 2.23 on page 133 of the Verde-Star paper. E.g., h_3 = -b_1^3 + 2 b_1 b_2 - b_3 corresponds to the third row. The connection to A133314 is obtained by substituting a(k) = k!*b_k = -k!*x[k] and b(k) = k!*h_k in A133314 to compute reciprocals of o.g.f.s rather than e.g.f.s. - Tom Copeland, Dec 04 2016
For a relation to lambda operations in K-theory on vector bundles, see p. 218 of Dugger. - Tom Copeland, Jul 25 2017
Since E(x) = (1+x_1*x)(1+x_2*x)...(1+x_m*x) is the o.g.f. for the elementary symmetric polynomials e_n(x_1,x_2,...,x_m) and the o.g.f. for the complete symmetric polynomials h_n(x_1,x_2,...,x_m) is H(x) = 1 / E(-x), this entry's partition polynomials with correct signs give either sequence in terms of the other. - Tom Copeland, Jan 29 2018
A133314 has an interpretation as weighted surjective mappings. With the connections of this mapping colored and permuted to give mappings distinguished by the order of the colorings (an induced linear ordering by color of the connecting arrows), the signed partition polynomials of this entry, multiplied by n!, are generated. - Tom Copeland, Sep 10 2020

Examples

			The first few polynomials are:
1, x[1]
2, x[1]^2 + x[2]
3, x[1]^3 + 2*x[1]*x[2] + x[3]
4, x[1]^4 + 3*x[1]^2*x[2] + 2*x[1]*x[3] + x[2]^2 + x[4]
5, x[1]^5 + 4*x[1]^3*x[2] + 3*x[1]^2*x[3] + 3*x[1]*x[2]^2 + 2*x[1]*x[4] + 2*x[2]*x[3] + x[5]
6, x[1]^6 + 5*x[1]^4*x[2] + 4*x[1]^3*x[3] + 6*x[1]^2*x[2]^2 + 3*x[1]^2*x[4] + 6*x[1]*x[2]*x[3] + x[2]^3 + 2*x[1]*x[5] + 2*x[2]*x[4] + x[3]^2 + x[6]
...
		

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, pp. 136, 309.

Crossrefs

For triangle of coefficients of exponential Bell polynomials see A178867.

Programs

  • Maple
    with(Groebner):
    A263633_row := proc(n) local EE,t1,t2,Q,F,X,p,L,q,c,r;
    EE := add(x[i]*t^i, i=1..2*n);
    t1 := 1/(1-EE):
    t2 := series(t1, t, 2*n):
    Q := k -> expand(coeff(t2, t, k));
    X := seq(x[i], i=1..n);
    p := Q(n);
    L := [];
    while p <> 0 do
       r := LeadingTerm(p, grlex(X));
       c := r[1]; q := r[2];
       p := p - c*q;
       L := [op(L), c];
    od;
    L end:
    for n from 1 to 8 do A263633_row(n) od; # Program expanded by Peter Luschny, Sep 26 2016

Formula

G.f.: 1/(1-Sum_{i >= 1} x_i*t^i) = 1 + Sum_{n >= 1} B_n(x_1, x_2,...)*t^n. [Comtet, p. 136, Eq. [3o'].]

Extensions

More terms and some edits by Peter Luschny, Sep 26 2016

A319182 Irregular triangle where T(n,k) is the number of set partitions of {1,...,n} with block-sizes given by the integer partition with Heinz number A215366(n,k).

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 3, 4, 6, 1, 1, 5, 10, 15, 10, 10, 1, 1, 15, 6, 10, 15, 15, 60, 45, 20, 15, 1, 1, 7, 21, 35, 105, 21, 105, 70, 105, 35, 210, 105, 35, 21, 1, 1, 8, 28, 35, 28, 56, 210, 168, 280, 280, 105, 420, 56, 840, 280, 420, 70, 560, 210, 56, 28, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Sep 12 2018

Keywords

Comments

A generalization of the triangle of Stirling numbers of the second kind, these are the coefficients appearing in the expansion of (x_1 + x_2 + x_3 + ...)^n in terms of augmented monomial symmetric functions. They also appear in Faa di Bruno's formula.

Examples

			Triangle begins:
  1
  1   1
  1   3   1
  1   3   4   6   1
  1   5  10  15  10  10   1
  1  15   6  10  15  15  60  45  20  15   1
The fourth row corresponds to the symmetric function identity (x_1 + x_2 + x_3 + ...)^4 = m(4) + 3 m(22) + 4 m(31) + 6 m(211) + m(1111).
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    numSetPtnsOfType[ptn_]:=Total[ptn]!/Times@@Factorial/@ptn/Times@@Factorial/@Length/@Split[ptn];
    Table[numSetPtnsOfType/@primeMS/@Sort[Times@@Prime/@#&/@IntegerPartitions[n]],{n,7}]

Formula

T(n,k) = A124794(A215366(n,k)).

A178866 Basic Multinomial Coefficients.

Original entry on oeis.org

1, 1, 1, 3, 1, 10, 1, 15, 15, 10, 1, 105, 35, 21, 1, 280, 210, 105, 56, 35, 28, 1, 1260, 1260, 378, 280, 126, 84, 36, 1, 6300, 3150, 2520, 2100, 1575, 945, 630, 210, 126, 120, 45, 1, 34650, 17325, 15400, 6930, 6930, 5775, 4620, 4620, 990, 462, 330, 165, 55, 1
Offset: 1

Views

Author

Johannes W. Meijer and Manuel Nepveu (Manuel.Nepveu(AT)tno.nl), Jun 21 2010, Jun 24 2010

Keywords

Comments

All multinomial coefficients (MC's) are equal, but some are more equal than others. These are the basic multinomial coefficients (BMC's). The ordinary multinomial coefficients can be generated with the basic multinomial coefficients; see A178867.
A number n can be partitioned in A000041(n) different ways. The seven partitions of n=5 are e.g. [5] = [1+4] = [2+3] = [1+1+3] = [1+2+2] = [1+1+1+2] = [1+1+1+1+1]. We observe that the k-th partition of n will consist of a certain number of 1s (i.e., "singles"), a certain number of 2s (i.e., "pairs"), a certain number of 3s (i.e., "triples"), a certain number of 4s (i.e., "4-tuples") and so on. We denote with qt the number of t-tuples in the k-th partition of n. We observe that for the third partition of n=5 there is one pair (q2=1) and one triple (q3=1).
The multinomial coefficients are defined by M3[n,k] = n!/product((t!)^qt*(qt)!, t = 1..n), see Abramowitz and Stegun. For the third partition M3[5,3] = 10, so there are 10 different ways of distributing one pair (B1, B1) and one triple (B2, B2, B2) over five positions.
We define the BMC's as the multinomial coefficients M3[n,k] for which there are no singles (q1=0) in the k-th partition of n for n>=2. Furthermore we define a(1) = 1.
The number of a(n) terms in a triangle row lead to sequence A002865(n) (n>=2). The row sums lead to sequence A000296(n) (n>=2).

Examples

			The first few triangle rows are (P = Pair; T = Triple; 4-T = 4 Tuple; etc..):
n = 1: 1;
n = 2: 1 (1*P);
n = 3: 1 (1*T);
n = 4: 3 (2*P), 1 (1*4-T);
n = 5: 10 (1*P+1*T), 1 (1*5-T);
n = 6: 15 (3*P), 15 (1*4-T+1*P), 10 (2*T), 1 (1*6-T);
n = 7: 105 (1*T+2*P), 35 (1*4-T+1*T), 21 (1*5-T+1*P), 1 (1*7-T);
		

Crossrefs

Cf. A036040 (version 1), A080575 (version 2) and A178867 (version 3).

Programs

  • Maple
    with(combinat): nmax:=11; A178866(1):=1: T:=1: for n from 1 to nmax do y(n):=numbpart(n): P(n):=sort(partition(n)): k:=0: for r from 1 to y(n) do if P(n)[r,1]>1 then k:=k+1; B(k):=P(n)[r]: fi; od: A002865(n):=k; for k from 1 to A002865(n) do s:=0: j:=1: while sA002865(n))], `>`): for k from 1 to A002865(n) do M3[n,k]:=a[k] od: for k from 1 to A002865(n) do T:=T+1: A178866(T):= M3[n,k]: od: od: seq(A178866(n),n=1..T);

Formula

n = sum(qt*t, t=1..n)
M3[n,k] = n!/product((t!)^qt*(qt)!, t = 1..n)

A276816 Irregular triangle read by rows: T(n,m) = coefficients in power/Fourier series expansion of an arbitrary anharmonic oscillator's exact period.

Original entry on oeis.org

-24, 480, -120, 6720, 3360, -241920, 1774080, -560, 40320, 40320, -1774080, 20160, -3548160, 61501440, -591360, 92252160, -1845043200, 8364195840, -2520, 221760, 221760, -11531520, 221760, -23063040, 461260800, 110880, -23063040, -11531520, 1383782400, -15682867200, -11531520, 691891200, 1383782400, -62731468800, 476759162880
Offset: 1

Views

Author

Bradley Klee, Sep 18 2016

Keywords

Comments

The phase space trajectory A276738 has phase space angular velocity A276814 and differential time dependence A276815. We calculate the period K = Int dt over the range [2*Pi, 0], trivial to compute from A276815 using A273496. Then K/(2*Pi) = 1 + sum b^(2n)*T(n,m)*f'(n,m); where the sum runs over n = 1, 2, 3 ... and m = 1, 2, 3, ... A000041(2n), and f'(n,m) = f(2n,m) of A276738 with Q=1/2. Choosing one point from the infinite dimensional coefficient space--v_i=0 for odd i, v_i=(-1)^(i/2-1)/2/(i!) otherwise--setting b^2 = 4*k, and summing over the entire table obtains the EllipticK expansion 2*A038534/A038533. For more details read "Plane Pendulum and Beyond by Phase Space Geometry" (Klee, 2016).

Examples

			n/m   1     2     3         4         5
------------------------------------------
1  | -24   480
2  | -120  6720  3360   -241920   1774080
------------------------------------------
For pendulum values, f'(1,*)={(-1/384), 0}, f'(2,*) = {1/46080, 0, 1/294912, 0, 0}. Then K/(2Pi) = 1+(-1/384)*(-24)*4*k+((1/46080)*(-120)+(1/294912)*3360)*16*k^2=1+(1/4)*k + (9/64)*k^2, the first few terms of EllipticK.
		

Crossrefs

Programs

  • Mathematica
    RExp[n_]:=Expand[b Plus[R[0], Total[b^# R[#] & /@ Range[n]]]]
    RCalc[n_]:=With[{basis =Subtract[Tally[Join[Range[n + 2], #]][[All, 2]],Table[1, {n + 2}]] & /@ IntegerPartitions[n + 2][[3 ;; -1]]},
    Total@ReplaceAll[Times[-2, Multinomial @@ #, v[Total[#]],Times @@ Power[RSet[# - 1] & /@ Range[n + 2], #]] & /@ basis, {Q^2 -> 1, v[2] -> 1/4}]]
    dt[n_] := With[{exp = Normal[Series[-1/(1 + x)/.x -> Total[(2 # v[#] RExp[n - 1]^(# - 2) &/@Range[3, n + 2])], {b, 0, n}]]},
    Expand@ReplaceAll[Coefficient[exp, b, #] & /@ Range[n], R -> RSet]]
    RingGens[n_] :=Times @@ (v /@ #) & /@ (IntegerPartitions[n]/. x_Integer :> x + 2)
    tri[m_] := MapThread[Function[{a, b},Times[-# /. v[n_] :> Q^n /. Q^n_ :>  Binomial[n, n/2],(1/2) Coefficient[a, #]] & /@ b], {dt[2 m][[2 #]] & /@ Range[m], RingGens[2 #] & /@ Range[m]}]
    RSet[0] = 1; Set[RSet[#], Expand@RCalc[#]] & /@ Range[2*7];
    tri7 = tri[7]; tri7 // TableForm
    PeriodExpansion[tri_, n_] := ReplaceAll[ 1 + Dot[MapThread[ Dot, {tri,
      2 RingGens[2 #] & /@ Range[n]}], (2 h)^(Range[n])], {v[m_] :> (v[m]*(1/2)^m)}]
    {#,SameQ[Normal@Series[(2/Pi)*EllipticK[k],{k,0,7}],#]}&@ReplaceAll[
    PeriodExpansion[tri7,7],{v[n_/;OddQ[n]]:>0,v[n_]:> (-1)^(n/2-1)/2/(n!),h->2 k}]

A211350 Refined triangle A124323: T(n,k) is the number of partitions of an n-set that are of type k (k-th integer partition, defined by A194602).

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 6, 4, 3, 1, 1, 10, 10, 15, 5, 10, 1, 1, 15, 20, 45, 15, 60, 6, 15, 15, 10, 1, 1, 21, 35, 105, 35, 210, 21, 105, 105, 70, 7, 105, 21, 35, 1, 1, 28, 56, 210, 70, 560, 56, 420, 420, 280, 28, 840, 168, 280, 8, 105, 210, 280, 28
Offset: 1

Views

Author

Tilman Piesk, Apr 09 2012

Keywords

Comments

Name could also be "Triangle of multinomial coefficients, read by rows (version 4)", compare A036040, A080575, A178867. The latter and this one differ only in the order of columns.
The rows are counted from 1, the columns from 0.
Row lengths: 1,2,3,5,7,11... (partition numbers A000041)
Row sums: 1,2,5,15,52,203... (Bell numbers A000110)
Row maxima: 1,1,3,6,15,60,210,840,3780,12600,69300,415800... (A102356)
Distinct entries per row: 1,1,2,4,4,7,7,13,17,23,26,40... (A102465)
Rightmost columns are those from Pascal's triangle A007318 without the second one (i.e. triangle A184049). The other columns - (always?) without a 1 at the top - are multiples of these columns from Pascal's triangle; so actually only the top elements of each column are needed to calculate the other entries; these top elements are in A211360. (The top elements of the related triangle A178867 are in A178866.)

Crossrefs

A353131 Triangle read by rows of partial Bell polynomials B_{n,k} (x_1,...,x_{n-k+1}) evaluated at 2, 2, 12, 72, ..., (n-k)(n-k+1)!, n>=1, 1<=k<=n.

Original entry on oeis.org

2, 2, 4, 12, 12, 8, 72, 108, 48, 16, 480, 960, 600, 160, 32, 3600, 9360, 7320, 2640, 480, 64, 30240, 100800, 95760, 42000, 10080, 1344, 128, 282240, 1189440, 1350720, 700560, 201600, 34944, 3584, 256, 2903040, 15240960, 20442240, 12337920, 4142880, 854784, 112896, 9216, 512
Offset: 1

Views

Author

Jordan Weaver, Apr 24 2022

Keywords

Examples

			For n=4,k=2, the partial Bell polynomial is B_{4,2}(x_1,x_2,x_3)=4x_1x_3+3x_2^2, so a(4,2)=B_{4,2}(2,2,12)=4*2*12+3*2^2=108.
Triangle starts:
[1]      2;
[2]      2,       4;
[3]     12,      12,       8;
[4]     72,     108,      48,     16;
[5]    480,     960,     600,    160,     32;
[6]   3600,    9360,    7320,   2640,    480,    64;
[7]  30240,  100800,   95760,  42000,  10080,  1344,  128;
[8] 282240, 1189440, 1350720, 700560, 201600, 34944, 3584, 256.
		

Crossrefs

Formula

T(n,k) = A353132(n,k)*(n-k+1)!.
Sum_{k=1..n} T(n,k)/(n-k+1)! = A349458(n).
Showing 1-10 of 13 results. Next