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
Keywords
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 *)