OFFSET
1,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Sum[Floor[1/FractionalPart[k*Sqrt[3]]], {k, 1, n}], {n, 1, 100}]
(* Clark Kimberling, Aug 16 2012 *)
PROG
(Magma) a:=Sqrt(3); [&+[Floor(1/(k*a-Floor(k*a))):k in [1..n]]:n in [1..60]]; // Marius A. Burtea, Jul 16 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected by Clark Kimberling, Aug 16 2012
STATUS
approved