login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A009613 Expansion of e.g.f. sinh(tan(x)*tan(x)) (even powers only). 3
0, 2, 16, 392, 21376, 1875872, 227105536, 35750690432, 7110343684096, 1750588208886272, 523940264885702656, 187423773435078920192, 78905518064423548911616, 38568578386644134655598592 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Table of n, a(n) for n=0..13.

FORMULA

a(n) = sum(m=0..n, 1/(2*m+1)!*sum(j=4*m+2..2*n, binomial(j-1,4*m+1)*j!*2^(2*n-j)*(-1)^(n+1+j)*stirling2(2*n,j))). - Vladimir Kruchinin, Jun 11 2011

EXAMPLE

sinh(tan(x)*tan(x)) = 2/2!*x^2 + 16/4!*x^4 + 392/6!*x^6 + 21376/8!*x^8 + ...

MATHEMATICA

With[{nn=30}, Take[CoefficientList[Series[Sinh[Tan[x]^2], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jun 12 2016 *)

PROG

(Maxima)

a(n):=sum(1/(2*m+1)!*sum(binomial(j-1, 4*m+1)*j!*2^(2*n-j)*(-1)^(n+1+j)*stirling2(2*n, j), j, 4*m+2, 2*n), m, 0, n); /* Vladimir Kruchinin, Jun 11 2011 */

CROSSREFS

Sequence in context: A340563 A295710 A012390 * A012388 A297368 A012752

Adjacent sequences:  A009610 A009611 A009612 * A009614 A009615 A009616

KEYWORD

nonn

AUTHOR

R. H. Hardin

EXTENSIONS

Extended and signs tested by Olivier Gérard, Mar 15 1997

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 28 16:48 EST 2022. Contains 350657 sequences. (Running on oeis4.)