A185591 Primes in continued fraction expansion of Pi (A001203).

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, 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, 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

Offset: 1

Author

Jani Melik, Feb 04 2011

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A185809.

Programs

Maple

Digits := 600: p1 := convert(Pi,confrac,300): select(isprime, p1);

Mathematica

Select[ContinuedFraction[Pi,500],PrimeQ] (* Harvey P. Dale, Jan 22 2012 *)