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,1

Links

Table of n, a(n) for n=0..85.

Example

Limiting ratio = 0.770035965712929198792214166196...

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*)

Crossrefs

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

Sequence in context: A371078 A002394 A340030 * A105167 A217227 A217346

Adjacent sequences: A274207 A274208 A274209 * A274211 A274212 A274213

Keyword

nonn,cons,easy

Author

Clark Kimberling, Jun 16 2016

Status

approved