A127555 - OEIS

%I #2 Mar 31 2012 10:22:03

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

%T 9,7,4,1,3,3,3,3,6,9,1,9,2,6,2,3,0,1,1,8,9,1,9,7,6,3,6,7,6,9,0,2,6,4,

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

%N Decimal expansion of the number 4.164393920313549053413239828743... having continued fraction expansion 4, 6, 12, 18, 30, 42, 60, 72, 102, ... (averages of twin primes A014574).

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

%Y Cf. A064442, A127549, A127550, A127551, A127552, A127553, A127556, A127557, A127558, A127559.

%K cons,nonn

%O 1,1

%A _Artur Jasinski_, Jan 18 2007