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

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, 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, 6, 3, 5, 9, 3, 8, 2, 6, 4, 6, 7, 0, 9, 4, 0, 8, 9, 0

Offset: 0

Author

Clark Kimberling, Jun 16 2016

Keywords

• nonn
• cons
• easy

Examples

			Limiting ratio = 0.770035965712929198792214166196...
		

Crossrefs

Cf. A274195, A274194, A274195, A274209, A274211.

Programs

Mathematica

z = 1600; g[n_, 0] = g[n, 0] = 1;
g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 3 k]];
t = Table[g[n, k], {n, 0, z}, {k, 0, n}];
w = Map[Total, t]; (*A274194*)
u = N[w[[z]]/w[[z + 1]], 100]
RealDigits[u][[1]] (*A274210*)