A012638 arctan(arcsinh(x)*cos(x))=x-6/3!*x^3+128/5!*x^5-7784/7!*x^7...

1, -6, 128, -7784, 863168, -153777536, 40156766336, -14452100967680, 6857570007949312, -4148412279035834368, 3116288727548544729088, -2846053921629037944078336, 3105570670613041972460814336

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[ArcTan[ArcSinh[x]Cos[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Apr 17 2015 *)

Crossrefs

Sequence in context: A111873 A348796 A012842 * A338709 A318528 A095695

Adjacent sequences: A012635 A012636 A012637 * A012639 A012640 A012641

Keyword

sign

Author

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

Status

approved