|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|