|
%I #29 Feb 21 2024 16:33:41
%S 9,4,8,6,8,3,2,9,8,0,5,0,5,1,3,7,9,9,5,9,9,6,6,8,0,6,3,3,2,9,8,1,5,5,
%T 6,0,1,1,5,8,6,6,5,4,1,7,9,7,5,6,5,0,4,8,0,5,7,2,5,1,4,5,5,8,3,7,7,7,
%U 8,3,3,1,5,9,1,7,7,1,4,6,6,4,0,3,2,7,4,4,3,2,5,1,3,7,9,0,0,8,8
%N Decimal expansion of square root of 90.
%C Continued fraction expansion is 9 followed by {2, 18} repeated. - _Harry J. Smith_, Jun 11 2009
%H Harry J. Smith, <a href="/A010541/b010541.txt">Table of n, a(n) for n = 1..20000</a>
%e 9.486832980505137995996680633298155601158665417975650480572514558377783... - _Harry J. Smith_, Jun 11 2009
%t RealDigits[N[90^(1/2),200]][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Jan 23 2012 *)
%o (PARI) { default(realprecision, 20080); x=sqrt(90); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b010541.txt", n, " ", d)); } \\ _Harry J. Smith_, Jun 11 2009
%o (Python)
%o from math import isqrt
%o def aupton(nn): return list(map(int, str(isqrt(90 * 10**(2*nn)))))[:nn]
%o print(aupton(100)) # _Michael S. Branicky_, Sep 04 2021
%Y Cf. A040080 (continued fraction). - _Harry J. Smith_, Jun 11 2009
%K nonn,cons
%O 1,1
%A _N. J. A. Sloane_
|
