|
Search: id:A030168
|
|
|
| A030168 |
|
Continued fraction for Copeland-Erdos constant 0.235711... (concatenate primes). |
|
+0
11
|
|
| 0, 4, 4, 8, 16, 18, 5, 1, 1, 1, 1, 7, 1, 1, 6, 2, 9, 58, 1, 3, 4, 2, 2, 1, 1, 2, 1, 4, 39, 4, 4, 5, 2, 1, 1, 87, 16, 1, 2, 1, 2, 1, 1, 3, 1, 8, 1, 3, 1, 1, 6, 1, 13, 27, 1, 1, 3, 1, 41, 1, 2, 1, 1, 19, 1, 1, 1, 1, 3, 1, 1, 484, 1, 4, 1, 19, 3, 6, 8, 1, 5, 1, 17, 9, 2, 3, 5, 25, 1468, 1, 1, 3, 1
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
M. F. Hasler, Table of n, a(n) for n=0,...,5000
G. Xiao, Contfrac
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
Index entries for continued fractions for constants
|
|
EXAMPLE
|
0.23571113171923293137414347... = 0 + 1/(4 + 1/(4 + 1/(8 + 1/(16 + ...)))) [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Apr 30 2009]
|
|
MATHEMATICA
|
a = {}; Do[a = Append[a, IntegerDigits[ Prime[n]]], {n, 1, 10^2} ]; ContinuedFraction[ N[ FromDigits[ {Flatten[a], 0} ], 500]]
|
|
PROGRAM
|
(PARI, by M. F. Hasler, Oct 13 2009)
s=concat(vector(2000, i, Str(prime(i)))); c=contfrac(eval(s)/10^#s);
c2=contfrac((eval(s)+10^9)/10^#s);
for(i=1, #c, c[i]!=c2[i] & return(Str("Terms may be wrong for n>="i-1));
write("b030168.txt", i-1, " ", c[i]))
(PARI) { default(realprecision, 2100); x=0.0; m=0; forprime (p=2, 4000, n=1+floor(log(p)/log(10)); x=p+x*10^n; m+=n; ); x=contfrac(x/10^m); for (n=1, 2001, write("b030168.txt", n-1, " ", x[n])); } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Apr 30 2009]
|
|
CROSSREFS
|
Cf. A033308 (decimal expansion).
Cf. A072754 (numerators of convergents), A072755 (denominators of convergents).
Sequence in context: A002368 A022087 A095294 this_sequence A112435 A028610 A019171
Adjacent sequences: A030165 A030166 A030167 this_sequence A030169 A030170 A030171
|
|
KEYWORD
|
nonn,cofr
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com)
|
|
|
Search completed in 0.002 seconds
|
