A160331 - OEIS

%I #9 Dec 19 2015 23:20:18

%S 2,9,9,1,9,7,1,8,5,7,4,6,3,7,5,0,4,5,8,2,9,4,6,5,6,9,4,8,7,8,4,1,0,0,

%T 7,1,7,5,1,3,0,5,6,7,1,8,5,1,1,8,8,8,6,0,8,1,3,7,7,8,2,0,9,1,6,0,7,2,

%U 3,2,6,9,3,4,2,2,7,5,9,5,2,0,8,1,0,5,4,2,7,4,9,1,9,3,5,0,3,6,6,9,8,2,9,9,3

%N Decimal expansion of 2^(1/3) + sqrt(3).

%C 2^(1/3) + sqrt(3) = 2^(1/3) + 3^(1/2).

%H Harry J. Smith, <a href="/A160331/b160331.txt">Table of n, a(n) for n = 1..20000</a>

%e 2.99197185746375045829465694878410071751305671851188860813778209160723...

%t RealDigits[Surd[2,3]+Sqrt[3],10,120][[1]] (* _Harvey P. Dale_, Jan 18 2013 *)

%o (PARI) { default(realprecision, 20080); x=2^(1/3)+3^(1/2); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b160331.txt", n, " ", d)); }

%Y Cf. A039923 Continued fraction.

%K nonn,easy,cons

%O 1,1

%A _Harry J. Smith_, May 09 2009

%E Fixed my PARI program, had -n _Harry J. Smith_, May 19 2009