login
A194147
Sum{floor(j*(-1+sqrt(6))) : 1<=j<=n}; n-th partial sum of Beatty sequence for -1+sqrt(6).
0
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 17 2011
STATUS
approved