OFFSET
0,3
COMMENTS
Conjecture: lim n-->oo a(n)/n^2 exists and is about 0.8... - Benoit Cloitre, May 04 2020
LINKS
MATHEMATICA
rr = {0}; r[0] = 0;
r[n_] := r[n] = Module[{r1, rn}, r1 = r[n-1]; rn = If[r1-n >= 0 && FreeQ[rr, r1-n], r1-n, r1+n]; AppendTo[rr, rn]; rn];
Table[r[n], {n, 0, 100}] // Accumulate (* Jean-François Alcover, Aug 31 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 07 2001
STATUS
approved