|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 0..200
|
|
|
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
Adjacent sequences: A012395 A012396 A012397 * A012399 A012400 A012401
|
|
|
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
|
| |
|
|
