OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MAPLE
Digits := 600: p1 := convert(Pi, confrac, 300): select(isprime, p1);
MATHEMATICA
Select[ContinuedFraction[Pi, 500], PrimeQ] (* Harvey P. Dale, Jan 22 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jani Melik, Feb 04 2011
STATUS
approved