The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A013435 E.g.f.: arcsinh(arctanh(x) - arcsin(x)) (odd powers only). 1
 0, 1, 15, 495, 29015, 2666475, 354343275, 64361872575, 15331195839375, 4639834754377875, 1739923436670397875, 792214640482949058375, 430673843640390204684375, 275621285783640234105646875, 205164378528197702536594546875, 175791115887829825909515376359375 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS Robert Israel, Table of n, a(n) for n = 0..224 EXAMPLE 0*x^1 + (1/3!)*x^3 + (15/5!)*x^5 + (495/7!)*x^7 + (29015/9!*x^9) + ... MAPLE E:= arcsinh(arctanh(x)-arcsin(x)): S:= series(E, x, 32): seq(coeff(S, x, k)*k!, k=1..31, 2); # Robert Israel, Aug 07 2018 MATHEMATICA With[{nn=30}, Join[{0}, Take[CoefficientList[Series[-ArcSinh[ArcSin[x]- ArcTanh[x]], {x, 0, nn}], x]Range[0, nn-1]!, {6, -1, 2}]]] (* Harvey P. Dale, Jul 20 2012 *) Union[Range[0, 31]! CoefficientList[ Series[ArcSinh[ArcTanh[x] - ArcSin[x]], {x, 0, 31}], x]] (* Robert G. Wilson v, Aug 06 2018 *) PROG (PARI) x='x+O('x^66); egf=asinh(atanh(x)-asin(x)); v=Vec(serlaplace(egf)); v=vector(#v\2, n, if(n==1, 0, v[2*n-1])) /* Joerg Arndt, Jul 20 2012 */ CROSSREFS Sequence in context: A218198 A208624 A013433 * A151816 A013431 A013432 Adjacent sequences:  A013432 A013433 A013434 * A013436 A013437 A013438 KEYWORD nonn AUTHOR Patrick Demichel (patrick.demichel(AT)hp.com) EXTENSIONS Definition corrected by Harvey P. Dale, Jul 20 2012 Missing a(1)=1 inserted and offset corrected by Sean A. Irvine, Aug 06 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified November 27 09:19 EST 2021. Contains 349365 sequences. (Running on oeis4.)