OFFSET
1,1
MATHEMATICA
a = {}; Do[If[PrimeQ[Prime[n] + 2], AppendTo[a, Prime[n]]], {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