%I #18 Jul 07 2024 10:17:19
%S 0,1,1,4,1,33,1,6,2,5,1,22,1,261,1,5,1,4,1,45,1,4,2,9,1,2,3,7,1,2,1,2,
%T 6,1,1,2,2,1,5,5,5,1,1,2,1,1,7,1,7,2,2,1,3,9,11,9,4,1,8,1,1,1,5,1,22,
%U 1,1,1,2,1,7,5,1,1,16,2,5,2,1,1,2,1,1,1,7,2,4,2,1,1,1,24
%N Continued fraction for sin(gamma).
%C Continued fraction of the imaginary part of exp(i*gamma) = sin(gamma) (A119807), where gamma is the Euler-Mascheroni constant (A001620).
%C See A322545 for the continued fraction of the real part.
%e 0 + 1/(1 + 1/(1 + 1/(4 + 1/(1 + 1/(33 + 1/(1 + 1/(6 + ...))))))) = 0.5456928232039927881573565...
%p with(numtheory): cfrac(sin(gamma),100,'quotients'); # _Muniru A Asiru_, Dec 20 2018
%t ContinuedFraction[ Sin[EulerGamma], 100]
%o (PARI) contfrac(sin(Euler)) \\ _Michel Marcus_, Dec 21 2018
%Y Cf. A119807 (decimal expansion), A001620 (Euler-Mascheroni constant), A322545.
%K nonn,cofr
%O 0,4
%A _Tristan Cam_, Dec 20 2018
%E Offset changed by _Andrew Howroyd_, Jul 07 2024