OFFSET
1,2
EXAMPLE
1.3130367364335829063839516026417824763966897718032563402101244421445...
MATHEMATICA
a = {1}; Do[AppendTo[a, Prime[n]], {n, 2, 100}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]
RealDigits[FromContinuedFraction[Join[{1}, Prime[Range[2, 5000]]]], 10, 100][[1]] (* Harvey P. Dale, Jul 27 2017 *)
CROSSREFS
KEYWORD
AUTHOR
Artur Jasinski, Jan 18 2007
EXTENSIONS
One digit corrected by Harvey P. Dale, Jul 27 2017
STATUS
approved