|
%I #20 May 21 2023 11:51:39
%S 9,8,9,9,4,9,4,9,3,6,6,1,1,6,6,5,3,4,1,6,1,1,8,2,1,0,6,9,4,6,7,8,8,6,
%T 5,4,9,9,8,7,7,0,3,1,2,7,6,3,8,6,3,6,5,1,2,2,3,6,7,5,8,1,6,5,9,3,5,1,
%U 2,7,3,4,9,2,3,4,7,4,9,2,7,1,9,5,2,7,1,2,7,4,0,2,9,3,4,9,1,0,0,9,1,4,5,0,9
%N Decimal expansion of square root of 98.
%C Continued fraction expansion is 9 followed by {1, 8, 1, 18} repeated. - _Harry J. Smith_, Jun 12 2009
%C 7*2^(1/2) = sqrt(98) is also the maximum width of the arms of the cellular automaton described in A294020. - _Omar E. Pol_, Oct 29 2017
%H Harry J. Smith, <a href="/A010549/b010549.txt">Table of n, a(n) for n = 1..20000</a>
%e 9.899494936611665341611821069467886549987703127638636512236758165935127... - _Harry J. Smith_, Jun 12 2009
%t RealDigits[N[Sqrt[98],200]][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Feb 05 2012 *)
%t RealDigits[Sqrt[98],10,120][[1]] (* _Harvey P. Dale_, May 21 2023 *)
%o (PARI) { default(realprecision, 20080); x=sqrt(98); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b010549.txt", n, " ", d)); } \\ _Harry J. Smith_, Jun 12 2009
%Y Cf. A010169 Continued fraction. - _Harry J. Smith_, Jun 12 2009
%K nonn,cons
%O 1,1
%A _N. J. A. Sloane_
%E Final digits of sequence corrected using the b-file. - _N. J. A. Sloane_, Aug 30 2009
|
