login
A012398
Expansion of e.g.f. arcsin(arctan(x) * log(x+1)).
1
0, 0, 2, -3, 0, -10, 328, -2184, 5040, -40104, 1553472, -21776040, 152681760, -1439989200, 46442776560, -1043187246360, 14230149373440, -192510158608320, 5340852070126080, -157714328056487040
OFFSET
0,3
LINKS
EXAMPLE
2/2!*x^2 - 3/3!*x^3 - 10/5!*x^5 + 328/6!*x^6 ...
MATHEMATICA
Range[0, 19]! CoefficientList[Series[ArcSin[ArcTan[x] Log[x + 1]], {x, 0, 19}], x] (* Vincenzo Librandi, Jul 19 2018 *)
PROG
(PARI) x = 'x + O('x^30); concat([0, 0], Vec(serlaplace(asin(atan(x) * log(x+1))))) \\ Michel Marcus, Jul 19 2018
CROSSREFS
Sequence in context: A012654 A012651 A012401 * A012652 A012404 A002099
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
a(0) and a(1) inserted and title improved by Sean A. Irvine, Jul 18 2018
STATUS
approved