|
%I #10 Aug 07 2018 03:30:40
%S 2,122,277202,3983059082,200112585065762,26008401336337737242,
%T 7277388248057262118433522,3872999317699675699454283234602,
%U 3585401782089744868804837371127740482,5396888276982771143162586362050799875871162
%N Coefficient of [x^(4*n+2)] in e.g.f. arcsin(cosh(x) - cos(x)).
%e 2/2!*x^2 + 122/6!*x^6 + 277202/10!*x^10 + 3983059082/14!*x^14 ...
%t DeleteCases[ Range[0, 38]! CoefficientList[ Series[ ArcSin[Cosh[x] - Cos[x]], {x, 0, 38}], x], 0] (* _Robert G. Wilson v_, Aug 06 2018 *)
%K nonn
%O 0,1
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0)=2 inserted, more terms, and title improved by _Sean A. Irvine_, Aug 06 2018
|
