A108170 Decimal expansion of the number 5.1413105308627310489... having continued fraction expansion 5, 7, 13, 19, 31, 43, 61, 73, 103, 109, 139, 151, 181, ... (greater of twin primes A006512).

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

Offset

1,1

Links

Table of n, a(n) for n=1..100.

Mathematica

a = {}; Do[If[PrimeQ[Prime[n] + 2], AppendTo[a, 2 + Prime[n]]], {n, 2, 500}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]
RealDigits[FromContinuedFraction[Select[Partition[Prime[Range[500]], 2, 1], #[[2]]-#[[1]]==2&][[;; , 2]]], 10, 120][[1]] (* Harvey P. Dale, Apr 09 2026 *)

Crossrefs

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

Sequence in context: A256547 A023138 A194704 * A086988 A010132 A254247

Adjacent sequences: A108167 A108168 A108169 * A108171 A108172 A108173

Keyword

nonn,cons

Author

Artur Jasinski, Apr 20 2007

Extensions

a(99)-a(100) corrected by Sean A. Irvine, Jul 09 2023

Status

approved