|
%I #10 Dec 15 2017 17:35:07
%S 0,2,1,1,1,1,1,2,2,6,10,1,10,12,3,2,1,3,1,1,1,7,1,11,1,6,1,25,1,1,3,
%T 57,2,7,1,1,1,2,6,1,1,1,1,3,5,1,3,1,54,1,6,1,11,6,1,2,2,3,1,3,2,1,5,
%U 57,2,1,22,15,1,3,2,5,5,1,113,246,1,1,3,1,1,1,21,1,8,2,3,5,14,1,2,1,1,2,11,1,3
%N Continued fraction expansion of constant defined in A054399.
%H Harry J. Smith, <a href="/A062093/b062093.txt">Table of n, a(n) for n = 0..2000</a>
%e 0.381688338339685301301417997... = 0 + 1/(2 + 1/(1 + 1/(1 + 1/(1 + ...)))). - _Harry J. Smith_, Aug 01 2009
%o (PARI) contfrac(prodinf(n=1,((1-3/(2*(n+1)))^(1/2^n))))
%o (PARI) { allocatemem(932245000); default(realprecision, 2300); x=contfrac(prodinf(n=1, ((1-3/(2*(n+1)))^(1/2^n)))); for (n=0, 2000, write("b062093.txt", n, " ", x[n+1])) } \\ _Harry J. Smith_, Aug 01 2009
%Y Cf. A054399 Decimal expansion. - _Harry J. Smith_, Aug 01 2009
%K cofr,nonn
%O 0,2
%A _Jason Earls_, Jun 28 2001
%E Terms corrected by removing a spurious comma and 2 terms added by _Harry J. Smith_, Aug 01 2009
|
