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

A188664 a(n) = 2A(n)/C(n) where A(n) = A180874(n) and C(n) = Catalan(n) = A000108(n).

Original entry on oeis.org

2, 1, 2, 8, 52, 495, 6470, 111034, 2419928, 65269092, 2133844440, 83133090480, 3805035352536, 202147745618247, 12336516593999598, 857054350280418290, 67247553674224203280, 5917723267088513913032, 580407202154922558537264, 63093021853191022229671056, 7563270705677373923076693840
Offset: 1

Views

Author

N. J. A. Sloane, Apr 16 2011

Keywords

Comments

For properties of these numbers including a recurrence, see the Lassalle reference.

Crossrefs

Programs

  • Maple
    A000108 := proc(n) binomial(2*n,n)/(1+n) ;end proc:
    A180874 := proc(n) option remember; if n = 1 then 1 else A000108(n)+add((-1)^j*binomial(2*n-1,2*j-1)*procname(j)*A000108(n-j),j=1..n-1) ;  %*(-1)^(n-1) ; end if; end proc:
    A188664 := proc(n) return 2*A180874(n)/A000108(n) ; end proc: # R. J. Mathar, Apr 16 2011
  • Mathematica
    c = CatalanNumber;
    A[n_] := A[n] = (-1)^(n - 1)*(c[n] + Sum[(-1)^j*Binomial[2*n - 1, 2*j - 1]*A[j]*c[n - j], {j, 1, n - 1}]);
    a[n_] := 2 A[n]/c[n];
    Array[a, 21] (* Jean-François Alcover, Nov 25 2017 *)

A126120 Catalan numbers (A000108) interpolated with 0's.

Original entry on oeis.org

1, 0, 1, 0, 2, 0, 5, 0, 14, 0, 42, 0, 132, 0, 429, 0, 1430, 0, 4862, 0, 16796, 0, 58786, 0, 208012, 0, 742900, 0, 2674440, 0, 9694845, 0, 35357670, 0, 129644790, 0, 477638700, 0, 1767263190, 0, 6564120420, 0, 24466267020, 0, 91482563640, 0, 343059613650, 0
Offset: 0

Views

Author

Philippe Deléham, Mar 06 2007

Keywords

Comments

Inverse binomial transform of A001006.
The Hankel transform of this sequence gives A000012 = [1,1,1,1,1,...].
Counts returning walks (excursions) of length n on a 1-d integer lattice with step set {+1,-1} which stay in the chamber x >= 0. - Andrew V. Sutherland, Feb 29 2008
Moment sequence of the trace of a random matrix in G=USp(2)=SU(2). If X=tr(A) is a random variable (A distributed according to the Haar measure on G) then a(n) = E[X^n]. - Andrew V. Sutherland, Feb 29 2008
Essentially the same as A097331. - R. J. Mathar, Jun 15 2008
Number of distinct proper binary trees with n nodes. - Chris R. Sims (chris.r.sims(AT)gmail.com), Jun 30 2010
-a(n-1), with a(-1):=0, n>=0, is the Z-sequence for the Riordan array A049310 (Chebyshev S). For the definition see that triangle. - Wolfdieter Lang, Nov 04 2011
See A180874 (also A238390 and A097610) and A263916 for relations to the general Bell A036040, cycle index A036039, and cumulant expansion polynomials A127671 through the Faber polynomials. - Tom Copeland, Jan 26 2016
A signed version is generated by evaluating polynomials in A126216 that are essentially the face polynomials of the associahedra. This entry's sequence is related to an inversion relation on p. 34 of Mizera, related to Feynman diagrams. - Tom Copeland, Dec 09 2019

Examples

			G.f. = 1 + x^2 + 2*x^4 + 5*x^6 + 14*x^8 + 42*x^10 + 132*x^12 + 429*x^14 + ...
From _Gus Wiseman_, Nov 14 2022: (Start)
The a(0) = 1 through a(8) = 14 ordered binary rooted trees with n + 1 nodes (ranked by A358375):
  o  .  (oo)  .  ((oo)o)  .  (((oo)o)o)  .  ((((oo)o)o)o)
                 (o(oo))     ((o(oo))o)     (((o(oo))o)o)
                             ((oo)(oo))     (((oo)(oo))o)
                             (o((oo)o))     (((oo)o)(oo))
                             (o(o(oo)))     ((o((oo)o))o)
                                            ((o(o(oo)))o)
                                            ((o(oo))(oo))
                                            ((oo)((oo)o))
                                            ((oo)(o(oo)))
                                            (o(((oo)o)o))
                                            (o((o(oo))o))
                                            (o((oo)(oo)))
                                            (o(o((oo)o)))
                                            (o(o(o(oo))))
