OFFSET
0,1
COMMENTS
The limiting ratio a(n+1)/a(n)is:1.2807764064
MATHEMATICA
l[0] = 2; l[1] = 1;
l[n_] := l[n] = l[n - 1] + l[n - 2] - Floor[l[n - 1]/2]
Table[l[n], {n, 0, 30}]
RecurrenceTable[{a[0]==2, a[1]==1, a[n]==a[n-1]+a[n-2]-Floor[a[n-1]/2]}, a, {n, 50}] (* Harvey P. Dale, Sep 03 2013 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 23 2010
STATUS
approved