A013314 cos(exp(x)-cos(x))=1-1/2!*x^2-6/3!*x^3-15/4!*x^4+183/6!*x^6...

1, 0, -1, -6, -15, 0, 183, 1162, 4305, 4032, -75169, -720390, -4057119, -13316160, 17994039, 691795018, 6706003809, 45159313536, 210202685567, 247239745914, -8759676926319, -137896385117568, -1415069646671241

Offset

0,4

Links

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

Mathematica

With[{nn=25}, CoefficientList[Series[Cos[Exp[x]-Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 21 2011 *)

Crossrefs

Sequence in context: A158965 A284075 A281693 * A328339 A019306 A115408

Adjacent sequences: A013311 A013312 A013313 * A013315 A013316 A013317

Keyword

sign

Author

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

Status

approved