A127558 Decimal expansion of the number 29.000694926917980144237135814... having continued fraction expansion 29, 1439, 4211, 7703, 12907, 14957, ... (A126555).

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

Offset: 2

Author

Artur Jasinski, Jan 18 2007

Keywords

• cons
• nonn

Crossrefs

Cf. A064442, A127549, A127550, A127551, A127552, A127553, A127555, A127556, A127557, A127559, A126555.

Programs

Mathematica

b = {}; a = {}; Do[If[PrimeQ[((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2], AppendTo[a, ((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2]], {n, 1, 100000}];Do[If[PrimeQ[(a[[k + 1]] + a[[k]])/2], AppendTo[b, (a[[k + 1]] + a[[k]])/2]], {k, 1, Length[a] - 1}]; RealDigits[N[FromContinuedFraction[b], 100]][[1]]

Extensions

Offset corrected by R. J. Mathar, Feb 05 2009