|
%I #10 Jul 25 2018 04:07:54
%S 0,1,-1,4,-6,13,75,-688,3444,17701,-627165,8927708,-77106810,67688905,
%T 13345186855,-307791747352,3673005693000,5260749482825,
%U -1552250968018713,45434699608017268,-741230930507315470
%N Expansion of e.g.f. arcsinh(sec(x) * log(x+1)).
%e x - 1/2!*x^2 + 4/3!*x^3 - 6/4!*x^4 + 13/5!*x^5 ...
%t Range[0, 21]! CoefficientList[ Series[ArcSinh[Sec[x] Log[x + 1]], {x, 0, 21}], x] (* _Robert G. Wilson v_, Jul 24 2018 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0) inserted and title improved by _Sean A. Irvine_, Jul 24 2018
|
