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
KEYWORD
cofr,nonn
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 22 2004
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 04 2024
STATUS
approved