(End)
		

References

  • Jerome Spanier and Keith B. Oldham, "Atlas of Functions", Ch. 49, Hemisphere Publishing Corp., 1987.

Crossrefs

Cf. A126216.
The unordered version is A001190, ranked by A111299.
These trees (ordered binary rooted) are ranked by A358375.

Programs

  • Magma
    &cat [[Catalan(n), 0]: n in [0..30]]; // Vincenzo Librandi, Jul 28 2016
    
  • Maple
    with(combstruct): grammar := { BB = Sequence(Prod(a,BB,b)), a = Atom, b = Atom }: seq(count([BB,grammar], size=n),n=0..47); # Zerinvary Lajos, Apr 25 2007
    BB := {E=Prod(Z,Z), S=Union(Epsilon,Prod(S,S,E))}: ZL:=[S,BB,unlabeled]: seq(count(ZL, size=n), n=0..45); # Zerinvary Lajos, Apr 22 2007
    BB := [T,{T=Prod(Z,Z,Z,F,F), F=Sequence(B), B=Prod(F,Z,Z)}, unlabeled]: seq(count(BB, size=n+1), n=0..45); # valid for n> 0. # Zerinvary Lajos, Apr 22 2007
    seq(n!*coeff(series(hypergeom([],[2],x^2),x,n+2),x,n),n=0..45); # Peter Luschny, Jan 31 2015
    # Using function CompInv from A357588.
    CompInv(48, n -> ifelse(irem(n, 2) = 0, 0, (-1)^iquo(n-1, 2))); # Peter Luschny, Oct 07 2022
  • Mathematica
    a[n_?EvenQ] := CatalanNumber[n/2]; a[n_] = 0; Table[a[n], {n, 0, 45}] (* Jean-François Alcover, Sep 10 2012 *)
    a[ n_] := If[ n < 0, 0, n! SeriesCoefficient[ BesselI[ 1, 2 x] / x, {x, 0, n}]]; (* Michael Somos, Mar 19 2014 *)
    bot[n_]:=If[n==1,{{}},Join@@Table[Tuples[bot/@c],{c,Table[{k,n-k-1},{k,n-1}]}]];
    Table[Length[bot[n]],{n,10}] (* Gus Wiseman, Nov 14 2022 *)
    Riffle[CatalanNumber[Range[0,50]],0,{2,-1,2}] (* Harvey P. Dale, May 28 2024 *)
  • Python
    from math import comb
    def A126120(n): return 0 if n&1 else comb(n,m:=n>>1)//(m+1) # Chai Wah Wu, Apr 22 2024
  • Sage
    def A126120_list(n) :
        D = [0]*(n+2); D[1] = 1
        b = True; h = 2; R = []
        for i in range(2*n-1) :
            if b :
                for k in range(h,0,-1) : D[k] -= D[k-1]
                h += 1; R.append(abs(D[1]))
            else :
                for k in range(1,h, 1) : D[k] += D[k+1]
            b = not b
        return R
    A126120_list(46) # Peter Luschny, Jun 03 2012
    

Formula

