A022863 a(n) = [ a(n-1)/a(1) + a(n-2)/a(2) + ... + a(1)/a(n-1) ], for n >= 3.

1, 2, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 234, 379, 615, 998, 1619, 2627, 4263, 6918, 11226, 18217, 29561, 47970, 77844, 126321, 204988, 332645, 539801, 875964, 1421474, 2306702, 3743209, 6074307, 9857105, 15995654, 25957009, 42121835

Offset

1,2

Links

Clark Kimberling, Table of n, a(n) for n = 1..1000

Formula

a(n) ~ c * d^n, where d = 1.62275381745856884115747797718538977396890203478399837508696442768520..., c = 0.43142665986772109399057405488003450887636739499705486305469410649365... . - Vaclav Kotesovec, Jun 24 2016

Mathematica

a[1] = 1; a[2] = 2; a[3] = 2;
a[n_] := a[n] = Floor[Sum[a[n - k]/a[k], {k, 1, n - 1}]];
Table[a[n], {n, 1, 100}] (* Clark Kimberling, Jun 23 2016 *)

Crossrefs

Cf. A022864.

Sequence in context: A293419 A277218 A293643 * A236393 A350504 A039822

Adjacent sequences: A022860 A022861 A022862 * A022864 A022865 A022866

Keyword

nonn

Author

Clark Kimberling

Status

approved