A127552 Decimal expansion of the number 3.19644719338616871113868629540207517... having continued fraction expansion 3, 5, 11, 17, 29, 41, 59, 71, 101, 107, ... (lesser of twin primes A001359).

3, 1, 9, 6, 4, 4, 7, 1, 9, 3, 3, 8, 6, 1, 6, 8, 7, 1, 1, 1, 3, 8, 6, 8, 6, 2, 9, 5, 4, 0, 2, 0, 7, 5, 1, 7, 0, 8, 1, 9, 3, 4, 3, 1, 0, 9, 5, 0, 6, 2, 2, 9, 6, 9, 8, 6, 8, 3, 5, 7, 2, 6, 6, 9, 2, 9, 9, 9, 7, 4, 2, 6, 6, 8, 7, 5, 8, 1, 3, 0, 2, 1, 7, 7, 0, 1, 3, 0, 2, 7, 7, 0, 4, 1, 4, 2, 0, 6, 1, 5

Offset: 1

Author

Artur Jasinski, Jan 18 2007

Keywords

• cons
• nonn

Crossrefs

Cf. A064442, A127549, A127550, A127551, A127553, A127555.

Programs

Mathematica

a = {}; Do[If[PrimeQ[Prime[n] + 2], AppendTo[a, Prime[n]]], {n, 2, 500}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]

Extensions

a(100) corrected by Sean A. Irvine, Jul 09 2023