A127552 - OEIS

%I #5 Jul 09 2023 19:31:11

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

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

%U 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

%N 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).

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

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

%K cons,nonn

%O 1,1

%A _Artur Jasinski_, Jan 18 2007

%E a(100) corrected by _Sean A. Irvine_, Jul 09 2023