A288241 Decimal expansion of the limiting ratio of consecutive terms of A288231.

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

Offset: 1

Author

Clark Kimberling, Jul 11 2017

Keywords

• nonn
• cons
• easy

Examples

			1.9479484718847796710315570516902584529350253894155...
		

Crossrefs

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

Programs

Mathematica

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