login
A087655
a[n] = a[abs[n - a[n-1]]] + a[abs[n - a[n-2]]]+ a[abs[n - a[n-3]]]
2
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,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
Cf. A005185.
Sequence in context: A071641 A093336 A038135 * A016621 A342354 A011271
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 26 2003
STATUS
approved