%I #18 Nov 30 2019 09:07:43
%S 8,0,4,3,1,8,5,6,1,1,1,7,1,5,7,9,5,0,7,6,7,6,8,0,4,4,1,3,9,3,4,1,9,2,
%T 9,9,0,5,7,3,2,7,2,7,3,9,6,4,1,9,6,8,5,2,8,5,5,9,9,2,7,3,5,9,5,1,9,1,
%U 4,5,4,5,5,3,1,0,2,2,7,8,0,8,2,1,3,4,5,3,2,4,9,3,1,1,2,0,2,0,4,4,9,3,3,9
%N Decimal expansion of number with continued fraction expansion 0, 1, 4, 9, ... (the squares).
%H Kerry Mitchell, <a href="/A073824/b073824.txt">Table of n, a(n) for n = 0..1494</a>
%e 0.80431856111715795076768044139...
%t RealDigits[FromContinuedFraction[Range[0,100]^2],10,120][[1]] (* _Harvey P. Dale_, May 07 2018 *)
%o (PARI) dec_exp(v)= w=contfracpnqn(v); w[1,1]/w[2,1]+0.
%o dec_exp(vector(2000,i,(i-1)^2))
%Y Cf. A000290 (squares).
%Y The numerators and denominators of convergents to this constant are given by A036245 and A036246 respectively.
%K cons,nonn
%O 0,1
%A _Rick L. Shepherd_, Aug 12 2002
|