login
a(n) = a(floor(2*n/3)) + a(floor(n/3)), a(0) = 0, a(1) = 1.
1

%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