A296218 Decimal expansion of the limiting ratio of terms in A296217.

4, 3, 1, 4, 1, 8, 6, 9, 6, 3, 4, 0, 2, 6, 0, 0, 1, 2, 6, 3, 9, 6, 2, 5, 4, 6, 9, 6, 2, 5, 5, 3, 9, 9, 3, 1, 3, 1, 7, 3, 1, 5, 4, 3, 3, 5, 3, 7, 7, 6, 9, 7, 3, 4, 5, 0, 0, 3, 0, 4, 5, 3, 5, 4, 9, 2, 4, 3, 5, 8, 4, 1, 6, 4, 5, 9, 6, 9, 2, 4, 1, 0, 0, 4, 3, 4

Offset

1,1

Links

Table of n, a(n) for n=1..86.

Example

A296217(n)/A296217(n-1)) -> 4.31418696340...
See A296000 for a guide to related sequences and limiting ratios.

Mathematica

a[0] = 1; a[1] = 2; b[0] = 3;
a[n_] := a[n] = Sum[a[k]*b[n - k - 1], {k, 1, n - 1}];
b[n_] := b[n] = mex[Flatten[Table[Join[{a[n]}, {a[i], b[i]}], {i, 0, n - 1}]]];
u = Table[a[n], {n, 0, 200}];  (* A296217 *)
Table[b[n], {n, 0, 20}]
N[Table[a[n]/a[n - 1], {n, 1, 200, 10}], 200];
RealDigits[Last[t], 10][[1]]    (* A296218 *)

Crossrefs

Cf. A296000, A296215, A296217.

Sequence in context: A168616 A375754 A342813 * A130806 A200490 A016499

Adjacent sequences: A296215 A296216 A296217 * A296219 A296220 A296221

Keyword

nonn,easy,cons

Author

Clark Kimberling, Dec 08 2017

Status

approved