A024247 Expansion of e.g.f. sinh(x)*sin(tan(x))/2, even powers only.

0, 1, 4, 4, -1152, -91888, -7570624, -730713664, -83226398720, -10970712254208, -1615807519095808, -249282435016526848, -33772384403350126592, -217538905379543379968, 3508702299226395880538112

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sinh[x]Sin[Tan[x]]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Oct 24 2013 *)

Crossrefs

Cf. A009627.

Sequence in context: A078243 A024246 A358199 * A067445 A167003 A335762

Adjacent sequences: A024244 A024245 A024246 * A024248 A024249 A024250

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Prior Mathematica program replaced by Harvey P. Dale, Oct 24 2013

Clarified definition, Joerg Arndt, Feb 09 2014

Status

approved