A143092 a(n) = a(floor(2*n/3)) + a(a(floor(n/3))).

1, 1, 2, 3, 3, 5, 4, 6, 7, 5, 8, 7, 11, 8, 9, 11, 12, 11, 13, 11, 12, 10, 16, 13, 18, 17, 12, 19, 13, 19, 18, 19, 16, 23, 19, 20, 25, 24, 20, 22, 24, 22, 20, 21, 24, 23, 26, 21, 31, 25, 30, 21, 30, 25, 36, 28, 31, 24, 31, 29, 37, 36, 28, 32, 28, 34, 34, 41, 32, 36, 31, 34, 39, 38

Offset

1,3

Links

Table of n, a(n) for n=1..74.

Mathematica

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

Crossrefs

Sequence in context: A304818 A088922 A357658 * A143089 A275314 A161857

Adjacent sequences: A143089 A143090 A143091 * A143093 A143094 A143095

Keyword

nonn,easy

Author

Roger L. Bagula, Oct 16 2008

Status

approved