|
| |
|
|
A051007
|
|
Continued fraction for prime constant A051006.
|
|
6
| |
|
|
0, 2, 2, 2, 3, 12, 131, 1, 7, 1, 2, 1, 3, 3, 1, 2, 5, 39, 2, 1, 169, 2, 2, 2, 1, 1, 2, 5, 1, 2, 1, 199, 24, 7, 7, 1, 163, 1, 3, 2, 1, 2, 14, 1, 3, 5, 1, 1, 1, 1, 3, 3, 2, 1, 279, 1, 4, 1, 1, 4, 1, 92, 1, 16, 2, 3, 1, 5, 2, 25, 9, 1, 1, 2, 8, 1, 2, 5, 1, 1, 3, 1, 1, 2, 1, 7, 1, 1, 1, 5, 1, 2, 2, 5, 6, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,20000
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
G. Xiao, Contfrac
Index entries for continued fractions for constants
|
|
|
EXAMPLE
| 0.414682509851111660248109622... = 0 + 1/(2 + 1/(2 + 1/(2 + 1/(3 + ...)))) [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 15 2009]
|
|
|
MATHEMATICA
| ContinuedFraction[ FromDigits[{{Table[ If[ PrimeQ[n], 1, 0], {n, 370}]}, 0}, 2], 95] (from Robert G. Wilson v Jan 15 2005)
|
|
|
PROG
| (PARI) { default(realprecision, 20080); x=0; m=67000; for (n=1, m, if (isprime(n), a=1, a=0); x=2*x+a; ); x=contfrac(x/2^m); for (n=0, 20000, write("b051007.txt", n, " ", x[n+1])); } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 15 2009]
|
|
|
CROSSREFS
| Cf. A010051, A051006. Increasing partial quotients are in A102878.
Cf. A051006 Decimal expansion. [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 15 2009]
Sequence in context: A110910 A119532 A010583 * A071470 A197116 A104461
Adjacent sequences: A051004 A051005 A051006 * A051008 A051009 A051010
|
|
|
KEYWORD
| nonn,cofr
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
| |
|
|
