|
%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
|
