|
%I #22 Dec 20 2015 03:15:32
%S 7,1,4,1,4,2,8,4,2,8,5,4,2,8,4,9,9,9,7,9,9,9,3,9,9,8,1,1,3,6,7,2,6,5,
%T 2,7,8,7,6,6,1,7,1,1,5,9,9,0,2,7,3,3,8,3,3,2,0,8,4,3,0,8,8,2,7,6,5,8,
%U 2,0,4,0,6,4,4,0,0,2,1,8,8,6,2,5,8,9,8,8,2,1,3,5,3,2,8,2,0,4,1
%N Decimal expansion of square root of 51.
%C Continued fraction expansion is 7 followed by {7, 14} repeated. - _Harry J. Smith_, Jun 06 2009
%H Harry J. Smith, <a href="/A010504/b010504.txt">Table of n, a(n) for n = 1..20000</a>
%e 7.141428428542849997999399811367265278766171159902733833208430882765820... - _Harry J. Smith_, Jun 06 2009
%p Digits:=100; evalf(sqrt(51)); # _Wesley Ivan Hurt_, Mar 04 2014
%t RealDigits[N[Sqrt[51],200]][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Feb 24 2011 *)
%o (PARI) { default(realprecision, 20080); x=sqrt(51); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b010504.txt", n, " ", d)); } \\ _Harry J. Smith_, Jun 06 2009
%Y Cf. A040043 (continued fraction).
%K nonn,cons
%O 1,1
%A _N. J. A. Sloane_
|
