OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(n) is asymptotic to (6/10)*n.
MATHEMATICA
a[1] = 1; a[n_] := a[n] = n - a[Floor[2*n/3]]; Array[a, 100] (* Amiram Eldar, May 09 2022 *)
PROG
(PARI) a(n)=if(n==0, 0, n-a(floor(2*n/3))); \\ Joerg Arndt, Apr 27 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Nov 26 2002
STATUS
approved