|
%I #8 Jan 19 2019 04:04:17
%S 0,1,1,1,1,3,2,11,2,1,2,3,1,8,1,1,2,3,2,8,1,3,5,17,15,2,1,1,1,1,2,7,1,
%T 1,1,4,1,1,1,1,2,20,19,6,7,23,14,1,10,3,2,1,1,154,5,6,2,2,1,23,1,1,28,
%U 2,2,5,2,1,1,1,1332,1,15,1,1,1,1,1,1,2,6,2,1,2,1,4,5,28,6,1
%N Continued fraction for sinh(gamma).
%C Continued fraction of (exp(gamma)-exp(-gamma))/2 = sinh(gamma) (A147709), where gamma is the Euler-Mascheroni constant (A001620).
%C See A322602 for the continued fraction of cosh(gamma).
%e 0 + 1/(1 + 1/(1 + 1/(1 + 1/(1 + 1/(3 + 1/(2 + 1/(11 + ...))))))) = 0.60980646721165640770618044...
%p with(numtheory): cfrac(sinh(gamma),100,'quotients'); # _Muniru A Asiru_, Dec 20 2018
%t ContinuedFraction[ (Exp[EulerGamma] - Exp[ -EulerGamma])/2, 100]
%o (PARI) contfrac(sinh(Euler)) \\ _Michel Marcus_, Dec 21 2018
%Y Cf. A147709 (decimal expansion), A001620 (Euler-Mascheroni constant), A322602.
%K nonn,cofr
%O 1,6
%A _Tristan Cam_, Dec 20 2018
|
