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