A127549 Decimal expansion of the number 1.31303673643358290638395160264... having continued fraction expansion 1, 3, 5, 7, 11, 13, 17, 19, ...

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

Offset: 1

Author

Artur Jasinski, Jan 18 2007

Keywords

• nonn
• cons
• easy
• less

Examples

			1.3130367364335829063839516026417824763966897718032563402101244421445...
		

Crossrefs

Cf. A064442.

Programs

Mathematica

a = {1}; Do[AppendTo[a, Prime[n]], {n, 2, 100}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]
RealDigits[FromContinuedFraction[Join[{1},Prime[Range[2,5000]]]],10,100][[1]] (* Harvey P. Dale, Jul 27 2017 *)

Extensions

One digit corrected by Harvey P. Dale, Jul 27 2017