OFFSET
1,1
MATHEMATICA
a = {}; Do[If[PrimeQ[((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2], AppendTo[a, ((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2]], {n, 1, 1000}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Artur Jasinski, Jan 18 2007
STATUS
approved