|
%I #10 May 31 2014 13:22:11
%S 1,12,13328,123701952,4532782825728,459909185638812672,
%T 104929881035116227072000,46932023772320615610531102720,
%U 37335044041745321283133064572108800,49122678379677747841112058639072413614080,101040224553048123974208287067140687061807267840
%N cosh(arctanh(x)*arctan(x)) = 1+12/4!*x^4+13328/8!*x^8+123701952/12!*x^12...
%H Vincenzo Librandi, <a href="/A012735/b012735.txt">Table of n, a(n) for n = 0..50</a>
%t With[{nn=40},Take[CoefficientList[Series[Cosh[ArcTanh[x]ArcTan[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,4}]] (* _Harvey P. Dale_, May 31 2014 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E More terms from and definition clarified by _Harvey P. Dale_, May 31 2014
|
