A296226 Decimal expansion of the limiting ratio of terms in A296225.

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

Offset

1,1

Comments

A296225(n)/A296225(n-1)) -> 3.651100534007...

See A296000 for a guide to related sequences and limiting ratios.

Links

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

Mathematica

mex[list_] := NestWhile[# + 1 &, 1, MemberQ[list, #] &];
a[0] = 1; a[1] = 3; b[0] = 2;
a[n_] := a[n] = n + Sum[a[k]*b[n - k - 1], {k, 0, n - 1}];
b[n_] := b[n] = mex[Flatten[Table[Join[{a[n]}, {a[i], b[i]}], {i, 0, n - 1}]]];
Table[a[n], {n, 0, 200}]  (* A296225 *)
Table[b[n], {n, 0, 20}]
N[Table[a[n]/a[n - 1], {n, 1, 200, 10}], 200];
RealDigits[Last[t], 10][[1]] (* A296226 *)

Crossrefs

Cf. A296000, A296225.

Sequence in context: A016615 A224746 A367036 * A296222 A295999 A296224

Adjacent sequences: A296223 A296224 A296225 * A296227 A296228 A296229

Keyword

nonn,easy,cons

Author

Clark Kimberling, Dec 10 2017

Status

approved