%I #13 Nov 17 2019 01:44:33
%S 1,1,2,2,3,3,4,5,7,9,11,14,18,23,30,38,49,63,80,103,132,169,216,277,
%T 355,454,582,745,954,1222,1565
%N a(n) = ceiling(A173510(n)/2).
%F a(n) = A173510(n) - floor(A173510(n)/2).
%t l[0] = 2; l[1] = 1;
%t l[n_] := l[n] = l[n - 1] + l[n - 2] - Floor[l[n - 1]/2]
%t Table[l[n] - Floor[l[n]/2], {n, 0, 30}]
%Y Cf. A000032, A173497, A173510, A173508.
%K nonn
%O 0,3
%A _Roger L. Bagula_, Nov 23 2010