|
%I #6 Aug 20 2012 17:29:49
%S 1,0,0,-10,1288,-152934,21982884,-4077409466,972083601136,
%T -292315200462606,108645176948603484,-48996211090048870850,
%U 26383142439992849750056,-16729383446320867555995350
%N E.g.f.: cos(sin(x)-arctan(x))=1-10/6!*x^6+1288/8!*x^8-152934/10!*x^10...
%t With[{nn=30},Take[CoefficientList[Series[Cos[Sin[x]-ArcTan[x]],{x,0,nn}],x]Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Aug 20 2012 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Aug 20 2012
|
