%I #16 Sep 08 2022 08:45:13
%S 1,0,0,1,8,6,7,4,3,6,2,1,9,3,1,8,6,0,6,0,7,7,2,2,7,6,8,0,4,2,4,1,5,7,
%T 0,8,7,1,2,2,4,2,4,1,2,7,4,2,7,4,9,7,0,5,4,5,0,0,1,3,0,1,9,0,2,1,0,9,
%U 4,9,7,9,8,9,0,9,5,6,2,8,2,5,7,1,2,9,3,8,2,5,0,3,5,3,0,9,9,9,6,2,5,5
%N Decimal expansion of (1+sqrt(5)+sqrt(2*(5+sqrt(5))))/(2*e^((2*Pi)/5)).
%C Has a nice (non-simple) continued fraction due to Ramanujan.
%H G. C. Greubel, <a href="/A091899/b091899.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RamanujanContinuedFractions.html">Ramanujan Continued Fractions</a>
%F Equals 1/A091667.
%e 1.00186743...
%t RealDigits[(1 +Sqrt[5] +Sqrt[2*(5 +Sqrt[5])])/(2*Exp[(2*Pi)/5]), 10, 100][[1]] (* _G. C. Greubel_, Sep 27 2018 *)
%o (PARI) default(realprecision, 100); (1 +sqrt(5) +sqrt(2*(5 +sqrt(5))))/( 2*exp((2*Pi)/5)) \\ _G. C. Greubel_, Sep 27 2018
%o (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); (1 +Sqrt(5) +Sqrt(2*(5 +Sqrt(5))))/(2*Exp((2*Pi(R))/5)); // _G. C. Greubel_, Sep 27 2018
%Y Cf. A091667.
%K nonn,cons
%O 1,5
%A _Eric W. Weisstein_, Feb 09 2004
%E Offset corrected by _R. J. Mathar_, Feb 05 2009
|