A289848 Decimal expansion of the limiting ratio of consecutive terms of A289245.

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

Offset

1,1

Links

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

Example

2.5154769107727217467214881264679194776786944...

Mathematica

z = 2000;
u = CoefficientList[Series[1/Sum[Floor[-1 + (1 + GoldenRatio)*(k + 1)] (-x)^k, {k, 0, z}], {x, 0, z}], x];  (* A289245*)
v = N[u[[z]]/u[[z - 1]], 200]
RealDigits[v, 10][[1]](* A289848 *)

Crossrefs

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

Sequence in context: A191332 A229982 A327123 * A258020 A021803 A388367

Adjacent sequences: A289845 A289846 A289847 * A289849 A289850 A289851

Keyword

nonn,cons,easy

Author

Clark Kimberling, Jul 14 2017

Status

approved