|
|
A009558
|
|
Expansion of e.g.f. sin(x)/cosh(sin(x)) (odd powers only).
|
|
1
|
|
|
1, -4, 56, -1576, 74944, -5428864, 556999808, -76901598208, 13750425100288, -3091282934198272, 853453694386847744, -283870980665283248128, 111959859759125683142656, -51664166661084786641993728
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ (-1)^(n+1) * 2*Pi* (2*n-1)! / (sqrt(4+Pi^2) * log(Pi/2 + sqrt(1+Pi^2/4))^(2*n)). - Vaclav Kotesovec, Apr 20 2014
|
|
EXAMPLE
|
sin(x)/cosh(sin(x)) = 1*x/1! - 4*x^3/3! + 56*x^5/5! - 1576*x^7/7! + ...
|
|
MATHEMATICA
|
With[{nn=30}, Take[CoefficientList[Series[Sin[x]/Cosh[Sin[x]], {x, 0, nn}], x]Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, May 16 2012 *)
|
|
PROG
|
(PARI) x='x+O('x^50); v=Vec(serlaplace(sin(x)/cosh(sin(x)))); vector((#v-1)\2 , n, v[2*n-1]) \\ G. C. Greubel, Jan 21 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|