A013470 Coefficient of [x^(4*n+2)] in e.g.f. sin(cos(x) - cosh(x)).

-2, 118, -25202, 7567558, 2826256798, -14573118501482, -6535594068553682, 260913788268313031398, 425088959122294634122558, -25651592227639570801390633802, -191452930887085308581148320293682, 8951371730395255528928644148861984518

Offset

0,1

Links

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

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

Sequence in context: A024243 A307094 A147774 * A013511 A013507 A013476

Adjacent sequences: A013467 A013468 A013469 * A013471 A013472 A013473

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