A013364 E.g.f.: cos(sin(x)-arctan(x))=1-10/6!*x^6+1288/8!*x^8-152934/10!*x^10...

1, 0, 0, -10, 1288, -152934, 21982884, -4077409466, 972083601136, -292315200462606, 108645176948603484, -48996211090048870850, 26383142439992849750056, -16729383446320867555995350

Offset

0,4

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cos[Sin[x]-ArcTan[x]], {x, 0, nn}], x]Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 20 2012 *)

Crossrefs

Sequence in context: A320959 A013367 A013366 * A013368 A317012 A160104

Adjacent sequences: A013361 A013362 A013363 * A013365 A013366 A013367

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Aug 20 2012

Status

approved