%I #7 Dec 17 2022 06:53:19
%S 0,1,1,2,2,3,3,3,4,5,5,5,6,6,7,8,8,8,9,9,9,10,10,11,12,12,12,14,14,14,
%T 14,14,15,15,15,16,18,18,18,18,18,20,21,21,21,22,22,22,23,23,23,23,23,
%U 24,27,27,27,27,27,27,27,27,29,31,31,31,31,31,32,33,33,33,35,35,35,35
%N a(n) = a(floor(2*n/3)) + a(floor(n/3)), a(0) = 0, a(1) = 1.
%t a[0] = 0; a[1] = 1;
%t a[n_] := a[n] = a[Floor[2*n/3]] + a[Floor[n/3]];
%t Table[a[n], {n, 0, 200}]
%K nonn,easy
%O 0,4
%A _Roger L. Bagula_ and _Gary W. Adamson_, Jun 28 2008