a(2*n) = A000108(n), a(2*n+1) = 0.
a(n) = A053121(n,0).
(1/Pi) Integral_{0 .. Pi} (2*cos(x))^n *2*sin^2(x) dx. - Andrew V. Sutherland, Feb 29 2008
G.f.: (1 - sqrt(1 - 4*x^2)) / (2*x^2) = 1/(1-x^2/(1-x^2/(1-x^2/(1-x^2/(1-... (continued fraction). - Philippe Deléham, Nov 24 2009
G.f. A(x) satisfies A(x) = 1 + x^2*A(x)^2. - Vladimir Kruchinin, Feb 18 2011
E.g.f.: I_1(2x)/x Where I_n(x) is the modified Bessel function. - Benjamin Phillabaum, Mar 07 2011
Apart from the first term the e.g.f. is given by x*HyperGeom([1/2],[3/2,2], x^2). - Benjamin Phillabaum, Mar 07 2011
a(n) = Integral_{x=-2..2} x^n*sqrt((2-x)*(2+x))/(2*Pi) dx. - Peter Luschny, Sep 11 2011
E.g.f.: E(0)/(1-x) where E(k) = 1-x/(1-x/(x-(k+1)*(k+2)/E(k+1))); (continued fraction). - Sergei N. Gladkovskii, Apr 05 2013
G.f.: 3/2- sqrt(1-4*x^2)/2 = 1/x^2 + R(0)/x^2, where R(k) = 2*k-1 - x^2*(2*k-1)*(2*k+1)/R(k+1); (continued fraction). - Sergei N. Gladkovskii, Oct 28 2013 (warning: this is not the g.f. of this sequence, R. J. Mathar, Sep 23 2021)
G.f.: 1/Q(0), where Q(k) = 2*k+1 + x^2*(1-4*(k+1)^2)/Q(k+1); (continued fraction). - Sergei N. Gladkovskii, Jan 09 2014
a(n) = n!*[x^n]hypergeom([],[2],x^2). - Peter Luschny, Jan 31 2015
a(n) = 2^n*hypergeom([3/2,-n],[3],2). - Peter Luschny, Feb 03 2015
a(n) = ((-1)^n+1)*2^(2*floor(n/2)-1)*Gamma(floor(n/2)+1/2)/(sqrt(Pi)* Gamma(floor(n/2)+2)). - Ilya Gutkovskiy, Jul 23 2016
D-finite with recurrence (n+2)*a(n) +4*(-n+1)*a(n-2)=0. - R. J. Mathar, Mar 21 2021
From Peter Bala, Feb 03 2024: (Start)
a(n) = 2^n * Sum_{k = 0..n} (-2)^(-k)*binomial(n, k)*Catalan(k+1).
G.f.: 1/(1 + 2*x) * c(x/(1 + 2*x))^2 = 1/(1 - 2*x) * c(-x/(1 - 2*x))^2 = c(x^2), where c(x) = (1 - sqrt(1 - 4*x))/(2*x) is the g.f. of the Catalan numbers A000108. (End)

Extensions

An erroneous comment removed by Tom Copeland, Jul 23 2016

A097610 Triangle read by rows: T(n,k) is number of Motzkin paths of length n and having k horizontal steps.

Original entry on oeis.org

1, 0, 1, 1, 0, 1, 0, 3, 0, 1, 2, 0, 6, 0, 1, 0, 10, 0, 10, 0, 1, 5, 0, 30, 0, 15, 0, 1, 0, 35, 0, 70, 0, 21, 0, 1, 14, 0, 140, 0, 140, 0, 28, 0, 1, 0, 126, 0, 420, 0, 252, 0, 36, 0, 1, 42, 0, 630, 0, 1050, 0, 420, 0, 45, 0, 1, 0, 462, 0, 2310, 0, 2310, 0, 660, 0, 55, 0, 1, 132, 0, 2772, 0
Offset: 0

Views

Author

Emeric Deutsch, Aug 30 2004

Keywords

Comments

Row sums are the Motzkin numbers (A001006). Column 0 gives the aerated Catalan numbers (A000108).
Let P_n(x) = Sum_{k=0..n} T(n,k)*x^k. P_0(x) = 1, P_1(x) = x, P_n(x) = x*P_(n-1)(x) + Sum_{j=0..n-2} P_j(x)*P_(n-2-j)(x); essentially the same as A124027. - Philippe Deléham, Oct 03 2007
G. J. Chaitin's numbers of s-expressions of size n are given by the coefficients of polynomials p(k, x) satisfying: p(k, x) = Sum_{j=2..k-1} p(j, x)*p(k-j, x). The coefficients of these polynomials also give (essentially) the triangle shown here. - Roger L. Bagula, Oct 31 2006
Exponential Riordan array [Bessel_I(1,2x)/x,x]. - Paul Barry, Mar 24 2010
Diagonal sums are the aerated large Schroeder numbers. - Paul Barry, Apr 21 2010
Non-vanishing antidiagonals are rows of A060693. - Tom Copeland, Feb 03 2016
These polynomials are related to the Gegenbauer polynomials which in turn are specializations of the Jacobi polynomials. The o.g.f. of the Gegenbauer polynomials is 1 / [1-2tx+x^2]^a. For the generating function Gb(x,h1,h2,a) = [x / (1 + h1 x + h2 x^2)]^a, the compositional inverse in x is Gbinv(x,h1,h2,a) = [(1-h1*y) - sqrt[(1-h1*y)^2-4h2*y^2]]/(2*h2*y) with y = x^(1/a). The polynomials of this entry are generated by Gbinv(x,t,1,1). The Legendre polynomials are related to the o.g.f. Gb(x,-2t,1,1/2). Cf. A121448. - Tom Copeland, Feb 07 2016
The bivariate o.g.f. in Copeland's Jan 29 2016 formulas can be related to conformal mappings of the complex plane and a solution of the dKP hierarchy. Cf. p. 24 of the Takebe et al. paper. - Tom Copeland, May 30 2018

Examples

			Triangle begins:
1;
0,  1;
1,  0,  1;
0,  3,  0,  1;
2,  0,  6,  0,  1;
0, 10,  0, 10,  0,  1;
5,  0, 30,  0, 15,  0,  1;
Row n has n+1 terms.
T(4,2)=6 because we have HHUD, HUDH, UDHH, HUHD, UHDH, UHHD, where U=(1,1), D=(1,-1) and H=(1,0).
		

References

  • G. J. Chaitin, Algorithmic Information Theory, Cambridge Univ. Press, 1987, page 169.

Crossrefs

Cf. A001006, A000108. A124027 is an essentially identical triangle.
Cf. A001263.

Programs

  • Maple
    G:=(1-t*z-sqrt(1-2*t*z+t^2*z^2-4*z^2))/2/z^2:
    Gser:=simplify(series(G,z=0,16)): P[0]:=1:
    for n from 1 to 13 do P[n]:=sort(coeff(Gser,z^n)) od:
    seq(seq(coeff(t*P[n],t^k),k=1..n+1),n=0..13);
    # Maple program for the triangular array:
    T:=proc(n,k) if n-k mod 2 = 0 and k<=n then n!/k!/((n-k)/2)!/((n-k)/2+1)! else 0 fi end: TT:=(n,k)->T(n-1,k-1): matrix(10,10,TT);
  • Mathematica
    T[n_,k_]:=If[n>=k&&EvenQ[n-k],n!/(k!((n-k)/2)!((n-k)/2+1)!),0];
    Flatten[Table[T[n,k],{n,0,20},{k,0,n}]] (* Peter J. C. Moses, Apr 06 2013 *)
    T[n_,k_] := If[OddQ[n - k], 0, Binomial[n, k] CatalanNumber[(n - k)/2]]; (* Peter Luschny, Jun 06 2018 *)

Formula

G.f.: [1-tz-sqrt(1-2tz+t^2*z^2-4z^2)]/(2z^2).
T(n, k) = n!/[k!((n-k)/2)!((n-k)/2-1)! ] = A055151(n, (n-k)/2) if n-k is a nonnegative even number; otherwise T(n, k) = 0.
T(n, k) = C(n, k)*C((n-k)/2)*(1+(-1)^(n-k))/2 if k <= n, 0 otherwise. - Paul Barry, May 18 2005
T(n,k) = A121448(n,k)/2^k. - Philippe Deléham, Aug 17 2006
Sum_{k=0..n} T(n,k)*2^k = A000108(n+1). - Philippe Deléham, Aug 22 2006
Sum_{k=0..n} T(n,k)*3^k = A002212(n+1). - Philippe Deléham, Oct 03 2007
G.f.: 1/(1-x*y-x^2/(1-x*y-x^2/(1-x*y-x^2/.... (continued fraction). - Paul Barry, Dec 15 2008
Sum_{k=0..n} T(n,k)*4^k = A005572(n). - Philippe Deléham, Dec 03 2009
T(n,k) = A007318(n,k)*A126120(n-k). - Philippe Deléham, Dec 12 2009
From Tom Copeland, Jan 23 2016: (Start)
E.g.f.: M(x,t) = e^(xt) AC(t) = e^(xt) I_1(2t)/t = e(xt) * e.g.f.(A126120(t)) = e^(xt) Sum_{n>=0} t^(2n)/(n!(n+1)!) = exp[t P(.,x)].
The e.g.f. of this Appell sequence of polynomials P(n,x) is e^(xt) times the e.g.f. AC(t) of the aerated Catalan numbers A126120. AC(t) = I_1(2t)/t, where I_n(x) = T_n(d/dx) I_0(x) are the modified Bessel functions of the first kind and T_n, the Chebyshev polynomials of the first kind.
P(n,x) has the lowering and raising operators L = d/dx = D and R = d/dD log{M(x,D)} = x + d/dD log{AC(D)} = x + Sum_{n>=0} c(n) D^(2n+1)/(2n+1)! with c(n) = (-1)^n A180874(n+1), i.e., L P(n,x) = n P(n-1,x) and R P(n,x) = P(n+1,x).
(P(.,x) + y)^n = P(n,x+y) = Sum_{k=0..n} binomial(n,k) P(k,x) y^(n-k) = (b.+x+y)^n, where (b.)^k = b_k = A126120(k).
Exp(b.D) e^(xt) = exp[(x+b.)t] = exp[P(.,x)t] = e^(b.t) e^(xt) = e^(xt) AC(t).
See p. 12 of the Alexeev et al. link and A055151 for a refinement.
Shifted o.g.f: G(x,t) = [1-tx-sqrt[(1-tx)^2-4x^2]] / 2x = x + t x^2 + (1+t) x^3 + ... has the compositional inverse Ginv(x,t) = x / [1 + tx + x^2] = x - t x^2 +(-1+t^2) x^3 + (2t-t^3) x^4 + (1-3t^2+t^4) x^5 + ..., a shifted o.g.f. for the signed Chebyshev polynomials of the second kind of A049310 (cf. also the Fibonacci polynomials of A011973). Then the inversion formula of A134264, involving non-crossing partitions and free probability with their multitude of interpretations (cf. A125181 also), can be used with h_0 = 1, h_1 = t, and h_2 = 1 to interpret the coefficients of the Motzkin polynomials combinatorially.
(End)
From Tom Copeland, Jan 29 2016: (Start)
Provides coefficients of the inverse of f(x) = x / [1 + h1 x + h2 x^2], a bivariate generating function of A049310 (mod signs).
finv(x) = [(1-h1*x) - sqrt[(1-h1*x)^2-4h2*x^2]]/(2*h2*x) = x + h1 x^2 + (h2 + h1^2) x^3 + (3 h1 h2 + h1^3) x^4 + ... is a bivariate o.g.f. for this entry.
The infinitesimal generator for finv(x) is g(x) d/dx with g(x) = 1 /[df(x)/dx] = x^2 / [(f(x))^2 (1 - h2 x^2)] = (1 + h1 x + h2 x^2)^2 / (1 - h2 x^2) so that [g(x)d/dx]^n/n! x evaluated at x = 0 gives the row polynomials FI(n,h1,h2) of the compositional inverse of f(x), i.e., exp[x g(u)d/du] u |_(u=0) = finv(x) = 1 / [1 -x FI(.,h1,h2)]. Cf. A145271. E.g.,
FI(0,h1,h2) = 0
FI(1,h1,h2) = 1
FI(2,h1,h2) = 1 h1
FI(3,h1,h2) = 1 h2 + 1 h1^2
FI(4,h1,h2) = 3 h2 h1 + 1 h1^3
FI(5,h1,h2) = 2 h2^2 + 6 h2 h1^2 + 1 h1^4
FI(6,h1,h2) = 10 h2^2 h1 + 10 h2 h1^3 + 1 h1^5.
And with D = d/dh1, FI(n+1, h1,h2) = MT(n,h1,h2) = (b.y + h1)^n = Sum_{k=0..n} binomial(n,k) b(k) y^k h1^(n-k) = exp[(b.y D] (h1)^n = AC(y D) (h1)^n, where b(k) = A126120(k), y = sqrt(h2), and AC(t) is defined in my Jan 23 formulas above. Equivalently, AC(y D) e^(x h1) = exp[x MT(.,h1,h2)].
The MT polynomials comprise an Appell sequence in h1 with e.g.f. e^(h1*x) AC(xy) = exp[x MT(.,h1,h2)] with lowering operator L = d/dh1 = D, i.e., L MT(n,h1,h2) = dMT(n,h1,h2)/dh1 = n MT(n-1,h1,h2) and raising operator R = h1 + dlog{AC(y L)}/dL = h1 + Sum_{n>=0} c(n) h2^(n+1) D^(2n+1)/(2n+1)! = h1 + h2 d/dh1 - h2^2 (d/dh1)^3/3! + 5 h2^3 (d/dh1)^5/5! - ... with c(n) = (-1)^n A180874(n+1) (consistent with the raising operator in the Jan 23 formulas).
The compositional inverse finv(x) is also obtained from the non-crossing partitions of A134264 (or A125181) with h_0 = 1, h_1 = h1, h_2 = h2, and h_n = 0 for all other n.
See A238390 for the umbral compositional inverse in h1 of MT(n,h1,h2) and inverse matrix.
(End)
From Tom Copeland, Feb 13 2016: (Start)
z1(x,h1,h2) = finv(x), the bivariate o.g.f. above for this entry, is the zero that vanishes for x=0 for the quadratic polynomial Q(z;z1(x,h1,h2),z2(x,h1,h2)) = (z-z1)(z-z2) = z^2 - (z1+z2) z + (z1*z2) = z^2 - e1 z + e2 = z^2 - [(1-h1*x)/(h2*x)] z + 1/h2, where e1 and e2 are the elementary symmetric polynomials for two indeterminates.
The other zero is given by z2(x,h1,h2) = (1 - h1*x)/(h2*x) - z1(x,h1,h2) = [1 - h1*x + sqrt[(1-h1*x)^2 - 4 h2*x^2]] / (2h2*x).
The two are the nontrivial zeros of the elliptic curve in Legendre normal form y^2 = z (z-z1)(z-z2), (see Landweber et al., p. 14, Ellingsrud, and A121448), and the zeros for the Riccati equation z' = (z - z1)(z - z2), associated to soliton solutions of the KdV equation (see Copeland link).
(End)
Comparing the shifted o.g.f. S(x) = x / (1 - h_1 x + h_2 x^2) for the bivariate Chebyshev polynomials S_n(h_1,h_2) of A049310 with the shifted o.g.f. H(x) = x / ((1 - a x)(1 - b x)) for the complete homogeneous symmetric polynomials H_n(a,b) = (a^(n+1)-b^(n+1)) / (a - b) shows that S_n(h_1,h_2) = H_n(a,b) for h_1 = a + b and h_2 = ab and, conversely, a = (h_1 + sqrt(h_1^2 - 4 h_2)) / 2 and b = (h_1 - sqrt(h_1^2 - 4 h_2)) / 2. The compositional inverse about the origin of S(x) gives a bivariate o.g.f. for signed Motzkin polynomials M_n(h_1,h_2) of this entry, and that of H(x) gives one for signed Narayana polynomials N_n(a,b) of A001263, thereby relating the bivariate Motzkin and Narayana polynomials by the indeterminate transformations. E.g., M_2(h_1,h_2) = h_2 + h_1^2 = ab + (a + b)^2 = a^2 + 3 ab + b^2 = N_2(a,b). - Tom Copeland, Jan 27 2024

A115369 Decimal expansion of first zero of BesselJ(1,z).

Original entry on oeis.org

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

Views

Author

Eric W. Weisstein, Jan 21 2006

Keywords

Comments

Also the first root of the sinc(2,x) function, that is, the radial component of the 2D Fourier transform of a 2-dimensional unit disc. - Stanislav Sykora, Nov 14 2013
Also the first root of the derivative of BesselJ_0. - Jean-François Alcover, Jul 01 2015

Examples

			3.8317059702075123156...
		

Crossrefs

Programs

A103365 First column of triangle A103364, which equals the matrix inverse of the Narayana triangle (A001263).

Original entry on oeis.org

1, -1, 2, -7, 39, -321, 3681, -56197, 1102571, -27036487, 810263398, -29139230033, 1238451463261, -61408179368043, 3513348386222286, -229724924077987509, 17023649385410772579, -1419220037471837658603, 132236541042728184852942, -13690229149108218523467549
Offset: 1

Views

Author

Paul D. Hanna, Feb 02 2005

Keywords

Examples

			From _Paul D. Hanna_, Jan 31 2009: (Start)
G.f.: A(x) = 1 - x + 2*x^2/3 - 7*x^3/18 + 39*x^4/180 - 321*x^5/2700 +...
G.f.: A(x) = 1/B(x) where:
B(x) = 1 + x + x^2/3 + x^3/18 + x^4/180 + x^5/2700 +...+ x^n/[n!*(n+1)!/2^n] +... (End)
		

Crossrefs

Programs

  • Mathematica
    Table[(-1)^((n-1)/2) * (CoefficientList[Series[x/BesselJ[1,2*x],{x,0,40}],x])[[n]] * ((n+1)/2)! * ((n-1)/2)!,{n,1,41,2}] (* Vaclav Kotesovec, Mar 01 2014 *)
  • PARI
    a(n)=if(n<1,0,(matrix(n,n,m,j,binomial(m-1,j-1)*binomial(m,j-1)/j)^-1)[n,1])
    
  • PARI
    {a(n)=local(B=sum(k=0,n,x^k/(k!*(k+1)!/2^k))+x*O(x^n));polcoeff(1/B,n)*n!*(n+1)!/2^n} \\ Paul D. Hanna, Jan 31 2009

Formula

From Paul D. Hanna, Jan 31 2009: (Start)
G.f.: A(x) = 1/B(x) where A(x) = Sum_{n>=0} (-1)^n*a(n)*x^n/[n!*(n+1)!/2^n] and B(x) = Sum_{n>=0} x^n/[n!*(n+1)!/2^n].
G.f. satisfies: A(x) = 1/F(x*A(x)) and F(x) = 1/A(x*F(x)) where F(x) = Sum_{n>=0} A155926(n)*x^n/[n!*(n+1)!/2^n].
G.f. satisfies: A(x) = 1/G(x/A(x)) and G(x) = 1/A(x/G(x)) where G(x) = Sum_{n>=0} A155927(n)*x^n/[n!*(n+1)!/2^n]. (End)
a(n) ~ (-1)^(n+1) * c * n! * (n-1)! * d^n, where d = 4/BesselJZero[1, 1]^2 = 0.2724429913055159309179376055957891881897555639652..., and c = 9.11336321311226744479181866135367355200240221549667284076... = BesselJZero[1, 1]^2 / (4*BesselJ[2, BesselJZero[1, 1]]). - Vaclav Kotesovec, Mar 01 2014, updated Apr 01 2018

A238390 E.g.f.: x / BesselJ(1, 2*x) (even powers only).

Original entry on oeis.org

1, 1, 4, 35, 546, 13482, 485892, 24108513, 1576676530, 131451399794, 13609184032808, 1712978776719938, 257612765775847132, 45620136452519144700, 9396239458048330569840, 2227147531572856811691105, 601916577165056911293330930, 183994483721828524163677628370
Offset: 0

Views

Author

Vaclav Kotesovec, Mar 01 2014

Keywords

Comments

Aerated, the e.g.f. is e^(a.t) = 1/AC(i*t) = 1/[I_1(2i*t)/(it)] = 1/Sum_{n>=0} (-1)^n t^(2n) / [n!(n+1)!] = a_0 + a_2 t^2/2! + a_4 t^4/4! + ... = 1 + t^2/2! + 4 t^4/4! + 35 t^6/6! + ..., where AC(t) is the e.g.f. for the aerated Catalan numbers c_n of A126120 and I_n(t) are the modified Bessel functions of the first kind (i = sqrt(-1)). The signed, aerated sequence b_n = (i)^n a_n has the e.g.f. e^(b.t) = 1/AC(t) and, therefore, (i*a. + c.)^n = Sum_{k=0..n} binomial(n,k) i^k a_k c_(n-k) vanishes except for n=0 for which it's unity. - Tom Copeland, Jan 23 2016
With q(n) = A126120(n+1) and q(0) = 0, d(2n) = (-1)^n A238390(n) and zero for odd arguments, and r(2n+1) = (-1)^n A180874(n+1) and zero for even arguments, then r(n) = (q. + d.)^n = Sum_{k=0..n} binomial(n,k) q(k) d(n-k), relating these sequences (and A000108) through binomial convolutions. Then also, (r. + c. + d.)^n = r(n). See A180874 for proofs and for relations to A097610. For quick reference, q = (0, 1, 0, 2, 0, 5, 0, 14, ..), d = (1, 0, -1, 0, 4, 0, -35, 0, ..), and r = (0, 1, 0, -1, 0, 5, 0, -56, ..). - Tom Copeland, Jan 28 2016
Aerated and signed, this sequence contains the moments m(n) of the Appell polynomial sequence UMT(n,h1,h2) that is the umbral compositional inverse of the Appell sequence of Motzkin polynomials MT(n,h1,h2) of A097610 with exp[x UMT(.,h1,h2)] = e^(x*h1) / AC(x*y) where y = sqrt(h2) and AC is defined above. UMT(n,h1,h2) = (m.y + h1)^n with (m.)^(2n) = m(2n) = (-1)^n A238390(n) and zero otherwise. Consequently, the associated lower triangular matrices A007318(n,k)*m(n-k) and A007318(n,k)*A126120(n-k) form an inverse pair (cf. also A133314), and MT(n,UMT(.,h1,h2),h2) = h1^n = UMT(n,MT(.,h1,h2),h2). - Tom Copeland, Jan 30 2016

Crossrefs

Programs

  • Maple
    S:= series(x/BesselJ(1,2*x),x,102):
    seq((2*j)!*coeff(S,x,2*j),j=0..50); # Robert Israel, Jan 31 2016
  • Mathematica
    Table[(CoefficientList[Series[x/BesselJ[1, 2*x], {x, 0, 40}], x] * Range[0, 40]!)[[n]], {n, 1, 41, 2}]

Formula

a(n) ~ c * (n!)^2 / (sqrt(n) * r^n), where r = BesselJZero[1, 1]^2/16 = 0.91762316513274332857623611, and c = 1/(Sqrt[Pi]*BesselJ[2, BesselJZero[1, 1]]) = 1.4008104828035425937394082168... - Vaclav Kotesovec, Mar 01 2014, updated Apr 01 2018

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)

A307346 Number of uniquely sorted permutations of [2n+1] that avoid the patterns 231 and 4123.

Original entry on oeis.org

1, 1, 3, 10, 36, 138, 553, 2288, 9699, 41908
Offset: 0

Views

Author

Colin Defant, Apr 03 2019

Keywords

Examples

			The 3 uniquely sorted permutations of [7] that avoid 231 and 4123 are 2164357, 2143657, and 4321567.
		

Crossrefs

Cf. A180874.

A318973 Triangle read by rows: T(n,k) is the number of permutations of [2n-1] that have exactly one preimage under West's stack-sorting map and that also have first entry k.

Original entry on oeis.org

1, 0, 1, 0, 0, 1, 3, 1, 0, 0, 5, 13, 20, 13, 5, 0, 0, 56, 136, 221, 266, 221, 136, 56, 0, 0, 1092
Offset: 1

Views

Author

Colin Defant, Sep 06 2018

Keywords

Comments

Rows are symmetric: T(n,k) = T(n,2n-k).
It appears that the sequence T(n,1),...,T(n,2n-1) is always unimodal. In fact, it appears that this sequence is always log-concave.
Row sums give A180874.

Examples

			The five uniquely sorted permutations of [5] are 21435, 31425, 32415, 32145, and 42135. Of these permutations, T(3,1) = 0 start with the entry 1, T(3,2) = 1 starts with 2, T(3,3) = 3 start with 3, T(3,4) = 1 starts with 4, and T(3,5) = 0 start with 5.
Triangle begins:
             1,
         0,  1,  0,
     0,  1,  3,  1, 0,
  0, 5, 13, 20, 13, 5, 0,
  ...
		

Crossrefs

Cf. A180874.

Formula

T(n,1) = T(n,2n-1) = 0 for n>1.
T(n,2) = T(n,2n-2) = A180874(n-1) for n>1.

A318974 Total number of valid hook configurations of permutations of [n].

Original entry on oeis.org

1, 1, 2, 6, 22, 99, 520, 3126, 21164, 159226, 1318000, 11902268, 116444668, 1226878267, 13849980752, 166773534726, 2133706472788, 28904542964982, 413312731986464, 6221110588709700, 98321023508946088, 1627902016045648206, 28178332753660846304
Offset: 1

Views

Author

Colin Defant, Sep 06 2018

Keywords

Comments

a(n) = -k_{n+1}(-1), where k_m(lambda) is the cumulant of the free Poisson law with rate lambda. This is usually defined for lambda > 0, but there is a natural extension to lambda <= 0.
a(n) is the number of pairs (rho,r), where rho is a set partition of {0,...,n} and r is an acyclic orientation of the crossing graph of rho in which the block containing 0 is the only source (see the Josuat-Verges paper or the Defant-Engen-Miller paper for definitions).

Crossrefs

Programs

  • Mathematica
    Table[(-(m + 1)!) SeriesCoefficient[Log[1 + Sum[Sum[(1/n) Binomial[n, k] Binomial[n, k - 1] (-1)^k (z^n/n!), {k, 1, n}], {n, 1, 100}]], {z, 0, m + 1}], {m, 1, 10}]

Formula

Let m_n(lambda) = Sum_{k=1..n} lambda^k * A001263(n,k). If we define k_n(lambda) by Sum_{n>=1} k_n(lambda) * z^n/n! = log(1 + Sum_{n>=1} m_n(lambda) * z^n/n!), then a(n) = -k_{n+1}(-1).
Define E(m,n) by E(n,n) = 1 and E(m,n) = Sum_{j=1..m} Sum_{i=1.. n-m-1} binomial(n-m-1,i-1) * F_j(i+j-1) * F_{m-j}(n-j-i) for 0 <= m < n, where F_m(n) = Sum_{j=m..n} E_j(n). Then a(n) = F_0(n).
Showing 1-10 of 11 results. Next