editing
approved
editing
approved
Sum{floor(j*sqrt(5) ) : 1<=j<=n}; n-th partial sum of Beatty sequence for sqrt(5).
approved
editing
proposed
approved
editing
proposed
ListTools:-PartialSums([seq(floor(n*sqrt(5)), n=1..100)]); # Robert Israel, May 24 2020
Robert Israel, <a href="/A194110/b194110.txt">Table of n, a(n) for n = 1..10000</a>
approved
editing
_Clark Kimberling (ck6(AT)evansville.edu), _, Aug 15 2011
proposed
approved
editing
proposed
allocated Sum{floor(j*sqrt(5) : 1<=j<=n}; n-th partial sum of Beatty sequence for Clark Kimberlingsqrt(5).
2, 6, 12, 20, 31, 44, 59, 76, 96, 118, 142, 168, 197, 228, 261, 296, 334, 374, 416, 460, 506, 555, 606, 659, 714, 772, 832, 894, 958, 1025, 1094, 1165, 1238, 1314, 1392, 1472, 1554, 1638, 1725, 1814, 1905, 1998, 2094, 2192, 2292, 2394, 2499, 2606
1,1
c[n_] := Sum[Floor[j*Sqrt[5]], {j, 1, n}];
c = Table[c[n], {n, 1, 90}]
Cf. A022839 (Beatty sequence for sqrt(5)).
allocated
nonn
Clark Kimberling (ck6(AT)evansville.edu), Aug 15 2011
approved
editing