|
|
A049217
|
|
E.g.f.: (arctanh(x))^6/6! (even powers only).
|
|
5
|
|
|
1, 112, 14448, 2393600, 510205696, 137602949120, 46060832825344, 18793914785464320, 9198585089011777536, 5325419604670079827968, 3602492652661227322343424, 2817222656974232498101813248, 2523030777997770071132105342976, 2566233198310773279287315980615680
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: (arctanh x)^6/6! = sum(n>=0, a(n)*x^(2*n+6)/(2*n+6)! ).
|
|
EXAMPLE
|
(arctanh x)^6 = x^6 + 2*x^8 + 43/15*x^10 + 680/189*x^12 + ...
|
|
MAPLE
|
a:= n-> (2*n+6)!* coeff(series(arctanh(x)^6/6!, x, 2*n+7), x, 2*n+6):
|
|
MATHEMATICA
|
With[{nn=40, c=6!}, Take[CoefficientList[Series[ArcTanh[x]^6/c, {x, 0, nn}], x] Range[0, nn]!, {7, -1, 2}]] (* Harvey P. Dale, Aug 24 2012 *)
|
|
PROG
|
(PARI) a(n) = polcoeff(serlaplace(atanh(x+O(x^24))^6)/6!, 2*n+6)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Joe Keane (jgk(AT)jgk.org)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|