A289913 Decimal expansion of the limiting ratio of consecutive terms of A289912.

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

Offset

1,2

Links

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

Example

1.87831998264762017350476950388676342028750759950872900...

Mathematica

z = 100; r = Sqrt[2];
u = CoefficientList[Series[1/Sum[Round[(k + 1)*r] (-x)^k, {k, 0, z}], {x, 0, z}],
  x];  (* A289912 *)
v = N[u[[z]]/u[[z - 1]], 200]
d = RealDigits[v, 10][[1]] (* A289913 *)

Crossrefs

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

Sequence in context: A327854 A263179 A180311 * A103984 A203914 A037077

Adjacent sequences: A289910 A289911 A289912 * A289914 A289915 A289916

Keyword

nonn,cons,easy

Author

Clark Kimberling, Jul 18 2017

Status

approved