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,4

Links

Table of n, a(n) for n=0..75.

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}]

Crossrefs

Sequence in context: A354967 A125186 A226222 * A115384 A131411 A300068

Adjacent sequences: A140470 A140471 A140472 * A140474 A140475 A140476

Keyword

nonn,easy

Author

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

Status

approved