[go: up one dir, main page]

login
A012185
Expansion of e.g.f.: exp(arctan(sin(x)))=1+x+1/2!*x^2-2/3!*x^3-11/4!*x^4+16/5!*x^5...
0
1, 1, 1, -2, -11, 16, 301, -272, -16631, 256, 1543801, 1758208, -216765251, -549115904, 42924800101, 178127730688, -11404529749871, -68157333438464, 3916428205369201, 31349506823815168, -1688780438764074491
OFFSET
0,4
FORMULA
E.g.f.: 1 + 2*sin(x)/(Q(0)-sin(x)), where Q(k) = 4*k+2 + (sin(x))^2*(4*k^2+8*k+5)/Q(k+1) ; (continued fraction). - Sergei N. Gladkovskii, Dec 18 2013
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Exp[ArcTan[Sin[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 28 2015 *)
CROSSREFS
Sequence in context: A306278 A199397 A012019 * A012253 A103336 A019402
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Definition clarified by Harvey P. Dale, Jan 28 2015
STATUS
approved