STATUS
proposed
approved
proposed
approved
editing
proposed
(Maxima)
a[0]:0$
a[n]:=a[floor(2*(n-1)/3)] + 1$
A214972(n):=a[n];
makelist(A214972(n), n, 0, 30); /* Martin Ettl, Oct 31 2012 */
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
(PARI) a214972(n) = {local(nn, r); nn=n; r=0; while(nn>0, r=r+1; nn=floor(2*(nn-1)/3)); r} \\ Michael B. Porter, Oct 30 2012
proposed
editing
editing
proposed
a(n) = a(floor(2*(n-1)/3)), + 1, where a(0) = 0.
a(n) = a([floor(2*(n-1)/3]), ), where a(0) = 0 and [ ] = floor.
proposed
editing