%I #18 Aug 30 2020 22:15:41
%S 2,1,2,3,4,6,8,11,15,21,29,40,55,75,103,141,193,264,361,493,674,921,
%T 1258,1719,2348,3208,4382,5986,8177,11170,15259,20844,28474,38896,
%U 53133,72581,99148,135439,185013,252733,345240,471607,644227,880031
%N a(n) = a(n-1) + a(n-2) - floor(a(n-2)/2), starting 2,1.
%C The limiting ratio is a(n+1)/a(n): 1.36602540378443.
%C This limiting ratio is (1+sqrt(3))/2. - _Robert Israel_, Aug 30 2020
%H Robert Israel, <a href="/A173497/b173497.txt">Table of n, a(n) for n = 0..7374</a>
%F a(n) = a(n-1) + a(n-2) - floor(a(n-2)/2).
%p A[0]:= 2: A[1]:= 1:
%p for n from 2 to 100 do
%p A[n]:= A[n-1]+A[n-2]-floor(A[n-2]/2)
%p od:
%p seq(A[i],i=0..100); # _Robert Israel_, Aug 30 2020
%t l[0] = 2; l[1] = 1;
%t l[n_] := l[n] = l[n - 1] + l[n - 2] - Floor[l[n - 2]/2]
%t Table[l[n], {n, 0, 30}]
%t RecurrenceTable[{a[0]==2,a[1]==1,a[n]==a[n-1]+a[n-2]-Floor[a[n-2]/2]},a,{n,50}] (* _Harvey P. Dale_, Apr 26 2016 *)
%Y Cf. A064323, A000032.
%K nonn
%O 0,1
%A _Roger L. Bagula_, Nov 23 2010
%E More terms from _Max Alekseyev_, Jun 18 2011
|