A013473 arctan(cos(x)-cosh(x))=238/6!*x^6-715682/10!*x^10+12212600398/14!*x^14...

-2, 238, -715682, 12212600398, -693692750003522, 99086243037690160558, -29914788669101073817179362, 16957033980662331163451765544718, -16560275867709925788740349268459459202, 26102948307736145181548875145546574191456878

Offset

0,1

Links

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

Mathematica

With[{nn=40}, Take[CoefficientList[Series[ArcTan[Cos[x]-Cosh[x]], {x, 0, nn}], x] Range[0, nn-2]!, {3, -1, 4}]] (* Harvey P. Dale, Apr 08 2016 *)

Crossrefs

Sequence in context: A101146 A159280 A013477 * A212839 A225784 A087226

Adjacent sequences: A013470 A013471 A013472 * A013474 A013475 A013476

Keyword

sign

Author

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

Extensions

Corrected and extended by Harvey P. Dale, Apr 08 2016

Status

approved