A160923 Continued fraction for 1/6 + Soldner's constant

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 11, 1, 3, 1, 1, 4, 1, 1, 1, 6, 2, 8, 3, 4, 20, 1, 7, 2, 1, 2, 3, 2, 1, 6, 1, 18, 1, 3, 1, 1, 4, 1, 2, 2, 1

Offset

1,15

Comments

1/6 + Soldner's constant differs from the golden ratio by less than 2*10^-6. (1/6 + Soldner's constant = 1.61803590...; golden ratio = 1.61803398...). Hence the long initial sequence of 1's.

Links

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

Mathematica

ContinuedFraction[1/6 + FindRoot[LogIntegral[x], {x, 1.5}, WorkingPrecision->1000][[1, 2]], 50]

Crossrefs

Soldner's constant is A099803 Golden ratio is A000012

Sequence in context: A346104 A087463 A160366 * A201457 A111118 A159199

Adjacent sequences: A160920 A160921 A160922 * A160924 A160925 A160926

Keyword

cofr,nonn

Author

Fredrik Johansson, May 30 2009

Status

approved