OFFSET
0,3
MATHEMATICA
a = {}; Do[ a = Append[a, IntegerDigits[ Prime[n], 2]], {n, 1, 10^3} ]; ContinuedFraction[ N[ FromDigits[ {Flatten[a], 0}, 2], 500]]
CROSSREFS
KEYWORD
base,cofr,nonn
AUTHOR
Robert G. Wilson v, Jan 16 2002
EXTENSIONS
Offset changed by Andrew Howroyd, Jul 04 2024
STATUS
approved