A009295 Expansion of e.g.f.: exp(x)/cosh(sin(x)).

1, 1, 0, -2, 4, 36, -56, -944, 2192, 45136, -128448, -3263072, 11141824, 334656960, -1332816512, -46199442176, 210250492160, 8260388524288, -42290401757184, -1857027989588480, 10563624419906560, 512693973356712960

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[x]/Cosh[Sin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 31 2013 *)

Crossrefs

Sequence in context: A140984 A057996 A009090 * A277091 A199495 A182965

Adjacent sequences: A009292 A009293 A009294 * A009296 A009297 A009298

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Prior Mathematica program replaced and definition clarified by Harvey P. Dale, Jul 31 2013

Status

approved