A096080 a(n) = floor((a(n-2)*a(n-1))/(a(n-1)+a(n-2))) + a(n-1) + a(n-2), a(0) = 0, a(1) = 1, a(2) = 1, ...

0, 1, 1, 2, 3, 6, 11, 20, 38, 71, 133, 250, 469, 882, 1657, 3114, 5852, 10998, 20669, 38845, 73004, 137203, 257857, 484612, 910773, 1711693, 3216930, 6045851, 11362482, 21354481, 40133296, 75425924, 141754368, 266411067, 500689027

Offset

0,4

Comments

lim n->inf a(n)/a(n-1) = 2*cos(Pi/9) = a root of 1 + 3*x - x^3

Links

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

Mathematica

RecurrenceTable[{a[0]==0, a[1]==1, a[n]==Floor[(a[n-2]a[n-1])/(a[n-1]+a[n-2])]+ a[n-1]+a[n-2]}, a, {n, 40}] (* Harvey P. Dale, Mar 18 2013 *)

Crossrefs

Sequence in context: A186546 A318910 A141435 * A329665 A143658 A005230

Adjacent sequences: A096077 A096078 A096079 * A096081 A096082 A096083

Keyword

nonn

Author

Gerald McGarvey, Jul 21 2004

Status

approved