A100925 Continued fraction expansion of constant defined in A100924.

0, 1, 10, 1, 4, 6, 1, 7, 3, 1, 1, 5, 18, 7, 1, 3, 2, 133, 5, 1, 5, 4, 1, 4, 1, 11, 19, 1, 4, 4, 1, 7, 1, 23, 1, 4, 2, 4, 1, 13, 1, 1, 2, 17, 1, 4, 2, 1, 1, 5, 9, 3, 2, 207, 4, 1, 3, 4, 4, 31, 2, 28, 2, 2, 1, 1, 7, 3, 3, 3, 1, 1, 792, 9, 1, 7, 3, 2, 2, 5, 2, 4, 1, 1, 1, 64, 2, 1, 2, 4, 1, 4, 73, 2, 1, 1, 1

Offset: 0

Author

Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 22 2004

Keywords

• cofr
• nonn

Examples

			0.9152947975135605797336153972856208111251020453695777508300794...
		

Crossrefs

Cf. A100923, A100924 (decimal expansion).

Programs

Mathematica

ContinuedFraction[Sum[If[And[PrimeQ[6*k - 1], PrimeQ[6*k + 1]], 1, 0]*2^(-k), {k, 1, 500}], 110]

Extensions

Offset changed by Andrew Howroyd, Aug 04 2024