|
Search: id:A033308
|
|
|
| A033308 |
|
Decimal expansion of Copeland-Erdos constant: concatenate primes. |
|
+0
25
|
|
| 2, 3, 5, 7, 1, 1, 1, 3, 1, 7, 1, 9, 2, 3, 2, 9, 3, 1, 3, 7, 4, 1, 4, 3, 4, 7, 5, 3, 5, 9, 6, 1, 6, 7, 7, 1, 7, 3, 7, 9, 8, 3, 8, 9, 9, 7, 1, 0, 1, 1, 0, 3, 1, 0, 7, 1, 0, 9, 1, 1, 3, 1, 2, 7, 1, 3, 1, 1, 3, 7, 1, 3, 9, 1, 4, 9, 1, 5, 1, 1, 5, 7, 1, 6, 3, 1, 6, 7, 1, 7, 3, 1, 7, 9, 1, 8, 1, 1, 9, 1, 1
(list; cons; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
REFERENCES
|
G. Harman, One hundred years of normal numbers, in M. A. Bennett et al., eds., Number Theory for the Millennium, II (Urbana, IL, 2000), 149-166, A K Peters, Natick, MA, 2002.
Clifford A. Pickover, A Passion for Mathematics, Wiley, 2005; see p. 60.
|
|
LINKS
|
S. Plouffe, Copeland-Erdos constant, the primes concatenated
S. Plouffe, Copeland-Erdos constant, the primes concatenated
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
FORMULA
|
a = Sum[Prime[n]*10^-A68670[n], {n, 1, Infinity}] - Joseph Biberstine (jrbibers(AT)indiana.edu), Aug 12 2006
|
|
EXAMPLE
|
0.235711131719232931374143475359616771737983899710110310710911312...
|
|
MATHEMATICA
|
N[Sum[Prime[n]*10^-(n + Sum[Floor[Log[10, Prime[k]]], {k, 1, n}]), {n, 1, 40}], 100] - Joseph Biberstine (jrbibers(AT)indiana.edu), Aug 12 2006
N[Sum[Prime@n*10^-(n + Sum[Floor[Log[10, Prime@k]], {k, n}]), {n, 45}], 106] - Joseph Biberstine (jrbibers(AT)indiana.edu), Aug 12 2006
IntegerDigits //@ Prime@Range@45 // Flatten (* Robert G. Wilson v Oct 03 2006 *)
|
|
CROSSREFS
|
Cf. A030168 (continued fraction).
Cf. A072754 (numerators of convergents), A072755 (denominators of convergents).
Sequence in context: A113493 A060420 A077648 this_sequence A134690 A065859 A117819
Adjacent sequences: A033305 A033306 A033307 this_sequence A033309 A033310 A033311
|
|
KEYWORD
|
nonn,cons
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com)
|
|
|
Search completed in 0.002 seconds
|
