|
%I
%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
%F a(n)=a(n-1)+a(n-2)-Floor[a(n-2)/2].
%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}]
%Y Cf. A064323,A000032.
%K nonn
%O 0,1
%A _Roger Bagula_, Nov 23 2010
%E More terms from _Max Alekseyev_, Jun 18 2011
|
