A289003 - OEIS

A289003

Decimal expansion of the limiting ratio of consecutive terms of A288234.

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

(list; constant; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

EXAMPLE

1.755202484614384613489881050775533413444366653241137458292812482444...

MATHEMATICA

z = 2000; r = -1 + Sqrt[7];

u = CoefficientList[Series[1/Sum[Floor[(k + 1)*r] (-x)^k, {k, 0, z}], {x, 0, z}], x]; (* A288234 *)

v = N[u[[z]]/u[[z - 1]], 200]

RealDigits[v, 10][[1]](* A289003 *)