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

1, 3, 7, 12, 19, 27, 37, 48, 61, 75, 90, 107, 125, 145, 166, 189, 213, 239, 266, 294, 324, 355, 388, 422, 458, 495, 534, 574, 616, 659, 703, 749, 796, 845, 895, 947, 1000, 1055, 1111, 1168, 1227, 1287, 1349, 1412, 1477, 1543, 1611, 1680, 1751, 1823

Offset

1,2

Links

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

Mathematica

c[n_] := Sum[Floor[j*(-1+Sqrt[6])], {j, 1, n}];
c = Table[c[n], {n, 1, 90}]
Accumulate[Floor[(Sqrt[6]-1)Range[50]]] (* Harvey P. Dale, Sep 21 2021 *)

Crossrefs

Cf. A194145 (Beatty sequence for -1+sqrt(6)).

Sequence in context: A360921 A194102 A006317 * A077043 A022330 A303279

Adjacent sequences: A194144 A194145 A194146 * A194148 A194149 A194150

Keyword

nonn,easy

Author

Clark Kimberling, Aug 17 2011

Status

approved