[go: up one dir, main page]

login
A274211
Decimal expansion of the reciprocal of the constant in A274198.
4
8, 2, 4, 4, 1, 5, 9, 5, 0, 9, 1, 5, 6, 4, 9, 7, 8, 9, 6, 9, 8, 4, 0, 4, 5, 4, 5, 3, 4, 7, 2, 6, 2, 3, 1, 9, 7, 1, 4, 2, 0, 5, 7, 0, 7, 8, 8, 7, 0, 8, 0, 4, 2, 6, 5, 0, 2, 9, 2, 9, 5, 3, 6, 0, 0, 2, 8, 7, 8, 2, 9, 7, 5, 1, 9, 9, 7, 3, 0, 1, 1, 1, 7, 3, 3, 8
OFFSET
0,1
EXAMPLE
limiting ratio = 0.82441595091564978969840454...
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, 4 k]];
t = Table[g[n, k], {n, 0, z}, {k, 0, n}];
w = Map[Total, t]; (*A274197*)
u = N[w[[z]]/w[[z + 1]], 100]
RealDigits[u][[1]] (*A274211*)
CROSSREFS
KEYWORD
nonn,cons,easy
AUTHOR
Clark Kimberling, Jun 16 2016
STATUS
approved