|
%I #9 Jul 02 2017 12:23:57
%S 0,1,1,3,4,2,13,2,3,4,1,1,1,1,2,2,1,1,1,1,1,3,1,90,4,52,5,1,3,1,1,2,1,
%T 12,2,1,1,2,2,2,1,1,3,10,75,15,1,2,2,3,1,1,2,1,1,1,9,4,9,1,1,1,3,3,1,
%U 1,1,2,1,1,1,3,3,1,3,4,2,4,7,1,78,1,1,1,1,1,44,1,2,1,9,37,1,2,1,10,8,1,14
%N Continued fraction expansion of A038458.
%H Harry J. Smith, <a href="/A159672/b159672.txt">Table of n, a(n) for n = 0..20000</a>
%e 0.5671481302020177146468468755... = 0 + 1/(1 + 1/(1 + 1/(3 + 1/(4 + ...)))).
%o (PARI) { allocatemem(932245000); default(realprecision, 21000); x=contfrac(solve(x=.5,.6,127^x-113^x-1)); for (n=0, 20000, write("b159672.txt", n, " ", x[n+1])); }
%K nonn
%O 0,4
%A _Harry J. Smith_, Apr 19 2009
%E Edited by _N. J. A. Sloane_, Dec 16 2013
|
