%I #7 Mar 15 2015 01:24:45
%S 5,1,4,1,0,3,8,1,4,1,8,4,1,2,7,4,2,2,3,6,7,9,7,3,7,8,1,1,9,9,8,3,1,7,
%T 4,0,9,2,8,3,3,0,6,7,3,9,1,1,3,5,3,4,2,0,7,2,1,1,0,2,1,0,5,6,2,5,0,6,
%U 5,6,4,3,0,4,1,7,2,5,5,6,2,1,9,9,1,2,2,7,5,9,9,5,9,1,3,0,3,5,9,7,4,4,7,2,7
%N Decimal expansion of the number 5.1410381418412742236797378119983... having continued fraction expansion 5, 7, 11, 13, 17, 19, ... (successive odd primes starting from 5).
%e 5.1410381418412742236797378119983174092833067391135342072110210562...
%t a = {}; Do[AppendTo[a, Prime[n]], {n, 3, 100}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]
%t RealDigits[ FromContinuedFraction[Prime /@ Range[3, 50]], 10, 111][[1]]
%Y Cf. A064442, A127549, A127551, A127552, A127553, A127555.
%K cons,nonn
%O 1,1
%A _Artur Jasinski_, Jan 18 2007
%E More terms from _Robert G. Wilson v_, Dec 30 2007