%I #15 Oct 12 2024 09:02:25
%S 1,1,3,7,16,36,79,172,373,806,1742,3762,8123,17538,37864,81745,176480,
%T 381003,822545,1775788,3833737,8276627,17868350,38575848,83281109,
%U 179794961,388157989,837991360,1809133237,3905724120,8432038385
%N a(n) = 2*a(n-1) + a(n-2) - [a(n-2)/2] - [a(n-4)/2] - [a(n-5)/2] where [k] := floor(k).
%C The limiting ratio a(n+1)/a(n) is: 2.1588924674387395
%F a(n) = 2*a(n-1) + a(n-2) - [a(n-2)/2] - [a(n-4)/2] - [a(n-5)/2], where [] denotes the floor function.
%t a[-3] = 0; a[-2] = 0; a[-1] = 0; a[0] = 1; a[1] = 1;
%t a[n_] := a[n] =
%t 2*a[n - 1] + a[n - 2] - Floor[a[n - 2]/2] - Floor[a[n - 4]/2] -
%t Floor[a[n - 5]/2]
%t Table[a[n], {n, 0, 30}]
%K nonn,changed
%O 0,3
%A _Roger L. Bagula_, Nov 23 2010