cp's OEIS Frontend

A274210 Decimal expansion of the reciprocal of the constant in A274195.

%I A274210 #5 Jun 16 2016 21:47:17
%S A274210 7,7,0,0,3,5,9,6,5,7,1,2,9,2,9,1,9,8,7,9,2,2,1,4,1,6,6,1,9,6,7,9,8,9,
%T A274210 9,3,7,0,3,2,9,4,1,7,2,3,4,0,9,3,7,2,9,6,4,2,9,4,7,0,5,2,2,0,0,8,0,8,
%U A274210 6,3,5,9,3,8,2,6,4,6,7,0,9,4,0,8,9,0
%N A274210 Decimal expansion of the reciprocal of the constant in A274195.
%e A274210 Limiting ratio = 0.770035965712929198792214166196...
%t A274210 z = 1600; g[n_, 0] = g[n, 0] = 1;
%t A274210 g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 3 k]];
%t A274210 t = Table[g[n, k], {n, 0, z}, {k, 0, n}];
%t A274210 w = Map[Total, t]; (*A274194*)
%t A274210 u = N[w[[z]]/w[[z + 1]], 100]
%t A274210 RealDigits[u][[1]] (*A274210*)
%Y A274210 Cf. A274195, A274194, A274195, A274209, A274211.
%K A274210 nonn,cons,easy
%O A274210 0,1
%A A274210 _Clark Kimberling_, Jun 16 2016