%I #16 Jul 08 2017 12:44:10
%S 3,7,2,3,2,2,2,2,2,2,3,13,2,2,2,3,5,7,2,3,7,2,3,2,5,2,2,3,2,2,2,2,2,3,
%T 2,2,5,2,2,5,2,2,2,2,7,3,3,7,2,7,2,3,19,2,3,7,3,3,3,2,2,2,13,2,3,3,3,
%U 2,5,3,2,2,3,23,3,7,2,2,2,127,5,3,13,7,5,3,29,3,2,2,3,3,3,3,2,7,2,11,3,7,5,2,3,2,3,2,2,2
%N Primes in continued fraction expansion of Pi (A001203).
%H G. C. Greubel, <a href="/A185591/b185591.txt">Table of n, a(n) for n = 1..5000</a>
%p Digits := 600: p1 := convert(Pi,confrac,300): select(isprime, p1);
%t Select[ContinuedFraction[Pi,500],PrimeQ] (* _Harvey P. Dale_, Jan 22 2012 *)
%Y Cf. A185809.
%K nonn
%O 1,1
%A _Jani Melik_, Feb 04 2011