A289266 Decimal expansion of the limiting ratio of consecutive terms of A289261.

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

Offset: 1

Author

Clark Kimberling, Jul 14 2017

Keywords

• nonn
• cons
• easy

Examples

			1.7640468687532034038928500563010585645579163733...
		

Crossrefs

Cf. A078140 (includes guide to related constants), A289261.

Programs

Mathematica

z = 2000; r = 13/8;
u = CoefficientList[Series[1/Sum[Floor[(k + 1)*r] (-x)^k, {k, 0, z}], {x, 0, z}], x];  (* A289261 *)
v = N[u[[z]]/u[[z - 1]], 200]
RealDigits[v, 10][[1]](* A289266 *)

Formula

Real root of the equation -2 + 2*x - x^2 + 2*x^3 - 2*x^4 + x^5 - 2*x^6 + x^7 = 0. - Vaclav Kotesovec, Aug 28 2021