|
%I #22 Sep 08 2023 04:04:34
%S 0,1,-3,8,-32,149,-831,5340,-38744,316161,-2846611,28263960,
%T -305651048,3593550245,-45584631743,622159233948,-9091059243792,
%U 141783419182561,-2351573180823939,41355560621409352,-768924714448510480
%N Expansion of e.g.f. log(1+x)/exp(tan(x)).
%H Vincenzo Librandi, <a href="/A009438/b009438.txt">Table of n, a(n) for n = 0..200</a>
%F a(n) ~ (n-1)! * (-1)^(n+1) * exp(tan(1)). - _Vaclav Kotesovec_, Jan 23 2015
%t With[{nn=20},CoefficientList[Series[Log[1+x]/Exp[Tan[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jan 28 2014 *)
%o (Magma)
%o R<x>:=PowerSeriesRing(Rationals(), 30);
%o [0] cat Coefficients(R!(Laplace( Log(1+x)*Exp(-Tan(x)) ))); // _G. C. Greubel_, Sep 08 2023
%o (SageMath)
%o def A009438_list(prec):
%o P.<x> = PowerSeriesRing(QQ, prec)
%o return P( log(1+x)*exp(-tan(x)) ).egf_to_ogf().list()
%o A009438_list(31) # _G. C. Greubel_, Sep 08 2023
%Y Cf. A009405 - A009420, A009422 - A009437, A009439.
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Prior Mathematica program corrected by _Harvey P. Dale_, Jan 28 2014
|
