OFFSET
0,6
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..200
FORMULA
E.g.f.: log(1 + i*(log(1 - i*x) - log(1 + i*x))/2)*exp(x), where i is the imaginary unit.
EXAMPLE
E.g.f.: A(x) = x/1! + x^2/2! + 13*x^5/5! + 5*x^6/6! - 336*x^7/7! - 56*x^8/8! + ...
MAPLE
a:=series(log(1+arctan(x))*exp(x), x=0, 25): seq(n!*coeff(a, x, n), n=0..24); # Paolo P. Lava, Mar 27 2019
MATHEMATICA
nmax = 24; CoefficientList[Series[Log[1 + ArcTan[x]] Exp[x], {x, 0, nmax}], x] Range[0, nmax]!
nmax = 24; CoefficientList[Series[Log[1 + I (Log[1 - I x] - Log[1 + I x])/2] Exp[x], {x, 0, nmax}], x] Range[0, nmax]!
PROG
(PARI) my(ox=O(x^30)); Vecrev(Pol(serlaplace(log(1 + atan(x + ox)) * exp(x + ox)))) \\ Andrew Howroyd, Dec 12 2017
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Dec 12 2017
STATUS
approved