OFFSET
1,1
MATHEMATICA
Select[Flatten[{Numerator[#], Denominator[#]}&/@Convergents[Pi, 500]], PrimeQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Apr 20 2013
STATUS
approved