A194142 a(n) = Sum_{j=1..n} floor(j*(3-sqrt(3))); n-th partial sum of Beatty sequence for 3-sqrt(3).

1, 3, 6, 11, 17, 24, 32, 42, 53, 65, 78, 93, 109, 126, 145, 165, 186, 208, 232, 257, 283, 310, 339, 369, 400, 432, 466, 501, 537, 575, 614, 654, 695, 738, 782, 827, 873, 921, 970, 1020, 1071, 1124, 1178, 1233, 1290, 1348, 1407, 1467, 1529, 1592, 1656

Offset: 1

Author

Clark Kimberling, Aug 17 2011

Keywords

• nonn

Crossrefs

Partial sums of A182777.

Programs

Mathematica

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