login
Primes in continued fraction expansion of Pi (A001203).
2

%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