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

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, 14, 14, 15, 15, 15, 16, 18, 18, 18, 18, 18, 20, 21, 21, 21, 22, 22, 22, 23, 23, 23, 23, 23, 24, 27, 27, 27, 27, 27, 27, 27, 27, 29, 31, 31, 31, 31, 31, 32, 33, 33, 33, 35, 35, 35, 35

Offset: 0

Author

Roger L. Bagula and Gary W. Adamson, Jun 28 2008

Keywords

• nonn
• easy

Programs

Mathematica

a[0] = 0; a[1] = 1;
a[n_] := a[n] = a[Floor[2*n/3]] + a[Floor[n/3]];
Table[a[n], {n, 0, 200}]