A009565
Expansion of e.g.f. sinh(exp(x)*x).
Original entry on oeis.org
0, 1, 2, 4, 16, 96, 576, 3368, 20672, 141760, 1091200, 9098112, 79676928, 726208640, 6919738112, 69344336896, 731241201664, 8076031881216, 92856867250176, 1106883171037184, 13655807547883520, 174298975125127168, 2300708116863287296, 31372716744306524160
Offset: 0
-
a:= n-> add(`if`(k::odd, binomial(n, k)*k^(n-k), 0), k=0..n):
seq(a(n), n=0..25); # Alois P. Heinz, Jan 15 2018
-
With[{nmax = 50}, CoefficientList[Series[Sinh[x*Exp[x]], {x, 0, nmax}], x]*Range[0, nmax]!] (* G. C. Greubel, Jan 21 2018 *)
-
x='x+O('x^30); concat([0], Vec(serlaplace(sinh(x*exp(x))))) \\ G. C. Greubel, Jan 21 2018
A009768
Expansion of e.g.f. tanh(exp(x)*x).
Original entry on oeis.org
0, 1, 2, 1, -20, -159, -594, 2465, 69560, 665665, 1593850, -67177791, -1413216540, -12990964063, 64480265318, 4811655319393, 90259507840240, 540272971703937, -20890652777843598, -798235260367432831, -12766815370452348580
Offset: 0
-
With[{nn=20},CoefficientList[Series[Tanh[Exp[x]*x],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Jun 03 2023 *)
-
my(x='x+O('x^30)); concat(0, Vec(serlaplace(tanh(exp(x)*x)))) \\ Michel Marcus, Oct 01 2021
A297009
Expansion of e.g.f. arcsin(x*exp(x)).
Original entry on oeis.org
0, 1, 2, 4, 16, 104, 816, 7792, 89216, 1177920, 17603200, 294334976, 5442281472, 110221745152, 2426850793472, 57718658411520, 1474590580228096, 40274407232294912, 1171043235561185280, 36115912820342407168, 1177554628069200035840, 40471207964013864124416
Offset: 0
arcsin(x*exp(x)) = x^1/1! + 2*x^2/2! + 4*x^3/3! + 16*x^4/4! + 104*x^5/5! + 816*x^6/6! + ...
-
a:=series(arcsin(x*exp(x)),x=0,22): seq(n!*coeff(a,x,n),n=0..21); # Paolo P. Lava, Mar 26 2019
-
nmax = 21; CoefficientList[Series[ArcSin[x Exp[x]], {x, 0, nmax}], x] Range[0, nmax]!
nmax = 21; CoefficientList[Series[-I Log[I x Exp[x] + Sqrt[1 - x^2 Exp[2 x]]], {x, 0, nmax}], x] Range[0, nmax]!
-
first(n) = my(x='x+O('x^n)); Vec(serlaplace(asin(exp(x)*x)), -n) \\ Iain Fox, Dec 23 2017
A297010
Expansion of e.g.f. arcsinh(x*exp(x)).
Original entry on oeis.org
0, 1, 2, 2, -8, -76, -264, 1672, 36800, 261648, -1443680, -66164704, -792152448, 2482671424, 289529373056, 5294082629760, 1648955815936, -2474170098704128, -65494141255724544, -303927676523118080, 35926135133071923200, 1341060635191667045376
Offset: 0
arcsinh(x*exp(x)) = x^1/1! + 2*x^2/2! + 2*x^3/3! - 8*x^4/4! - 76*x^5/5! - 264*x^6/6! + ...
-
a:=series(arcsinh(x*exp(x)),x=0,22): seq(n!*coeff(a,x,n),n=0..21); # Paolo P. Lava, Mar 26 2019
-
nmax = 21; CoefficientList[Series[ArcSinh[x Exp[x]], {x, 0, nmax}], x] Range[0, nmax]!
nmax = 21; CoefficientList[Series[Log[x Exp[x] + Sqrt[1 + x^2 Exp[2 x]]], {x, 0, nmax}], x] Range[0, nmax]!
-
first(n) = my(x='x+O('x^n)); Vec(serlaplace(asinh(exp(x)*x)), -n) \\ Iain Fox, Dec 23 2017
A294312
Expansion of e.g.f. sec(x*exp(x)).
Original entry on oeis.org
1, 0, 1, 6, 29, 180, 1501, 14434, 154265, 1856232, 24953401, 368767102, 5936244533, 103519338780, 1944554725205, 39134556793050, 840024295910833, 19157944025344464, 462629389438242673, 11792248121970820598, 316398168231432879565, 8913743651504295251844
Offset: 0
sec(x*exp(x)) = 1 + x^2/2! + 6*x^3/3! + 29*x^4/4! + 180*x^5/5! + 1501*x^6/6! + ...
Cf.
A000364,
A009007,
A009017,
A009121,
A009300,
A009448,
A009565,
A009635,
A009768,
A139134,
A191719,
A216401,
A217502,
A294313,
A297009,
A297010.
-
a:=series(sec(x*exp(x)),x=0,22): seq(n!*coeff(a,x,n),n=0..21); # Paolo P. Lava, Mar 27 2019
-
nmax = 21; CoefficientList[Series[Sec[x Exp[x]], {x, 0, nmax}], x] Range[0, nmax]!
nmax = 21; CoefficientList[Series[1/Cos[x Exp[x]], {x, 0, nmax}], x] Range[0, nmax]!
A294313
Expansion of e.g.f. sech(x*exp(x)).
Original entry on oeis.org
1, 0, -1, -6, -19, 20, 899, 7966, 27705, -366552, -8374201, -80690302, 9794597, 16015845820, 317370642315, 2554368906150, -37571987331343, -1784464543440304, -31315944840101233, -80221319702865398, 12685422355781995485, 422083364962616527716
Offset: 0
sech(x*exp(x)) = 1 - x^2/2! - 6*x^3/3! - 19*x^4/4! + 20*x^5/5! + 899*x^6/6! + ...
Cf.
A000364,
A009017,
A009121,
A009301,
A009448,
A009565,
A009635,
A009768,
A191719,
A216401,
A217502,
A294312,
A296544,
A297009,
A297010.
-
a:=series(sech(x*exp(x)),x=0,22): seq(n!*coeff(a,x,n),n=0..21); # Paolo P. Lava, Mar 27 2019
-
nmax = 21; CoefficientList[Series[Sech[x Exp[x]], {x, 0, nmax}], x] Range[0, nmax]!
nmax = 21; CoefficientList[Series[1/Cosh[x Exp[x]], {x, 0, nmax}], x] Range[0, nmax]!
Showing 1-6 of 6 results.