%I #6 May 29 2017 12:34:45
%S 1,0,0,0,3,-10,100,-525,5985,-45540,591750,-5890775,86674775,
%T -1066113750,17624076600,-257870101125,4747675466625,-80439982441000,
%U 1635873200172250,-31462999921825875,701530665349044375
%N Expansion of e.g.f.: sec(log(x+1)-arcsin(x))=1+3/4!*x^4-10/5!*x^5+100/6!*x^6-525/7!*x^7...
%t With[{nn=20},CoefficientList[Series[Sec[Log[x+1]-ArcSin[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 29 2017 *)
%K sign
%O 0,5
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, May 29 2017