login
A100925
Continued fraction expansion of constant defined in A100924.
2
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,3
EXAMPLE
0.9152947975135605797336153972856208111251020453695777508300794...
MATHEMATICA
ContinuedFraction[Sum[If[And[PrimeQ[6*k - 1], PrimeQ[6*k + 1]], 1, 0]*2^(-k), {k, 1, 500}], 110]
CROSSREFS
Cf. A100923, A100924 (decimal expansion).
Sequence in context: A284327 A322219 A010182 * A082263 A337927 A131790
KEYWORD
cofr,nonn
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 22 2004
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 04 2024
STATUS
approved