%I #9 Apr 20 2013 19:08:00
%S 3,7,113,103993,833719,265381,4272943,411557987,842468587426513207,
%T 7809723338470423412693394150101387872685594299
%N Primes in either the numerator or denominator of continued fraction convergents to Pi.
%t Select[Flatten[{Numerator[#],Denominator[#]}&/@Convergents[Pi,500]],PrimeQ]
%K nonn
%O 1,1
%A _Harvey P. Dale_, Apr 20 2013