|
%I #7 Mar 12 2014 16:37:14
%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].
%C The limiting ratio a(n+1)/a(n) is:2.1588924674387395
%F a(n) = 2*a(n - 1) + a(n - 2) - Floor[a(n - 2)/2] - Floor[a) n - 4]/2] - Floor[a(n - 5)/2].
%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
%O 0,3
%A _Roger L. Bagula_, Nov 23 2010
|
