A194149 Sum_{floor(j*(5-sqrt(3))/2) : 1<=j<=n}; n-th partial sum of Beatty sequence for (5-sqrt(3))/2.

1, 4, 8, 14, 22, 31, 42, 55, 69, 85, 102, 121, 142, 164, 188, 214, 241, 270, 301, 333, 367, 402, 439, 478, 518, 560, 604, 649, 696, 745, 795, 847, 900, 955, 1012, 1070, 1130, 1192, 1255, 1320, 1386, 1454, 1524, 1595, 1668, 1743, 1819, 1897, 1977

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A182772 (Beatty sequence for (5-sqrt(3))/2).

Sequence in context: A053459 A024398 A054347 * A351362 A003682 A333700

Adjacent sequences: A194146 A194147 A194148 * A194150 A194151 A194152

Keyword

nonn

Author

Clark Kimberling, Aug 17 2011

Status

approved