OFFSET
0,1
EXAMPLE
-(2/2!)*x^2 + (118/6!)*x^6 - (25202/10!)*x^10 + (7567558/14!)*x^14 + ...
MATHEMATICA
DeleteCases[ Range[0, 46]! CoefficientList[ Series[Sin[Cos[x] - Cosh[x]], {x, 0, 46}], x], 0] (* Robert G. Wilson v, Aug 06 2018 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
a(0)=-2, more terms, and title improved by Sean A. Irvine, Aug 06 2018
STATUS
approved