%I #22 Apr 19 2019 09:38:08
%S 2,1,1,2,2,3,1,3,1,9,2,8,4,1,13,3,1,15,18,1,3,1,4,5,1,70,1,1,2,1,1,1,
%T 1,1,5,2,1,9,11,1,7,1,1,1,1,2,1,1,5,1,5,5,1,6,5,7,16,3,4,3,5,4,8,1,7,
%U 1,3,1,8,1,1,6,30,1,4,5,39,9,1,1,2,1,1,2,4,9,12,1,2,3,2,1,9,3,1,2,1,2,141
%N Continued fraction expansion of Sierpiński's Constant.
%D Steven R. Finch, Mathematical Constants, Cambridge, 2003, pp. 122-126.
%H Harry J. Smith, <a href="/A062083/b062083.txt">Table of n, a(n) for n=1,...,5000</a>
%H Steven R. Finch, <a href="http://www.people.fas.harvard.edu/~sfinch/constant/srp/srp.html">Sierpinski's Constant.</a> [Broken link]
%H Steven R. Finch, <a href="http://web.archive.org/web/20010207201533/http://www.mathsoft.com:80/asolve/constant/srp/srp.html">Sierpinski's Constant.</a> [From the Wayback machine]
%H Simon Plouffe, <a href="http://www.plouffe.fr/simon/constants/sierpinski.txt">Sierpinski Constant to 2000 digits.</a>
%e 2.5849817595792532170658935873831711600880516518526309173215...
%o (PARI) contfrac(-Pi*log(Pi)+2*Pi*Euler+4*Pi*log(gamma(3/4)))
%o (PARI) { allocatemem(932245000); default(realprecision, 5500); x=contfrac(-Pi*log(Pi)+2*Pi*Euler+4*Pi*log(gamma(3/4))); for (n=1, 5000, write("b062083.txt", n, " ", x[n])) } \\ _Harry J. Smith_, Aug 01 2009
%Y Cf. A062089.
%K cofr,easy,nonn
%O 1,1
%A _Jason Earls_, Jun 27 2001
|