A127550 Decimal expansion of the number 3.19451324273619331289098105345... having continued fraction expansion 3, 5, 7, 11, 13, 17, 19, ... (successive odd primes).
3, 1, 9, 4, 5, 1, 3, 2, 4, 2, 7, 3, 6, 1, 9, 3, 3, 1, 2, 8, 9, 0, 9, 8, 1, 0, 5, 3, 4, 5, 0, 5, 5, 1, 7, 8, 4, 3, 8, 3, 9, 7, 4, 3, 9, 3, 1, 9, 7, 1, 1, 8, 1, 9, 3, 8, 2, 6, 7, 1, 9, 6, 9, 3, 3, 5, 4, 6, 9, 1, 2, 2, 5, 3, 6, 4, 2, 7, 6, 2, 6, 7, 5, 9, 5, 7, 8, 7, 6, 9, 8, 6, 5, 6, 1, 4, 7, 3, 3, 4
Offset: 1
Programs
-
Mathematica
a = {}; Do[AppendTo[a, Prime[n]], {n, 2, 100}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]] RealDigits[FromContinuedFraction[Prime[Range[2,40]]],10,120][[1]] (* Harvey P. Dale, Mar 25 2012 *)