cp's OEIS Frontend

A069854 Denominators of coefficients of expansion of sinh(x)/sin(x) (even powers only).

%I A069854 #16 Feb 01 2022 21:53:04
%S A069854 1,3,18,1890,22680,1247400,157172400,6129723600,81729648000,
%T A069854 127932046704000,1646485441080480000,37869165144851040000,
%U A069854 62372742591519360000,9304453876089900528000000,5075156659685400288000000,4459030689216262044805920000000
%N A069854 Denominators of coefficients of expansion of sinh(x)/sin(x) (even powers only).
%H A069854 G. C. Greubel, <a href="/A069854/b069854.txt">Table of n, a(n) for n = 0..230</a>
%e A069854 G.f. = 1 + (1/3)*x^2 + (1/18)*x^4 + (13/1890)*x^6 + (17/22680)*x^8 + (97/1247400)*x^10 + ...
%p A069854 a:= n-> denom(coeff(series(sinh(x)/sin(x), x, 2*n+2), x, 2*n)):
%p A069854 seq(a(n), n=0..24);  # _Alois P. Heinz_, Feb 01 2022
%t A069854 With[{m=60}, CoefficientList[Series[Sinh[x]/Sin[x], {x, 0, m}], x]][[1 ;; ;;  2]]//Denominator (* _G. C. Greubel_, Jan 31 2022 *)
%o A069854 (Magma)
%o A069854 m:=60; R<x>:=PowerSeriesRing(Rationals(), m);
%o A069854 b:= Coefficients(R!( Sinh(x)/Sin(x) ));
%o A069854 [Denominator( b[2*n-1] ): n in [1..Floor((m-2)/2)]]; // _G. C. Greubel_, Jan 31 2022
%o A069854 (Sage) [denominator( ( sinh(x)/sin(x) ).series(x, 2*n+3).list()[2*n] ) for n in (0..60)] # _G. C. Greubel_, Jan 31 2022
%Y A069854 Cf. A069853.
%K A069854 easy,frac,nonn
%O A069854 0,2
%A A069854 _Benoit Cloitre_, May 03 2002