A357649
Expansion of e.g.f. cosh( (exp(3*x) - 1)/3 ).
Original entry on oeis.org
1, 0, 1, 9, 64, 435, 3097, 24822, 232759, 2517345, 30070954, 382827225, 5110770205, 71421582024, 1049487311485, 16286699945853, 267145966335088, 4616924929100535, 83622792656855125, 1578916985654901366, 30957723637379211115, 628927539690331202661
Offset: 0
-
With[{m = 20}, Range[0, m]! * CoefficientList[Series[Cosh[(Exp[3*x] - 1)/3], {x, 0, m}], x]] (* Amiram Eldar, Oct 07 2022 *)
-
my(N=30, x='x+O('x^N)); Vec(serlaplace(cosh((exp(3*x)-1)/3)))
-
a(n) = sum(k=0, n\2, 3^(n-2*k)*stirling(n, 2*k, 2));
A357617
Expansion of e.g.f. sinh( (exp(4*x) - 1)/4 ).
Original entry on oeis.org
0, 1, 4, 17, 88, 657, 6844, 83393, 1072880, 14242785, 197046964, 2895895345, 45930435016, 789930042865, 14628150636012, 287915593953889, 5950831121362656, 128180962018224833, 2868724306984850020, 66704877850797014353, 1613138176448134032440
Offset: 0
-
With[{m = 20}, Range[0, m]! * CoefficientList[Series[Sinh[(Exp[4*x] - 1)/4], {x, 0, m}], x]] (* Amiram Eldar, Oct 07 2022 *)
-
my(N=30, x='x+O('x^N)); concat(0, Vec(serlaplace(sinh((exp(4*x)-1)/4))))
-
a(n) = sum(k=0, (n-1)\2, 4^(n-1-2*k)*stirling(n, 2*k+1, 2));
A357663
Expansion of e.g.f. cosh( (exp(4*x) - 1)/2 ).
Original entry on oeis.org
1, 0, 4, 48, 464, 4480, 48448, 621824, 9320704, 154890240, 2746131456, 51237908480, 1007228375040, 20965557829632, 463091379159040, 10826828061147136, 266438312153120768, 6861616219559034880, 184128217520198123520, 5135753969867535941632
Offset: 0
-
With[{nn=20},CoefficientList[Series[Cosh[(Exp[4x]-1)/2],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Aug 13 2025 *)
-
my(N=20, x='x+O('x^N)); Vec(serlaplace(cosh((exp(4*x)-1)/2)))
-
a(n) = sum(k=0, n\2, 4^(n-k)*stirling(n, 2*k, 2));
Showing 1-3 of 3 results.