OFFSET
0,1
EXAMPLE
2/2!*x^2 + 122/6!*x^6 + 277202/10!*x^10 + 3983059082/14!*x^14 ...
MATHEMATICA
DeleteCases[ Range[0, 38]! CoefficientList[ Series[ ArcSin[Cosh[x] - Cos[x]], {x, 0, 38}], x], 0] (* Robert G. Wilson v, Aug 06 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
a(0)=2 inserted, more terms, and title improved by Sean A. Irvine, Aug 06 2018
STATUS
approved