A194110 Sum{floor(j*sqrt(5)) : 1<=j<=n}; n-th partial sum of Beatty sequence for sqrt(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

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

ListTools:-PartialSums([seq(floor(n*sqrt(5)), n=1..100)]); # Robert Israel, May 24 2020

Mathematica

c[n_] := Sum[Floor[j*Sqrt[5]], {j, 1, n}];
c = Table[c[n], {n, 1, 90}]

Crossrefs

Cf. A022839 (Beatty sequence for sqrt(5)).

Sequence in context: A349704 A005991 A266194 * A291876 A277365 A184432

Adjacent sequences: A194107 A194108 A194109 * A194111 A194112 A194113

Keyword

nonn

Author

Clark Kimberling, Aug 15 2011

Status

approved