OFFSET
1,1
MATHEMATICA
a = {}; Do[AppendTo[a, (Prime[n] + Prime[n + 1])/2], {n, 2, 500}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Artur Jasinski, Jan 18 2007
EXTENSIONS
a(100) corrected by Sean A. Irvine, Jul 09 2023
STATUS
approved