A289033 Decimal expansion of the limiting ratio of consecutive terms of A288237.

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

Offset

1,2

Links

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

Example

1.7548776666...

Mathematica

z = 2000; r = -4/5 + Sqrt[11/4];
u = CoefficientList[Series[1/Sum[Floor[(k + 1)*r] (-x)^k, {k, 0, z}], {x, 0, z}], x];  (* A288237 *)
v = N[u[[z]]/u[[z - 1]], 200]
RealDigits[v, 10][[1]](* A289033 *)

Crossrefs

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

Sequence in context: A225408 A109134 A075778 * A354644 A010510 A258042

Adjacent sequences: A289030 A289031 A289032 * A289034 A289035 A289036

Keyword

nonn,cons,easy

Author

Clark Kimberling, Jul 14 2017

Status

approved