OFFSET
1,4
MATHEMATICA
Rauzy[n_Integer?Positive] := Rauzy[n] =Rauzy[Abs[n - Rauzy[n-1]]] + Rauzy[Abs[n - Rauzy[n-2]]]+ Rauzy[Abs[n - Rauzy[n-3]]] Rauzy[0]=Rauzy[1] = Rauzy[2]= Rauzy[3]= 1 digits=200 ta=Table[Rauzy[n], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 26 2003
STATUS
approved