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 21-30 of 40 results. Next

A133932 Coefficients of a partition transform for Lagrange inversion of -log(1 - u(.)*t), complementary to A134685 for an e.g.f.

Original entry on oeis.org

1, -1, 3, -2, -15, 20, -6, 105, -210, 40, 90, -24, -945, 2520, -1120, -1260, 420, 504, -120, 10395, -34650, 25200, 18900, -2240, -15120, -9072, 1260, 2688, 3360, -720, -135135, 540540, -554400, -311850, 123200, 415800, 166320, -50400, -56700, -120960, -75600, 18144, 20160, 25920, -5040
Offset: 1

Views

Author

Tom Copeland, Jan 27 2008

Keywords

Comments

Let f(t) = -log(1 - u(.)*t) = Sum_{n>=1} (u_n / n) * t^n.
If u_1 is not equal to 0, then the compositional inverse for f(t) is given by g(t) = Sum_{j>=1} P(n,t) where, with u_n denoted by (n'),
P(1,t) = (1')^(-1) * [ 1 ] * t
P(2,t) = (1')^(-3) * [ -1 (2') ] * t^2 / 2!
P(3,t) = (1')^(-5) * [ 3 (2')^2 - 2 (1')(3') ] * t^3 / 3!
P(4,t) = (1')^(-7) * [ -15 (2')^3 + 20 (1')(2')(3') - 6 (1')^2 (4') ] * t^4 / 4!
P(5,t) = (1')^(-9) * [ 105 (2')^4 - 210 (1') (2')^2 (3') + 40 (1')^2 (3')^2 + 90 (1')^2 (2') (4') - 24 (1')^3 (5') ] * t^5 / 5!
P(6,t) = (1')^(-11) * [ -945 (2')^5 + 2520 (1') (2')^3 (3') - 1120 (1')^2 (2') (3')^2 - 1260 (1')^2 (2')^2 (4') + 420 (1')^3 (3')(4') + 504 (1')^3 (2')(5') - 120 (1')^4 (6') ] * t^6 / 6!
See A134685 for more information.
From Tom Copeland, Sep 28 2016: (Start)
P(7,t) = (1')^(-13) * [ 10395 (2')^6 - 34650 (1')(2')^4(3') + (1')^2 [25200 (2')^2(3')^2 + 18900 (2')^3(4')] - (1')^3 [2240 (3')^3 + 15120 (2')(3')(4') + 9072 (2')^2(5')] + (1')^4 [1260 (4')^2 + 2688 (3')(5') + 3360 (2')(6')] - 720 (1')^5(7')] * t^7 / 7!
P(8,t) = (1')^(-15) * [ -135135 (2')^7 + 540540 (1')(2')^5(3') - (1')^2 [554400 (2')^3(3')^2 + 311850 (2')^4(4')] + (1')^3 [123200 (2')(3')^3 + 415800 (2')^2(3')(4') + 166320 (2')^3(5')] - (1')^4 [50400 (3')^2(4') + 56700 (2')(4')^2 + 120960 (2')(3')(5') + 75600 (2')^2(6')] + (1')^5 [18144 (4')(5') + 20160 (3')(6') + 25920 (2')(7')] - 5040 (1')^6(8')] * t^8 / 8! (End)

Examples

			From _Tom Copeland_, Sep 18 2014: (Start)
Let f(x) = log((1-ax)/(1-bx))/(b-a) = -log(1-u.*x) = x + (a+b)x^2/2 + (a^2+ab+b^2)x^3/3 + (a^3+a^2b+ab^2+a^3)x^4/4 + ... . with (u.)^n = u_n = h_(n-1)(a,b) the complete homogeneous polynomials in two indeterminates.
Then the inverse g(x) = (e^(ax)-e^(bx))/(a*e^(ax)-b*e^(bx)) = x - (a+b)x^2/2! + (a^2+4ab+b^2)x^3/3! - (a^3+11a^2b+11ab^2+b^3)x^4/4! + ... , where the bivariate polynomials are the Eulerian polynomials of A008292.
The inversion formula gives, e.g., P(3,x) = 3(u_2)^2 - 2u_3 = 3(h_1)^2 - 2h_2 = 3(a+b)^2 - 2(a^2 + ab + b^2) = a^2 + 4ab + b^2. (End)
		

Crossrefs

Cf. A145271 (A111999, A007318) = (reduced array, associated g(x)).

Programs

  • Mathematica
    rows[nn_] := {{1}}~Join~With[{s = InverseSeries[t (1 + Sum[u[k] t^k/(k+1), {k, nn}] + O[t]^(nn+1))]}, Table[(n+1)! Coefficient[s, t^(n+1) Product[u[w], {w, p}]], {n, nn}, {p, Reverse[Sort[Sort /@ IntegerPartitions[n]]]}]];
    rows[7] // Flatten (* Andrey Zabolotskiy, Mar 08 2024 *)

Formula

The bracketed partitions of P(n,t) are of the form (u_1)^e(1) (u_2)^e(2) ... (u_n)^e(n) with coefficients given by (-1)^(n-1+e(1)) * [2*(n-1)-e(1)]! / [ 2^e(2) (e(2))! * 3^e(3) (e(3))! * ... n^e(n) * (e(n))! ].
From Tom Copeland, Sep 06 2011: (Start)
Let h(t) = 1/(df(t)/dt)
= 1/Ev[u./(1-u.t)]
= 1/((u_1) + (u_2)*t + (u_3)*t^2 + (u_4)*t^3 + ...),
where Ev denotes umbral evaluation.
Then for the partition polynomials of A133932,
n!*P(n,t) = ((t*h(y)*d/dy)^n) y evaluated at y=0,
and the compositional inverse of f(t) is
g(t) = exp(t*h(y)*d/dy) y evaluated at y=0.
Also, dg(t)/dt = h(g(t)). (End)
From Tom Copeland, Oct 20 2011: (Start)
With exp[x* PS(.,t)] = exp[t*g(x)] = exp[x*h(y)d/dy] exp(t*y) eval. at y=0, the raising/creation and lowering/annihilation operators defined by R PS(n,t)=PS(n+1,t) and L PS(n,t)= n*PS(n-1,t) are
R = t*h(d/dt) = t* 1/[(u_1) + (u_2)*d/dt + (u_3)*(d/dt)^2 + ...], and
L = f(d/dt) = (u_1)*d/dt + (u_2)*(d/dt)^2/2 + (u_3)*(d/dt)^3/3 + ....
Then P(n,t) = (t^n/n!) dPS(n,z)/dz eval. at z=0. (Cf. A139605, A145271, and link therein to Mathemagical Forests for relation to planted trees on p. 13.) (End)
The bracketed partition polynomials of P(n,t) are also given by (d/dx)^(n-1) 1/[u_1 + u_2 * x/2 + u_3 * x^2/3 + ... + u_n * x^(n-1)/n]^n evaluated at x=0. - Tom Copeland, Jul 07 2015
From Tom Copeland, Sep 19 2016: (Start)
Equivalent matrix computation: Multiply the m-th diagonal (with m=1 the index of the main diagonal) of the lower triangular Pascal matrix A007318 by f_m = (m-1)! u_m = (d/dx)^m f(x) evaluated at x=0 to obtain the matrix UP with UP(n,k) = binomial(n,k) f_{n+1-k}, or equivalently, multiply the diagonals of A094587 by u_m. Then P(n,t) = (1, 0, 0, 0,..) [UP^(-1) * S]^(n-1) FC * t^n/n!, where S is the shift matrix A129185, representing differentiation in the basis x^n//n!, and FC is the first column of UP^(-1), the inverse matrix of UP. These results follow from A145271 and A133314.
With u_1 = 1, the first column of UP^(-1) with u_1 = 1 (with initial indices [0,0]) is composed of the row polynomials n! * OP_n(-u_2,...,-u_(n+1)), where OP_n(x[1],...,x[n]) are the row polynomials of A263633 for n > 0 and OP_0 = 1, which are related to those of A133314 as reciprocal o.g.f.s are related to reciprocal e.g.f.s; e.g., UP^(-1)[0,0] = 1, Up^(-1)[1,0] = -u_2, UP^(-1)[2,0] = 2! * (-u_3 + u_2^2) = 2! * OP_2(-u_2,-u_3).
Also, P(n,t) = (1, 0, 0, 0,..) [UP^(-1) * S]^n (0, 1, 0, ..)^T * t^n/n! in agreement with A139605. (End)
From Tom Copeland, Sep 20 2016: (Start)
Let PS(n,u1,u2,...,un) = P(n,t) / (t^n/n!), i.e., the square-bracketed part of the partition polynomials in the expansion for the inverse in the comment section, with u_k = uk.
Also let PS(n,u1=1,u2,...,un) = PB(n,b1,b2,...,bK,...) where each bK represents the partitions of PS, with u1 = 1, that have K components or blocks, e.g., PS(5,1,u2,...,u5) = PB(5,b1,b2,b3,b4) = b1 + b2 + b3 + b4 with b1 = -24 u5, b2 = 90 u2 u4 + 40 u3^2, b3 = -210 u2^2 u3, and b4 = 105 u2^4.
The relation between solutions of the inviscid Burgers's equation and compositional inverse pairs (cf. link and A086810) implies, for n > 2, PB(n, 0 * b1, 1 * b2, ..., (K-1) * bK, ...) = (1/2) * Sum_{k = 2..n-1} binomial(n+1,k) * PS(n-k+1, u_1=1, u_2, ..., u_(n-k+1)) * PS(k,u_1=1,u_2,...,u_k).
For example, PB(5,0 * b1, 1 * b2, 2 * b3, 3 * b4) = 3 * 105 u2^4 - 2 * 210 u2^2 u3 + 1 * 90 u2 u4 + 1 * 40 u3^2 - 0 * -24 u5 = 315 u2^4 - 420 u2^2 u3 + 90 u2 u4 + 40 u3^2 = (1/2) [2 * 6!/(4!*2!) * PS(2,1,u2) * PS(4,1,u2,...,u4) + 6!/(3!*3!) * PS(3,1,u2,u3)^2] = (1/2) * [ 2 * 6!/(4!*2!) * (-u2) (-15 u2^3 + 20 u2 u3 - 6 u4) + 6!/(3!*3!) * (3 u2^2 - 2 u3)^2].
Also, PB(n,0*b1,1*b2,...,(K-1)*bK,...) = d/dt t^(n-2)*PS(n,u1=1/t,u2,...,un)|{t=1} = d/dt (1/t)*PS(n,u1=1,t*u2,...,t*un)|{t=1}.
(End)
A recursion relation for computing each partition polynomial of this entry from the lower order polynomials and the coefficients of the refined Stirling polynomials of the first kind A036039 is presented in the blog entry "Formal group laws and binomial Sheffer sequences." - Tom Copeland, Feb 06 2018

Extensions

Terms ordered according to the reversed Abramowitz-Stegun ordering of partitions (with every k' replaced by (k-1)') by Andrey Zabolotskiy, Mar 08 2024

A141618 Triangle read by rows: number of nilpotent partial transformations (of an n-element set) of height r (height(alpha) = |Im(alpha)|), 0 <= r < n.

Original entry on oeis.org

1, 1, 2, 1, 9, 6, 1, 28, 72, 24, 1, 75, 500, 600, 120, 1, 186, 2700, 7800, 5400, 720, 1, 441, 12642, 73500, 117600, 52920, 5040, 1, 1016, 54096, 571536, 1764000, 1787520, 564480, 40320, 1, 2295, 217800, 3916080, 21019824, 40007520, 27941760, 6531840, 362880, 1, 5110, 839700, 24555600, 214326000
Offset: 1

Views

Author

Abdullahi Umar, Aug 23 2008

Keywords

Comments

The sum of each row of the sequence (as a triangular array) is A000272. Second left-downward diagonal is A058877.
From Tom Copeland, Oct 26 2014: (Start)
With T(x,t) the e.g.f. for A055302 for the number of labeled rooted trees with n nodes and k leaves, the mirror of the row polynomials of this array are given by e^T(x,t) = exp[ t * x + (2t) * x^2/2! + (6t + 3t^2) * x^3/3! + ...] = 1 + t * x + (2t + t^2) * x^2/2! + (6t + 9t^2 + t^3) * x^3/3! + ... = 1 + Nr(x,t).
Equivalently, e^x-1 = Nr[Tinv(x,t),t] = t * N[t*Tinv(x,t),1/t], where N(x,t) is the e.g.f. of this array and Tinv(x,t) is the comp. inverse in x of T(x,t). Note that Nr(x,t) = t * N(x*t,1/t), and N(x,t) = t * Nr(x*t,1/t). Also, log[1 + Nr(x,t)]= x * [t + Nr(x,t)] = T(x,t).
E.g.f. is N(x,t)= t * {exp[T(x*t,1/t)] - 1}, and log[1 + N(x,t)/t] = T(x*t,1/t) = x + (2t) * x^2/2! + (3t + 6t^2) * x^3/3! + (4t + 36t^2 + 24t^3) * x^4/4! + ... = x + (t) * x^2 + (t + 2t^2) * x^3/2! + (t + 9t^2 + 6t^3) * x^4/3! + ... is the comp. inverse in x of x / [1 + t * (e^x - 1)].
The exp/log transforms (A036040/A127671) generally give associations between enumerations of sets of connected graphs/objects (in this case, trees) and sets of disconnected (or not necessarily connected) graphs/objects (in this case, bipartite graphs of the nilpotent transformations). The transforms also relate formal cumulants and moments so that Nr(x,t) is then the e.g.f. for the formal moments associated to the formal cumulants whose e.g.f. is T(x,t). (End)
T(n,k) is the number of parking functions of length n containing exactly k+1 distinct values in its image. - Alan Kappler, Jun 08 2024

Examples

			N(J(4,2)) = 6*6*2 = 72.
From _Peter Bala_, Oct 22 2008: (Start)
Triangle begins
n\k|..0.....1.....2.....3.....4....5
=====================================
.1.|..1
.2.|..1.....2
.3.|..1.....9.....6
.4.|..1....28....72....24
.5.|..1....75...500...600...120
.6.|..1...186..2700..7800..5400...720
...
(End)
		

Crossrefs

Programs

  • Maple
    A048993 := proc(n,k)
        combinat[stirling2](n,k) ;
    end proc:
    A141618 := proc(n,k)
        binomial(n,k)*k!*A048993(n,k+1) ;
    end proc:
  • Mathematica
    Flatten[CoefficientList[CoefficientList[InverseSeries[Series[Log[1 + x]/(1 + t*x),{x,0,9}]],x]*Table[n!, {n,0,9}],t]] (* Peter Luschny, Oct 24 2015, after Peter Bala *)
  • PARI
    A055302(n,k)=n!/k!*stirling(n-1, n-k,2);
    T(n,k)=A055302(n+1,n+1-k) / (n+1);
    for(n=1,10,for(k=1,n,print1(T(n,k),", "));print());
    \\ Joerg Arndt, Oct 27 2014

Formula

N(J(n,r)) = C(n,r)*S(n,r+1)*r! where S(n, r + 1) is a Stirling number of the second kind (given by A048993 with zeros removed); generating function = (x+1)^(n-1).
From Peter Bala, Oct 22 2008: (Start)
Define a functional I on formal power series of the form f(x) = 1 + ax + bx^2 + ... by the following iterative process. Define inductively f^(1)(x) = f(x) and f^(n+1)(x) = f(x*f^(n)(x)) for n >= 1. Then set I(f(x)) = lim_{n -> infinity} f^(n)(x) in the x-adic topology on the ring of formal power series; the operator I may also be defined by I(f(x)) := 1/x*series reversion of x/f(x).
Let f(x) = 1 + a*x + a*x^2/2! + a*x^3/3! + ... . Then the e.g.f. for this table is I(f(x)) = 1 + a*x +(a + 2*a^2)*x^2/2! + (a + 9*a^2 + 6*a^3)*x^3/3! + (a + 28*a^2 + 72*a^3 + 24*a^4)*x^4/4! + ... . Note, if we take f(x) = 1 + a*x + a*x^2 + a*x^3 + ... then I(f(x)) is the o.g.f. of the Narayana triangle A001263. (End)
A generator for this array is given by the inverse, g(x,t), of f(x,t)= x/(1 + t * (e^x-1)). Then A248927 gives h(x,t)= x / f(x,t) = 1 + t*(e^x-1)= 1 + t * (x + x^2/2! + x^3/3! + ...) and g(x,t)= x * (1 + t * x + (t + 2 t^2) * x^2/2! + (t + 9 t^2 + 6 t^3) * x^3/3! + ...), so by Bala's arguments A248927 is a refinement of A141618 with row sums A000272. The connection to Narayana numbers is reflected in the relation between A248927 and A134264. See A145271 for more relations that g(x,t) and f(x,t) must satisfy. - Tom Copeland, Oct 17 2014
T(n,k) = C(n,k-1) * A028246(n,k) = C(n,k-1) * A019538(n,k)/k = A055302(n+1,n+1-k) / (n+1). - Tom Copeland, Oct 25 2014
E.g.f. is the series reversion of log(1 + x)/(1 + t*x) with respect to x. Cf. A198204. - Peter Bala, Oct 21 2015

Extensions

More terms from Joerg Arndt, Oct 27 2014

A104203 Expansion of the sine lemniscate function sl(x).

Original entry on oeis.org

1, 0, 0, 0, -12, 0, 0, 0, 3024, 0, 0, 0, -4390848, 0, 0, 0, 21224560896, 0, 0, 0, -257991277243392, 0, 0, 0, 6628234834692624384, 0, 0, 0, -319729080846260095008768, 0, 0, 0, 26571747463798134334265819136, 0, 0, 0, -3564202847752289659513902717468672, 0, 0
Offset: 1

Views

Author

Troy Kessler (tkessler1977(AT)netzero.com), Mar 13 2005

Keywords

Comments

For the series expansion of the cosine lemniscate cl(x) see A159600. The lemniscatic functions sl(x) and cl(x) played a significant role in the development of mathematics in the 18th and 19th centuries. They were the first examples of elliptic functions. In algebraic number theory all abelian extensions of the Gaussian rationals Q(i) are contained in extensions of Q(i) generated by division values of the lemniscatic functions. - Peter Bala, Aug 25 2011

Examples

			G.f. = x - 12*x^5 + 3024*x^9 - 4390848*x^13 + 21224560896*x^17 + ...
Example of the recurrence relation a(n+2) = -2*sum {i+j+k = n} n!/(i!*j!*k!)*a(i)*a(j)*a(k) for n = 13:
There are only 6 compositions of 13-2 = 11 that give a nonzero contribution to the sum, namely 11 = 9+1+1 = 1+9+1 = 1+1+9 and 11 = 5+5+1 = 5+1+5 = 1+5+5
and hence
a(13) = -2*(3*11!/(9!*1!*1*)*a(9)*a(1)*a(1)+3*11!/(5!*5!*1!)*a(5)*a(5)*a(1)) = -4390848.
		

Crossrefs

Cf. A144849, A144853, A159600 (cosine lemniscate).
Taking every fourth term gives A283831.
Cf. A242240.

Programs

  • Mathematica
    Drop[ Range[0, 37]! CoefficientList[ InverseSeries[ Series[ Integrate[1/(1 - x^4)^(1/2), x], {x, 0, 37}]], x], 1] (* Robert G. Wilson v, Mar 16 2005 *)
    a[ n_] := If[ n < 0, 0, n! SeriesCoefficient[ JacobiSD[x, 1/2] 2^((n - 1)/2), {x, 0, n}]]; (* Michael Somos, Jan 17 2017 *)
    a[ n_] := If[ n < 0, 0, n! SeriesCoefficient[ JacobiSN[x, -1], {x, 0, n}]]; (* Michael Somos, May 26 2021 *)
  • PARI
    x='x+O('x^66);Vec(serlaplace(serreverse( intformal(1/sqrt(1-x^4))))) \\ Joerg Arndt, Mar 24 2017

Formula

From Peter Bala, Aug 25 2011: (Start)
The function sl(x) satisfies the differential equation sl''(x) = -2*sl^3(x) with initial conditions sl(0) = 0, sl'(0) = 1.
Recurrence relation:
a(n+2) = -2*sum {i+j+k = n} n!/(i!*j!*k!)*a(i)*a(j)*a(k).
The inverse of the sine lemniscate function may be defined as the algebraic integral
sl^(-1)(x) := Integral_{s=0..x} 1/sqrt(1-s^4) ds = x + x^5/10 + x^9/24 + 5*x^13/208 + ....
Series reversion produces the expansion
sl(x) = x - 12*x^5/5! + 3024*x^9/9! - 4390848*x^13/13! + ....
The coefficients in this expansion can be calculated using nested derivatives as follows (see [Dominici, Theorem 4.1]): Let f(x) = sqrt(1-x^4). Define the nested derivative D^n[f](x) by means of the recursion
D^0[f](x) = 1 and D^(n+1)[f](x) = d/dx(f(x)*D^n[f](x)) for n >= 0.
The coefficients in the expansion of D^n[f](x) in powers of f(x) are given in A145271. Then we have a(n) = D^(n-1)[f](0).
a(n) is divisible by 12^n and a(n)/12^n produces (a signed and aerated version of) A144853(n).
(End)
The function sl(x) satisfies the differential equation sl'(x)^2 + sl(x)^4 = 1 with initial conditions sl(0) = 0, sl'(0) = 1. - Michael Somos, Oct 12 2019

Extensions

More terms from Robert G. Wilson v, Mar 16 2005
a(37)- a(39) by Vincenzo Librandi, Mar 24 2017

A248120 Triangle read by rows: Lagrange (compositional) inversion of a function in terms of the coefficients of the Taylor series expansion of its reciprocal, scaled version of A248927, n >= 1, k = 1..A000041(n-1).

Original entry on oeis.org

1, 2, 6, 3, 24, 36, 4, 120, 360, 60, 80, 5, 720, 3600, 1800, 1200, 300, 150, 6, 5040, 37800, 37800, 16800, 3150, 12600, 3150, 420, 630, 252, 7, 40320, 423360, 705600, 235200, 176400, 352800, 58800, 35280, 23520, 35280, 7056, 1960, 1176, 392, 8
Offset: 1

Views

Author

Tom Copeland, Oct 28 2014

Keywords

Comments

Coefficients are listed in reverse graded colexicographic order (A228100). This is the reverse of Abramowitz and Stegun order (A036036).
Coefficients for Lagrange (compositional) inversion of a function in terms of the Taylor series expansion of its shifted reciprocal. Complementary to A134264 for formal power series and a scaled version of A248927. A refinement of A055302, which enumerates the number of labeled rooted trees with n nodes and k leaves, with row sums A000169.
Given an invertible function f(t) analytic about t=0 with f(0)=0 and df(0)/dt not 0, form h(t) = t / f(t) and denote h_n = (n') as the coefficient of t^n/n! in h(t). Then the compositional inverse of f(t), g(t), as a formal Taylor series, or e.g.f., is given up to the first few orders by
g(t) = [ 1 (0') ] * t
+ [ 2 (0') (1') ] * t^2/2!
+ [ 6 (0') (1')^2 + 3 (0')^2 (2') ] * t^3/3!
+ [24 (0') (1')^3 + 36 (0')^2 (1') (2') + 4 (0')^3 (3')] * t^4/4!
+ [120 (0') (1')^4 + 360 (0')^2 (1')^2 (2') + (0')^3 [60 (2')^2
+ 80 (1') (3')] + 5 (0')^4 (4')] * t^5/5!
+ [720 (0')(1')^5 + 3600 (0')^2 (1')^3(2') + (0')^3 [1800 (1')(2')^2 + 1200 ( 1')^2(3')] + (0')^4 [300 (2')(3') + 150 (1')(4')] + 6 (0')^5 (5')] * t^6/6! + ... .
Operating with [1/(n*(n-1))] d/d(1') = [1/(n*(n-1))] d/d(h_1) on the n-th partition polynomial in square brackets above associated with t^n/n! generates the (n-1)-th partition polynomial.
Each n-th partition polynomial here is n times the (n-1)-th partition polynomial of A248927.
From Tom Copeland, Nov 24 2014: (Start)
The n-th row is a mapping of the homogeneous symmetric monomials generated by [x(1) + x(2) + ... + x(n)]^(n-1) under the umbral mapping x(m)^j = h_j, for any m. E.g., [a + b + c]^2 = [a^2 + b^2 + c^2] + 2 * [a*b + a*c + b*c] is mapped to [3 * h_2] + 2 * [3 * h_1 * h_1] = 3 * h_2 + 6 * h_1^2 = A248120(3) with h_0 = 1. (Example corrected Jul 14 2015.)
For another example and relations to A134264 and A036038, see A134264. The general relation is n * A134264(n) = A248120(n) / A036038(n-1) where the arithmetic is performed on the coefficients of matching partitions in each row n.
The Abramowitz and Stegun reference in A036038 gives combinatorial interpretations of A036038 and relations to other number arrays.
This can also be related to repeated umbral composition of Appell sequences and topology with the Bernoulli numbers playing a special role. See the Todd class link. (End)
As presented above and in the Copeland link, this entry is related to exponentiation of e.g.f.s and, therefore, to discussions in the Scott and Sokal preprint (see eqn. 3.1 on p. 10 and eqn. 3.62 p. 24). - Tom Copeland, Jan 17 2017

Examples

			Triangle begins
     1;
     2;
     6,     3;
    24,    36,     4;
   120,   360,    60,    80,    5;
   720,  3600,  1800,  1200,  300,   150,    6;
  5040, 37800, 37800, 16800, 3150, 12600, 3150, 420, 630, 252, 7;
  ...
For f(t)= e^t-1, h(t)= t/f(t)= t/(e^t-1), the e.g.f. for the Bernoulli numbers, and plugging the Bernoulli numbers into the Lagrange inversion formula gives g(t)= t - t^2/2 + t^3/3 + ... = log(1+t).
		

Crossrefs

Cf. A134264 and A248927, "scaled" versions of this Lagrange inversion.
Cf. A036038.

Programs

  • PARI
    C(v)={my(n=vecsum(v), S=Set(v)); (n+1)*n!^2/((n-#v+1)!*prod(i=1, #S, my(x=S[i], c=#select(y->y==x, v)); x!^c*c!))}
    row(n)=[C(Vec(p)) | p<-Vecrev(partitions(n-1))]
    { for(n=1, 7, print(row(n))) } \\ Andrew Howroyd, Feb 02 2022

Formula

For j>1, there are P(j,m;a...) = j! / [ (j-m)! (a_1)! (a_2)! ... (a_(j-1))! ] permutations of h_0 through h_(j-1) in which h_0 is repeated (j-m) times; h_1, repeated a_1 times; and so on with a_1 + a_2 + ... + a_(j-1) = m.
If, in addition, a_1 + 2 * a_2 + ... + (j-1) * a_(j-1) = j-1, then each distinct combination of these arrangements is correlated with a partition of j-1.
T(j,k) is (j-1)! P(j,m;a...) / [(2!)^a_2 (3!)^a_3 ... ((j-1)!)^a_(j-1) ] for the k-th partition of j-1. The partitions are in reverse order--from bottom to top--from the order in Abramowitz and Stegun (page 831).
For example, from g(t) above, T(6,3) = 5! * [6!/(3!*2!)]/(2!)^2 = 1800 for the 3rd partition from the bottom under n=6-1=5 with m=3 parts, and T(6,5) = 5! * [6!/4!]/(2!*3!) = 300.
If the initial factorial and final denominator of T(n,k) are removed and the expression divided by j and the partitions reversed in order, then A134264 is obtained, a refinement of the Narayana numbers.
For f(t) = t*e^(-t), g(t) = T(t), the Tree function, which is the e.g.f. of A000169, and h(t) = t/f(t) = e^t, so h_n = 1 for all n in this case; therefore, the row sums are A000169(n) = n^(n-1) = n* A000272(n).
Let W(x) = 1/(df(x)/dx)= 1/{d[x/h(x)]/dx}=1/[d{x/[h_0+h_1*x+ ...]/dx]. Then the partition polynomials above are given by (W(x)*d/dx)^n x, evaluated at x=0, and the compositional inverse of f(t) is g(t)=exp(t*W(x)*d/dx) x, evaluated at x=0. Also, dg(t)/dt = W(g(t)). See A145271.
With exp[x* PS(.,t)] = exp[t*g(x)]=exp[x*W(y)d/dy] exp(t*y) eval. at y=0, the raising (creation) and lowering (annihilation) operators defined by R PS(n,t) = PS(n+1,t) and L PS(n,t)= n * PS(n-1,t) are R = t * W(d/dt) and L =(d/dt)/h(d/dt)=(d/dt) 1/[(h_0)+(h_1)*d/dt+(h_2)*(d/dt)^2/2!+...], which will give a lowering operator associated to the refined f-vectors of permutohedra (cf. A133314 and A049019).
Then [dPS(n,z)/dz]/n eval. at z=0 are the row partition polynomials of this entry. (Cf. A139605, A145271, and link therein to Mathemagical Forests for relation to planted trees on p. 13.)
Following the notes connected to the Lagrange reversion theorem in A248927, a generator for the n-th partition polynomial P_n of this entry is (d/dx)^(n-1) (h (x))^n, and -log(1-t*P.) = (t*Q.) / (1 - t*Q.), umbrally, where (Q.)^n = Q_n is the n-th partition polynomial of A248927. - Tom Copeland, Nov 25 2016
With h_0 = 1, the n-th partition polynomial is obtained as the n-th element (with initial index 0) of the first column of M^{n+1}, where M is the matrix with M_{i,j}= binomial(i,j) h_{i-j}, i.e., the lower triangular Pascal matrix with its n-th diagonal multiplied by h_n. This follows from the Lagrange inversion theorem and the relation between powers of matrices such as M and powers of formal Taylor series discussed in A133314. This is equivalent to repeated binomial convolution of the coefficients of the Taylor series with itself. - Tom Copeland, Nov 13 2019
T(n,k) = n*A248927(n,k). - Andrew Howroyd, Feb 02 2022

Extensions

Terms a(31) and beyond from Andrew Howroyd, Feb 02 2022

A080795 Number of minimax trees on n nodes.

Original entry on oeis.org

1, 1, 4, 20, 128, 1024, 9856, 110720, 1421312, 20525056, 329334784, 5812797440, 111923560448, 2334639652864, 52444850814976, 1262260748288000, 32405895451246592, 883950436237705216, 25530268718794276864
Offset: 0

Views

Author

Emanuele Munarini, Mar 14 2003

Keywords

Comments

A minimax tree is (i) rooted, (ii) binary (i.e., each node has at most two sons), (iii) topological (i.e., the left son is different from the right son), (iv) labeled (i.e., there is a bijection between the nodes and a finite totally ordered set). Moreover it has the following property: (v) the label of each node x is the minimum or the maximum of all the labels of the nodes of the subtree whose root is x.

Crossrefs

Programs

  • Maple
    w := (sqrt(2) - 1)/2:
    seq(simplify((2*sqrt(2))^(n-1)*add(k!*Stirling2(n, k)*w^(k-1), k = 1..n)), n = 1..20); # Peter Bala, Oct 31 2024
  • Mathematica
    Range[0, 18]! CoefficientList[ Series[ Tanh[ ArcTanh[ Sqrt[2]] - Sqrt[2] x]/Sqrt[2], {x, 0, 18}], x] (* Robert G. Wilson v *)
  • PARI
    {Stirling2(n,k)=(1/k!)*sum(j=0,k,(-1)^j*binomial(k,j)*(k-j)^n)}
    /* Finite sum given by Peter Bala: */
    {a(n)=local(w=(sqrt(2)-1)/2);if(n==0,1,round((2*sqrt(2))^(n-1)*sum(k=1,n,k!*Stirling2(n,k)*w^(k-1))))}

Formula

E.g.f.: ( tanh(arctanh(sqrt(2)) - sqrt(2)*x) )/sqrt(2) = sqrt(2)/2* (1 + (3-2*sqrt(2))* exp(2*sqrt(2)*x) )/( 1 - (3-2*sqrt(2))* exp(2*sqrt(2)*x) ).
Recurrence: a(n+1) = 2*(Sum_{k=0..n} binomial(n,k)*a(k)*a(n-k)) - 0^n.
a(2*n) = 2^n * A006154(2*n), n>0 (conjectured). - Ralf Stephan, Apr 29 2004
For n>0, a(n) = sqrt(2)^(3*n+1)*Sum_{k>=0} k^n/(1+sqrt(2))^(2*k). - Benoit Cloitre, Jan 12 2005
From Peter Bala, Jan 30 2011: (Start)
A finite sum equivalent to the previous formula of Benoit Cloitre is
a(n) = (2*sqrt(2))^(n-1)*Sum_{k = 1..n} k!*Stirling2(n,k)*w^(k-1), for n >= 1, with w = (sqrt(2) - 1)/2.
This formula can be used to prove congruences for a(n). For example, a(p) == (-1)^((p^2-1)/8) (mod p) for odd prime p.
For similar formulas for labeled plane and non-plane unary-binary trees see A080635 and A000111 respectively.
For a sequence of related polynomials see A185419. For a recursive table to calculate a(n) see A185420.
The e.g.f. A(x) satisfies the autonomous differential equation d/dx (A(x)) = 2*A(x)^2 - 1. (End)
From Peter Bala, Aug 26 2011: (Start)
The inverse function A(x)^(-1) of the generating function A(x) satisfies A(x)^(-1) = Integral_{t = 1..x} 1/(2*t^2 - 1) dt.
Let f(x) = 2*x^2 - 1. Define the nested derivative D^n[f](x) by means of the recursion D^0[f](x) = 1 and D^(n+1)[f](x) = d/dx(f(x)*D^n[f](x)) for n >= 0 (see A145271 for the coefficients in the expansion of D^n[f](x) in powers of f(x)). Then by [Dominici, Theorem 4.1] we have a(n+1) = D^n[f](1).
For n >= 1 we have a(n) = (2 + sqrt(2))^(n-1)*A(n, 3 - 2*sqrt(2)), where {A(n, x)}n>=1 = [1, 1 + x, 1 + 4*x + x^2, 1 + 11*x + 11*x^2 + x^3, ...] denotes the sequence of Eulerian polynomials (see A008292).
a(n+1) = (-1)^n*(sqrt(-2))^n * R(n, sqrt(-2)) where R(n, x) are the polynomials defined in A185896 (derivative polynomials associated with the function sec^2(x)). (End)
G.f.: 1 + x/G(0) where G(k) = 1 - 4*x*(k+1) - 2*x^2*(k+1)*(k+2)/G(k+1); (continued fraction). - Sergei N. Gladkovskii, Jan 11 2013
G.f.: 1 + x/(G(0) -x), where G(k) = 1 - x*(k+1) - 2*x*(k+1)/(1 - x*(k+2)/G(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Dec 24 2013
E.g.f.: sqrt(2)*( -1/2 + (3+2*sqrt(2))/(4 + 2*sqrt(2)- E(0) )), where E(k) = 2 + 2*sqrt(2)*x/( 2*k+1 - 2*sqrt(2)*x/E(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Dec 27 2013
a(n) ~ n! * 2^((3*n+1)/2) / (log(3+2*sqrt(2)))^(n+1). - Vaclav Kotesovec, Feb 25 2014

A355777 Partition triangle read by rows. A statistic of permutations given by their Lehmer code refining Euler's triangle A173018.

Original entry on oeis.org

1, 1, 1, 1, 1, 4, 1, 1, 7, 4, 11, 1, 1, 11, 15, 32, 34, 26, 1, 1, 16, 26, 15, 76, 192, 34, 122, 180, 57, 1, 1, 22, 42, 56, 156, 474, 267, 294, 426, 1494, 496, 423, 768, 120, 1, 1, 29, 64, 98, 56, 288, 1038, 1344, 768, 855, 1206, 5142, 2829, 5946, 496, 2127, 9204, 4288, 1389, 2904, 247, 1
Offset: 0

Views

Author

Peter Luschny, Jul 16 2022

Keywords

Comments

An exposition of the theory is in Hivert et al. (see the table p. 4), test data can be found in the Statistics Database at St000275.
The ordering of the partitions is defined in A080577. See the comments in A356116 for the definition of the terms 'partition triangle' and 'reduced partition triangle'.
An alternative representation is Tom Copeland's A145271 which has a faster Maple program. The Sage program below, on the other hand, explicitly describes the combinatorial construction and shows how the permutations are bundled into partitions via the Lehmer code.

Examples

			The table T(n, k) begins:
[0] 1;
[1] 1;
[2] 1, 1;
[3] 1, 4,            1;
[4] 1, [7, 4],       11,                   1;
[5] 1, [11, 15],     [32, 34],             26,               1;
[6] 1, [16, 26, 15], [76, 192, 34],        [122, 180],       57,         1;
[7] 1, [22, 42, 56], [156, 474, 267, 294], [426, 1494, 496], [423, 768], 120, 1;
Summing the bracketed terms reduces the triangle to Euler's triangle A173018.
.
The Lehmer mapping of the permutations to the partitions, case n = 4, k = 1:
   1243, 1324, 1423, 2134, 2341, 3124, 4123 map to the partition [3, 1] and
   1342, 2143, 2314, 3412 map to the partition [2, 2]. Thus A173018(4, 1) = 7 + 4 = 11.
.
The cardinality of the preimage of the partitions, i.e. the number of permutations which map to the same partition, are the terms of the sequence. Here row 6:
[6] => 1
[5, 1] => 16
[4, 2] => 26
[3, 3] => 15
[4, 1, 1] => 76
[3, 2, 1] => 192
[2, 2, 2] => 34
[3, 1, 1, 1] => 122
[2, 2, 1, 1] => 180
[2, 1, 1, 1, 1] => 57
[1, 1, 1, 1, 1, 1] => 1
		

Crossrefs

Cf. A000295 (subdiagonal), A000124 (column 2), A000142 (row sums), A000041 (row lengths).
Cf. A179454 (permutation trees), A123125 and A173018 (Eulerian numbers), A145271 (variant).

Programs

  • SageMath
    import collections
    @cached_function
    def eulerian_stat(n):
        res = collections.defaultdict(int)
        for p in Permutations(n):
            c = p.to_lehmer_code()
            l = [c.count(i) for i in range(len(p)) if i in c]
            res[Partition(reversed(sorted(l)))] += 1
        return sorted(res.items(), key=lambda x: len(x[0]))
    @cached_function
    def A355777_row(n): return [v[1] for v in eulerian_stat(n)]
    def A355777(n, k): return A355777_row(n)[k]
    for n in range(8): print(A355777_row(n))

A248927 Triangle read by rows: T(n,k) are the coefficients of the Lagrange (compositional) inversion of a function in terms of the Taylor series expansion of its reciprocal, n >= 1, k = 1..A000041(n-1).

Original entry on oeis.org

1, 1, 2, 1, 6, 9, 1, 24, 72, 12, 16, 1, 120, 600, 300, 200, 50, 25, 1, 720, 5400, 5400, 2400, 450, 1800, 450, 60, 90, 36, 1, 5040, 52920, 88200, 29400, 22050, 44100, 7350, 4410, 2940, 4410, 882, 245, 147, 49, 1, 40320, 564480, 1411200, 376320, 705600, 940800
Offset: 1

Views

Author

Tom Copeland, Oct 16 2014

Keywords

Comments

Coefficients are listed in reverse graded colexicographic order (A228100). This is the reverse of Abramowitz and Stegun order (A036036).
Coefficients for Lagrange (compositional) inversion of a function in terms of the Taylor series expansion of its shifted reciprocal. Complementary to A134264 for formal power series. A refinement of A141618 with row sums A000272.
Given an invertible function f(t) analytic about t=0 with f(0)=0 and df(0)/dt not 0, form h(t) = t / f(t) and denote h_n = (n') as the coefficient of t^n/n! in h(t). Then the compositional inverse of f(t), g(t), as a formal Taylor series, or e.g.f., is given up to the first few orders by
g(t)/t = [ 1 (0') ]
+ [ 1 (0') (1') ] * t
+ [ 2 (0') (1')^2 + 1 (0')^2 (2') ] * t^2/2!
+ [ 6 (0') (1')^3 + 9 (0')^2 (1') (2') + 1 (0')^3 (3') ] * t^3/3!
+ [24 (0') (1')^4 + 72 (0')^2 (1')^2 (2') + (0')^3 [12 (2')^2
+ 16 (1') (3')] + (0')^4 (4')] * t^4/4!
+ [120 (0')(1')^5 + 600 (0')^2 (1')^3(2') + (0')^3 [300 (1')(2')^2 + 200 ( 1')^2(3')] + (0')^4 [50 (2')(3') + 25 (1')(4')] + (0')^5 (5')] * t^5/5! + [720 (0')(1')^6 + (0')^2 (1')^4(2')+(0')^3 [5400 (1')^2(2')^2 + 2400 (1')^3(3')] + (0')^4 [450 (2')^3+ 1800 (1')(2')(3') + 450( 1')^2(4')]+ (0')^5 [60 (3')^2 + 90 (2')(4') + 36 (1')(5')] + (0')^6 (6')] * t^6/6! + ...
..........
From Tom Copeland, Oct 28 2014: (Start)
Expressing g(t) as a Taylor series or formal e.g.f. in the indeterminates h_n generates a refinement of A055302, which enumerates the number of labeled root trees with n nodes and k leaves, with row sum A000169.
Operating with (1/n^2) d/d(1') = (1/n^2) d/d(h_1) on the n-th partition polynomial in square brackets above associated with t^n/n! generates the (n-1)-th partition polynomial.
Multiplying the n-th partition polynomial here by (n + 1) gives the (n + 1)-th partition polynomial of A248120. (End)
These are also the coefficients in the expansion of a series related to the Lagrange reversion theorem presented in Wikipedia of which the Lagrange inversion formula about the origin is a special case. Cf. Copeland link. - Tom Copeland, Nov 01 2016

Examples

			Triangle T(n,k) begins:
    1;
    1;
    2,    1;
    6,    9,    1;
   24,   72,   12,   16,   1;
  120,  600,  300,  200,  50,   25,   1;
  720, 5400, 5400, 2400, 450, 1800, 450, 60, 90, 36, 1;
  ...
For f(t) = e^t-1, h(t) = t/f(t) = t/(e^t-1), the e.g.f. for the Bernoulli numbers, and plugging the Bernoulli numbers into the Lagrange inversion formula gives g(t) = t - t^2/2 + t^3/3 + ... = log(1+t).
		

Crossrefs

Cf. A134264 and A248120, "scaled" versions of this Lagrange inversion.
Cf. A036038.

Programs

  • PARI
    C(v)={my(n=vecsum(v), S=Set(v)); n!^2/((n-#v+1)!*prod(i=1, #S, my(x=S[i], c=#select(y->y==x, v)); x!^c*c!))}
    row(n)=[C(Vec(p)) | p<-Vecrev(partitions(n-1))]
    { for(n=1, 7, print(row(n))) } \\ Andrew Howroyd, Feb 02 2022

Formula

For j>1, there are P(j,m;a...) = j! / [ (j-m)! (a_1)! (a_2)! ... (a_(j-1))! ] permutations of h_0 through h_(j-1) in which h_0 is repeated (j-m) times; h_1, repeated a_1 times; and so on with a_1 + a_2 + ... + a_(j-1) = m.
If, in addition, a_1 + 2 * a_2 + ... + (j-1) * a_(j-1) = j-1, then each distinct combination of these arrangements is correlated with a partition of j-1.
T(j,k) is [(j-1)!/j]* P(j,m;a...) / [(2!)^a_2 (3!)^a_3 ... ((j-1)!)^a_(j-1) ] for the k-th partition of j-1. The partitions are in reverse order--from bottom to top--from the order in Abramowitz and Stegun (page 831).
For example, from g(t) above, T(6,3) = [5!/6][6!/(3!*2!)]/(2!)^2 = 300 for the 3rd partition from the bottom under n=6-1=5 with m=3 parts, and T(6,5) = [5!/6][6!/4!]/(2!*3!) = 50.
If the initial factorial and final denominator are removed and the partitions reversed in order, A134264 is obtained, a refinement of the Narayana numbers.
For f(t) = t*e^(-t), g(t) = T(t), the Tree function, which is the e.g.f. of A000169, and h(t) = t/f(t) = e^t, so h_n = 1 for all n in this case; therefore, the row sums of A248927 are A000169(n)/n = n^(n-2) = A000272(n).
Let W(x) = 1/(df(x)/dx)= 1/{d[x/h(x)]/dx}=1/{d[x/[h_0+h_1*x+ ...]]/dx}. Then the partition polynomials above are given by (1/n)(W(x)*d/dx)^n x, evaluated at x=0, and the compositional inverse of f(t) is g(t)= exp(t*W(x)*d/dx) x, evaluated at x=0. Also, dg(t)/dt = W(g(t)). See A145271.
With exp[x* PS(.,t)] = exp[t*g(x)]=exp[x*W(y)d/dy] exp(t*y) eval. at y=0, the raising (creation) and lowering (annihilation) operators defined by R PS(n,t) = PS(n+1,t) and L PS(n,t)= n * PS(n-1,t) are R = t * W(d/dt) and L =(d/dt)/h(d/dt)=(d/dt) 1/[(h_0)+(h_1)*d/dt+(h_2)*(d/dt)^2/2!+...], which will give a lowering operator associated to the refined f-vectors of permutohedra (cf. A133314 and A049019).
Then [dPS(n,z)/dz]/n eval. at z=0 are the row partition polynomials of this entry. (Cf. A139605, A145271, and link therein to Mathemagical Forests for relation to planted trees on p. 13.)
As noted in A248120 and A134264, this entry is given by the Hadamard product by partition of A134264 and A036038. For example, (1,4,2,6,1)*(1,4,6,12,24) = (1,16,12,72,24). - Tom Copeland, Nov 25 2016
T(n,k) = ((n-1)!)^2/((n-j)!*Product_{i>=1} s_i!*(i!)^s_i), where (1*s_1 + 2*s_2 + ... = n-1) is the k-th partition of n-1 and j = s_1 + s_2 ... is the number of parts. - Andrew Howroyd, Feb 02 2022

Extensions

Name edited and terms a(31) and beyond from Andrew Howroyd, Feb 02 2022

A101343 Triangle read by rows: nonzero coefficients of the polynomials F_n(x) which express derivatives of tan(z) in terms of powers of tan(z).

Original entry on oeis.org

1, 1, 1, 2, 2, 6, 8, 2, 24, 40, 16, 120, 240, 136, 16, 720, 1680, 1232, 272, 5040, 13440, 12096, 3968, 272, 40320, 120960, 129024, 56320, 7936, 362880, 1209600, 1491840, 814080, 176896, 7936, 3628800, 13305600, 18627840, 12207360, 3610112, 353792
Offset: 0

Views

Author

Don Knuth, Jan 28 2005

Keywords

Comments

Interpolates between factorials and tangent numbers.

Examples

			For example, D tan(z) = (tan(z))^2 + 1.
Array begins:
    1;
    1,   1;
    2,   2,
    6,   8,   2;
   24,  40,  16,
  120, 240, 136,  16;
		

References

  • R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics, Addison-Wesley, Reading, MA, 2nd ed. 1998, p. 287.

Crossrefs

Reflection of triangle A008293.
Column k=0 gives A000142.
Row sums give A000831.
T(2n-1,n) gives A000182 (for n>=1).

Programs

  • Mathematica
    row[n_] := CoefficientList[ Derivative[n][Tan][z] /. Tan -> t /. Sec -> (Sqrt[1+t[#]^2]&), t[z]] // DeleteCases[#, 0]& // Reverse; Table[row[n], {n, 0, 10}] // Flatten (* Jean-François Alcover, Feb 26 2013 *)
  • Maxima
    T(n,k):=if k=0 then Tr(n,k) else if 2*k-1=n then Tr(n,k-1) else Tr(n,k)+Tr(n,k-1);
    Tr(n,i):=((sum(binomial(j+n-2*i-1,n-2*i-1)*(j+n-2*i)!*2^(2*i-j)*(-1)^(j-i)*stirling2(n,j+n-2*i),j,0,2*i))); /* Vladimir Kruchinin, May 27 2011 */

Formula

t(n,0)=n!; t(n,k)=tr(n,k)+tr(n,k-1), k<=n/2; t(n,floor((n+1)/2)-1)=tr(n,floor((n+1)/2)-1); tr(n,i)=((sum(j=0..2*i, binomial(j+n-2*i-1,n-2*i-1)*(j+n-2*i)!*2^(2*i-j)*(-1)^(j-i)*Stirling2(n,j+n-2*i)))). - Vladimir Kruchinin, May 27 2011
From Tom Copeland, Sep 30 2015: (Start)
Reversed rows signed and aerated are generated by [(1-x^2)D]^n x with D = d/dx, so exp(t(1-x^2)D) x = tanh(t + atanh(x)) is the e.g.f. of this reversed array (see A145271).
Reversed rows unsigned and aerated are generated by [(1+x^2)D]^n x, so exp(t(1+x^2)D) x = tan(t + atan(x)) = x + (1 +x^2)*t + (2x + 2x^3)*t^2/2! + (2 + 8x^2 + 6x^4)*t^3/3! + (16x + 40x^3 + 24x^5)*t^4/4! + ... is the e.g.f. for the matrix on p. 666 of the Knuth and Buckholtz link.
E.g.f. for this entry's aerated array 1 + (1 + x^2)*t + (2 + 2x^2)*t^2/2! + (6 + 8x^2 + 2x^4)*t^3/3! + (24 + 40^x^2 + 16x^4)*t^4/4! + ... = x * tan(t*x + atan(1/x)). (End)
From Fabián Pereyra, Apr 22 2022: (Start)
T(n,k) = (n-2k)*T(n-1,k) + (n-2k+2)*T(n-1,k-1).
E.g.f.: A(x,t) = sqrt(t)*(sqrt(t)*sin(x*sqrt(t))+cos(x*sqrt(t)))/ (sqrt(t)*cos(x*sqrt(t))-sin(x*sqrt(t))). (End)

Extensions

More terms from Vladeta Jovovic and Ralf Stephan, Jan 30 2005

A102625 Triangle read by rows: T(n,k) is the sum of the weights of all vertices labeled k at depth n in the Catalan tree (1 <= k <= n+1, n >= 0).

Original entry on oeis.org

1, 1, 2, 3, 6, 6, 15, 30, 36, 24, 105, 210, 270, 240, 120, 945, 1890, 2520, 2520, 1800, 720, 10395, 20790, 28350, 30240, 25200, 15120, 5040, 135135, 270270, 374220, 415800, 378000, 272160, 141120, 40320, 2027025, 4054050, 5675670, 6486480
Offset: 0

Views

Author

Emeric Deutsch, Jan 31 2005

Keywords

Comments

The Catalan tree is defined as follows: the root is labeled 1 and each vertex labeled i has i+1 children labeled 1,2,...,i+1. The weight of a vertex v is the product of all labels on the path from the root to v. Row n contains n+1 terms. Row sums and column 1 yield the double factorials (A001147). T(n,n+1)=(n+1)!, T(n,n)=n(n+1)!/2 (A001286; Lah numbers).
This table counts permutations of the multiset {1,1,2,2,...,n,n} satisfying the condition "the first appearance of i + 1 follows the first appearance of i" by the position of the first appearance of n. Specifically, T(n+1,k) is the number of such permutations for which n first occurs in position 2n+1-k. For example, with n=2 and k=1, T(3,1)=6 counts 121323, 121332, 122313, 122331, 112323, 112332. - David Callan, Nov 29 2007
T(n+1,k) is also the number of rooted complete binary forests with n labeled leaves and k labeled roots. This follows by comparing exponential generating functions; see Example 5.2.6 and Proposition 5.1.3 of Stanley's "Enumerative Combinatorics 2." - Timothy Y. Chow, Mar 28 2017

Examples

			Triangle starts:
   1;
   1,  2;
   3,  6,  6;
  15, 30, 36, 24;
  ...
Production matrix begins:
1, 2
1, 2, 3
1, 2, 3, 4
1, 2, 3, 4, 5
1, 2, 3, 4, 5, 6
1, 2, 3, 4, 5, 6, 7
1, 2, 3, 4, 5, 6, 7, 8
1, 2, 3, 4, 5, 6, 7, 8, 9
... - _Philippe Deléham_, Sep 30 2014
From _Peter Bala_, Apr 16 2017: (Start)
The Catalan tree starts          o1
                                / \
                               /   \
                              /     \
                             /       \
                            /         \
                           o1          o2
                          / \         /|\
                         /   \       / | \
                        /     \     /  |  \
                       o1      o2  o1  o2  o3
Level 2:
2 vertices labeled 1: total weight 1x1x1 + 1x2x1 = 3
2 vertices labeled 2: total weight 2x1x1 + 2x2x1 = 6
1 vertex labeled 3:   total weight 3x2x1         = 6
(End)
		

Crossrefs

Programs

  • Maple
    A102625:=proc(n,k) if k<=n+1 then k*(2*n-k+1)!/2^(n-k+1)/(n-k+1)! else 0 fi end proc:
    for n from 0 to 8 do seq(A102625(n,k),k=1..n+1) od; # yields sequence in triangular form
  • Mathematica
    t[n_, k_] := k*(2n-k+1)!/(2^(n-k+1)*(n-k+1)!); Table[t[n, k], {n, 0, 8}, {k, 1, n+1}] // Flatten (* Jean-François Alcover, Jan 21 2013 *)
  • PARI
    {T(n, k) = my(m = n-k+1); if( k<1 || k>n+1, 0, k * (n+m)! / (2^m * m!))}; /* Michael Somos, Aug 16 2016 */

Formula

T(n,k) = k*(2*n-k+1)!/[2^(n-k+1)*(n-k+1)!] (1 <= k <= n+1).
From Tom Copeland, Nov 11 2007: (Start)
Bivariate G.F.: exp[P(.,t)*x] = D_x {1 - [g(x)/(1+t*g(x))]} = 1 / {(1+g(x))*[1+t*g(x)]^2}, where g(x) = sqrt(1-2*x) - 1 and P(n,t) = Sum_{k=0..n} T(n,k) * t^k.
Also D_x g(x) = -(1-2*x)^(-1/2) = -exp[x*A001147(.)] = -exp[x *(2*(.)-1)!! ], so the coefficients of x^n/n! in the expansion of g(x) are -(2*(n-1)-1)!! = -A001147(n-1) for n > 0.
See A132382 for an array which is essentially the revert from which this G.f. may be derived and for connections to other arrays. (End)
E.g.f.: 1/(1 - x + x*sqrt(1-2*z)) = 1 + x*z + (x+2*x^2)*z^2/2! + (3*x+6*x^2+6*x^3)*z^3/3! + .... T(n,k) gives the number of plane recursive trees on n+2 nodes where the root has degree k (Bergeron et al., Corollary 5). - Peter Bala, Jul 09 2012
From Peter Bala, Jul 09 2014: (Start)
T(n,k) = k!*A001497(n,k) modulo offset differences.
The n-th row polynomial R(n,x) = (-1)^n/(x - 1)*( Sum_{k = 1..infinity} k*(k - 2)*...*(k - 2*n)*(x/(x - 1))^k ). Cf. the Dobinski-type formula for the row polynomials of A001497. (End)
From Tom Copeland, Aug 06 2016: (Start)
From the 2007 formulas above, an alternate g.f. for this entry is GF(x,t) = -g(x) / [1 + t*g(x)] = x + (1 + 2*t)*x^2/2! + (3 + 6*t + 6*t^2)*x^3/3! + ... with compositional inverse GFinv(x,t) = {1 - [1 - x / (1+t*x)]^2} / 2 = -(1/2)[x / (1+t*x)]^2 + x / (1+t*x) = Sum_{n>0} (-1)^(n+1) [(n-1)/2*t^(n-2) + t^(n-1)]*x^n, a series containing the Lah numbers A001286 when expressed as an e.g.f.
From A145271, with K(x,t) = 1 / dGinv(x,t)/dx = 1 + (1+2*t) x + (1+t+t^2) x^2 + x^3 / [1-(1-t)*x], then [K(x,t) d/dx]^n x evaluated at x=0 gives the n-th row polynomial of this entry.
Since the reciprocal of Bala's e.g.f. above generates a shifted, signed A001147, for the polynomials P(n,t) generated by Bala's e.g.f., umbrally (P(.,t) + a.)^n = 0 for n > 0 with a_0 = 1 and a_n = -t * A001147(n-1) for n > 0. E.g., (P(.,t) + a.)^2 = a_0 * P(2,t) + 2 a_1 * P(1,t) + a_2 * P(0,t) = 1 * (t + 2*t^2) + 2 * -t * t + -t * 1 = 0. (End)
From Peter Bala, Apr 16 2017: (Start)
T(n,k) = k*T(n-1,k-1) + (2*n - k)*T(n-1,k).
E.g.f.: t*x*c(x/2)/(1 - t*x*c(x/2)) = t*x + (t + 2*t^2)*x^2/2! + (3*t + 6*t^2 + 6*t^2)*x^3/3! + ..., where c(x) = (1 - sqrt(1 - 4*x))/(2*x) is the g.f. for the Catalan numbers A000108. Note that the related g.f. t*x*c(x)/(1 - t*x*c(x)) is the o.g.f. for A033184 (essentially the same as the Riordan array A106566) and enumerates the number of vertices labeled k on the n_th level of the Catalan tree (k >= 1, n >= 0). (End)

A121448 Triangle read by rows: T(n,k) is the number of binary trees with n edges and having k vertices of outdegree 1 (n>=0, k>=0). A binary tree is a rooted tree in which each vertex has at most two children and each child of a vertex is designated as its left or right child.

Original entry on oeis.org

1, 0, 2, 1, 0, 4, 0, 6, 0, 8, 2, 0, 24, 0, 16, 0, 20, 0, 80, 0, 32, 5, 0, 120, 0, 240, 0, 64, 0, 70, 0, 560, 0, 672, 0, 128, 14, 0, 560, 0, 2240, 0, 1792, 0, 256, 0, 252, 0, 3360, 0, 8064, 0, 4608, 0, 512, 42, 0, 2520, 0, 16800, 0, 26880, 0, 11520, 0, 1024, 0, 924, 0, 18480, 0
Offset: 0

Views

Author

Emeric Deutsch, Jul 31 2006

Keywords

Comments

T(2n,0) = binomial(2n,n)/(n+1) (the Catalan numbers; A000108); T(2n+1,0)=0. T(n,n)=2^n (A000079). Sum(k*T(n,k),k=0..n)=2*binomial(2n,n-1)=2*A001791(n). After deleting the zeros, reflection of A091894.
From Tom Copeland, Feb 07 2016: (Start)
A shifted o.g.f. is OG(x,t) = [1 - 2tx - sqrt[(1-2tx)^2-4x^2]] / (2x) = x + 2t x^2 + (1+4t^2) x^3 + ... with compositional inverse OGinv(x,t) = x / (1 + 2tx + x^2), the shifted o.g.f. for A053117 (mod signs).
For x > 0 and choosing the positive square root, OG(x^2,t) = H(x,t) = x^2 + 2t x^4 + (1+4t^2) x^6 + ... has the compositional inverse Hinv(x,t) = sqrt[x / (1 + 2tx + x^2)] , which satisfies Hinv(H(x, t), t) = x, and which is the generating function for the Legendre polynomials (mod signs, cf. A008316) times sqrt(x).
In general, GB(x,t,b) = [x / (1 - 2tx + x^2)]^b is a generator for the Gegenbauer polynomials times x^b for positive roots with compositional inverse about the origin GBinv(x,t,b) = OG(x^(1/b),-t) for x>0. Cf. A097610.
(End)
From Tom Copeland, Feb 09 2016: (Start)
z1 = OG(x,t) is the zero that vanishes for x=0 for the quadratic polynomial Q(z;z1(x,t),z2(x,t)) =(z-z1)(z-z2) = z^2 - (z1+z2) z + (z1*z2) = z^2 - e1 z + e2 = z^2 - [(1-2tx)/x] z + 1, where e1 and e2 are the elementary symmetric polynomials for two indeterminates.
The other zero is given by z2(x,t) = [1 - 2tx + sqrt[(1-2tx)^2-4x^2]] / (2x) = (1 - 2tx)/x - z1(x,t).
The two are zeros of the elliptic curve in Legendre normal form y^2 = z (z-z1)(z-z2). (Added Feb 13 2016. See Landweber et al., p 14. Cf. A097610.)
(End)

Examples

			T(2,2)=4 because, denoting by L (R) an edge going from a vertex to a left (right) child, we have the paths: LL, LR, RL and RR.
Triangle starts:
  1;
  0,2;
  1,0,4;
  0,6,0,8;
  2,0,24,0,16;
		

Crossrefs

Programs

  • Maple
    T:=proc(n,k) if n-k mod 2 = 0 then 2^k*binomial(n+1,k)*binomial(n+1-k,(n-k)/2)/(n+1) else 0 fi end: for n from 0 to 12 do seq(T(n,k),k=0..n) od; # yields sequence in triangular form
  • Mathematica
    nn=10;Drop[CoefficientList[Series[(1-2x y - ((-4x^2+(1-2x y)^2))^(1/2))/(2 x),{x,0,nn}],{x,y}],1]//Grid  (* Geoffrey Critzer, Feb 20 2013 *)

Formula

T(n,k) = 2^k*binomial(n+1,k)binomial(n+1-k,(n-k)/2)/(n+1) if n-k is even; otherwise, T(n,k) = 0. G.f. G=G(t,z) satisfies G=1+2tzG+z^2*G^2.
T(n,k) = 2^k*A097610(n,k). - Philippe Deléham, Aug 17 2006
From Tom Copeland, Feb 09 2016: (Start)
The following is from the formalism in A097610 with h1 = 2t, h2 = 1, and MT(n,h1,h2) = MT(n,2t,1) and with OG(x,t) defined above.
E.g.f.: M(x,t) = e^(2tx) AC(x) = exp[x MT(.,2t,1)] = exp[x P(.,t)], where AC(x) = I_1(2x)/x = Sum_{n>=0} x^(2n)/(n!(n+1)!) = exp(c.x) is the e.g.f. of A126120.
P(n,t) = MT(n,2t,1) = (c. + 2t)^n = Sum_{k=0..n} binomial(n,k) c(n-k) (2t)^k with c(k) = A126120(k). P(n,t+s) = (c. + 2t + 2s)^n = (P(.,t) + 2s)^n.
P(n,t) = t^n FC(n,c./t) = t^n (2 + c./t)^n, where FC(n,t) = (2 + t)^n are the face polynomials (vectors) of the hypercubes of A038207, i.e., the row polynomials of this entry can be obtained as the umbral composition of the reverse face polynomials with the aerated Catalan numbers of A000108.
The lowering and raising operators for the row polynomials P(n,t) of this entry are L = (1/2) d/dt = (1/2) D and R = 2t + dlog{AC(L)}/dL = 2t + Sum_{n>=0} b(n) L^(2n+1)/(2n+1)! = 2t + L - L^3/3! + 5 L^5/5! - ... with b(n) = (-1)^n A180874(n+1).
Let CP(n,t) = P(n+1,t) with CP(0,t) = 0. Then the infinitesimal generator for CP(n,t) is g(x) d/dx with g(x) = 1 /[dOGinv(x,t)/dx] = x^2 / [(OGinv(x,t))^2 (1 - x^2)] = (1 + 2t x + x^2)^2 / (1 - x^2) so that [g(x)d/dx]^n/n! x evaluated at x = 0 gives the row polynomial CP(n,t), i.e., exp[x g(u)d/du] u |_(u=0) = OG(x,t) = 1 /[1 - x P(.,t)]. Cf. A145271.
g(x) = 1 + 4t x + (3+4t) x^2 + 8t x^3 + 4(1+t^2) x^4 + 8t x^5 + 4(1+t^2) x^6 + 8t x^7 + ... has the repeating coefficients of the vector V = (1, 4t, 3+4t, 8t, 4(1+t^2), 8t, 4(1+t^2), 8t, ...). Form the lower triangular matrix U with all ones on the diagonal and below. Multiply the n-th diagonal of U by V(n), giving the matrix VU with VU(n,k) = V(n-k). Then (1,0,0,0,..) [VU * DM]^n/n! (0,1,0,0,..)^T = CP(n,t) = P(n-1,t) for n>0 with DM being the matrix A218272 representing differentiation of a power series.
(End)
Previous Showing 21-30 of 40 results. Next