|
%I #7 Aug 28 2021 04:49:41
%S 1,7,5,4,8,1,7,3,5,1,4,0,9,7,3,1,1,2,8,7,9,3,3,0,6,6,5,3,8,1,7,6,7,8,
%T 7,7,8,8,2,2,0,4,3,2,2,8,4,1,4,1,6,9,5,7,6,0,4,0,7,1,2,8,4,1,4,2,2,0,
%U 8,9,3,1,8,2,2,1,5,0,9,4,7,7,3,1,5,8
%N Decimal expansion of the limiting ratio of consecutive terms of A288236.
%e 1.754817351409731128793306653817678778822...
%t z = 2000; r = -4/5 + Sqrt[6];
%t u = CoefficientList[Series[1/Sum[Floor[(k + 1)*r] (-x)^k, {k, 0, z}], {x, 0, z}], x]; (* A288236 *)
%t v = N[u[[z]]/u[[z - 1]], 200]
%t RealDigits[v, 10][[1]](* A289032 *)
%Y Cf. A288235, A289005, A078140 (includes guide to related constants).
%K nonn,cons,easy
%O 1,2
%A _Clark Kimberling_, Jul 14 2017
|
