A013333 sinh(exp(x)-sec(x)) = x + 2/3!*x^3 - 4/4!*x^4 + 12/5!*x^5 - 120/6!*x^6 + ...

0, 1, 0, 2, -4, 12, -120, 128, -4464, 6912, -206880, 776800, -12788224, 95713984, -1101528064, 13091780224, -133871961344, 2061579919104, -22144979338752, 381671021731840, -4690276122840064, 83860033272100864

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[Exp[x]-Sec[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 12 2012 *)

Crossrefs

Sequence in context: A276534 A326969 A304986 * A154882 A062000 A053040

Adjacent sequences: A013330 A013331 A013332 * A013334 A013335 A013336

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Status

approved