A087655 a[n] = a[abs[n - a[n-1]]] + a[abs[n - a[n-2]]]+ a[abs[n - a[n-3]]].

1, 1, 1, 3, 7, 9, 5, 3, 13, 13, 5, 7, 13, 19, 7, 15, 15, 7, 13, 25, 25, 15, 5, 27, 39, 39, 15, 23, 41, 17, 35, 21, 23, 19, 41, 35, 11, 17, 41, 47, 37, 15, 35, 59, 49, 19, 31, 57, 27, 23, 59, 85, 47, 47, 23, 49, 35, 59, 41, 53, 29, 61, 33, 77, 31, 69, 49, 25, 85, 81, 51, 51, 33, 47

Offset: 1

Author

Roger L. Bagula, Sep 26 2003

Keywords

• nonn

Crossrefs

Cf. A005185.

Programs

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