This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A051007 #21 Feb 16 2025 08:32:41
%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,
%U A051007 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
%N A051007 Continued fraction for prime constant A051006.
%H A051007 Harry J. Smith, <a href="/A051007/b051007.txt">Table of n, a(n) for n = 0..20000</a>
%H A051007 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrimeConstant.html">Prime Constant.</a>
%H A051007 G. Xiao, <a href="http://wims.unice.fr/~wims/en_tool~number~contfrac.en.html">Contfrac</a>
%H A051007 <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%e A051007 0.414682509851111660248109622... = 0 + 1/(2 + 1/(2 + 1/(2 + 1/(3 + ...)))). - _Harry J. Smith_, Jun 15 2009
%t A051007 ContinuedFraction[ FromDigits[{{Table[ If[ PrimeQ[n], 1, 0], {n, 370}]}, 0}, 2], 95] (* _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])); } \\ _Harry J. Smith_, Jun 15 2009
%Y A051007 Cf. A010051, A051006. Increasing partial quotients are in A102878.
%K A051007 nonn,cofr
%O A051007 0,2
%A A051007 _Eric W. Weisstein_