Search: id:A051007 Results 1-1 of 1 results found. %I A051007 %S A051007 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, %T A051007 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, %U A051007 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 %N A051007 Continued fraction for prime constant A051006. %H A051007 Harry J. Smith, Table of n, a(n) for n=0,...,20000 %H A051007 Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics. %H A051007 G. Xiao, Contfrac %H A051007 Index entries for continued fractions for constants %e A051007 0.414682509851111660248109622... = 0 + 1/(2 + 1/(2 + 1/(2 + 1/(3 + ...)))) [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 15 2009] %t A051007 ContinuedFraction[ FromDigits[{{Table[ If[ PrimeQ[n], 1, 0], {n, 370}]}, 0}, 2], 95] (from Robert G. Wilson v Jan 15 2005) %o A051007 (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] %Y A051007 Cf. A010051, A051006. Increasing partial quotients are in A102878. %Y A051007 Cf. A051006 Decimal expansion. [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 15 2009] %Y A051007 Sequence in context: A110910 A119532 A010583 this_sequence A071470 A104461 A084862 %Y A051007 Adjacent sequences: A051004 A051005 A051006 this_sequence A051008 A051009 A051010 %K A051007 nonn,cofr %O A051007 0,2 %A A051007 Eric Weisstein (eric(AT)weisstein.com) Search completed in 0.003 seconds