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,2

Links

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

Mathematica

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

Crossrefs

Partial sums of A182777.

Sequence in context: A310116 A125627 A332410 * A174648 A178419 A065504

Adjacent sequences: A194139 A194140 A194141 * A194143 A194144 A194145

Keyword

nonn

Author

Clark Kimberling, Aug 17 2011

Status

approved