OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..250
FORMULA
a(n) = 8*Sum_{j=1..n} 2^(2*n-4*j)/(2*j-1)!*Sum_{i=0..2*j-1} (i-2*j+1)^(2*n)*binomial(4*j-2,i)*(-1)^(n-1-i). - Vladimir Kruchinin, Jun 08 2011
EXAMPLE
sinh(sin(x)*sin(x)) = 2/2!*x^2 - 8/4!*x^4 + 152/6!*x^6 - 6848/8!*x^8... - Patrick Demichel (patrick.demichel(AT)hp.com)
MATHEMATICA
With[{nmax = 50}, CoefficientList[Series[Sinh[Sin[x]^2], {x, 0, nmax}], x]*Range[0, nmax]!][[1 ;; ;; 2]] (* G. C. Greubel, Jan 30 2018 *)
PROG
(Maxima)
a(n):=8*sum(2^(2*n-4*j)/(2*j-1)!*sum((i-2*j+1)^(2*n)*binomial(4*j-2, i)*(-1)^(n-1-i), i, 0, 2*j-1), j, 1, n); /* Vladimir Kruchinin, Jun 08 2011 */
(PARI) x='x+O('x^50); v=Vec(serlaplace(sinh(sin(x)^2))); concat([0], vector(#v\2, n, v[2*n-1])) \\ G. C. Greubel, Jan 30 2018
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved