OFFSET
1,1
MATHEMATICA
a = {}; Do[AppendTo[a, Prime[n]], {n, 2, 100}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]
RealDigits[FromContinuedFraction[Prime[Range[2, 40]]], 10, 120][[1]] (* Harvey P. Dale, Mar 25 2012 *)
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Artur Jasinski, Jan 18 2007
STATUS
approved