A194106 Sum{floor(j*sqrt(3)) : 1<=j<=n}; n-th partial sum of Beatty sequence for sqrt(3).

1, 4, 9, 15, 23, 33, 45, 58, 73, 90, 109, 129, 151, 175, 200, 227, 256, 287, 319, 353, 389, 427, 466, 507, 550, 595, 641, 689, 739, 790, 843, 898, 955, 1013, 1073, 1135, 1199, 1264, 1331, 1400, 1471, 1543, 1617, 1693, 1770, 1849, 1930, 2013, 2097

Offset

1,2

Links

Table of n, a(n) for n=1..49.

Mathematica

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

Crossrefs

Cf. A194107, A194108, A194109, A022838 (Beatty sequence for sqrt(3)).

Sequence in context: A285283 A243536 A184005 * A004629 A348338 A065893

Adjacent sequences: A194103 A194104 A194105 * A194107 A194108 A194109

Keyword

nonn

Author

Clark Kimberling, Aug 15 2011

Status

approved