|
%I #22 Sep 06 2023 04:32:10
%S 0,1,-1,-1,0,29,-105,139,-2072,31737,-247545,1824151,-22456104,
%T 313750293,-3929185169,51584719523,-793292190480,13137192234225,
%U -221862616530705,3947317975733039,-75492532592047280,1522475446731094285
%N Expansion of e.g.f.: log(1+x)/cosh(x).
%H G. C. Greubel, <a href="/A009435/b009435.txt">Table of n, a(n) for n = 0..449</a>
%F a(n) ~ (-1)^(n+1) * (n-1)! / cosh(1). - _Vaclav Kotesovec_, Oct 01 2014
%t With[{nn=30},CoefficientList[Series[Log[1+x]/Cosh[x],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Oct 01 2014 *)
%o (Magma)
%o R<x>:=PowerSeriesRing(Rationals(), 30);
%o [0] cat Coefficients(R!(Laplace( Log(1+x)/Cosh(x) ))); // _G. C. Greubel_, Sep 06 2023
%o (SageMath)
%o def A009435_list(prec):
%o P.<x> = PowerSeriesRing(QQ, prec)
%o return P( log(1+x)/cosh(x) ).egf_to_ogf().list()
%o A009435_list(40) # _G. C. Greubel_, Sep 06 2023
%o (PARI) my(x='x+O('x^30)); concat([0],Vec(serlaplace(log(1+x)/cosh(x)))) \\ _Joerg Arndt_, Sep 06 2023
%Y Cf. A009405 - A009420, A009422 - A009434, A009436 - A009439.
%K sign,easy
%O 0,6
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Oct 01 2014
|
