A065056 - OEIS

%I #38 May 11 2023 13:20:04

%S 0,1,4,10,12,19,32,52,64,85,96,118,128,151,160,184,192,217,260,322,

%T 364,427,468,486,528,545,588,604,648,663,708,722,768,847,960,1038,

%U 1152,1229,1268,1346,1384,1463,1500,1580,1616,1697,1732,1814,1848

%N Partial sums of Recamán's sequence A005132.

%C Conjecture: lim n-->oo a(n)/n^2 exists and is about 0.8... - _Benoit Cloitre_, May 04 2020

%H N. J. A. Sloane, <a href="/A065056/b065056.txt">Table of n, a(n) for n = 0..100000</a>

%H <a href="/index/Rea#Recaman">Index entries for sequences related to Recamán's sequence</a>

%t rr = {0}; r[0] = 0;

%t 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];

%t Table[r[n], {n, 0, 100}] // Accumulate (* _Jean-François Alcover_, Aug 31 2022 *)

%Y Cf. A005132.

%K nonn

%O 0,3

%A _N. J. A. Sloane_, Nov 07 2001