OFFSET
1,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Sum[Floor[1/FractionalPart[k*Sqrt[7]]], {k, 1, n}], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)
PROG
(Magma) a:=Sqrt(7); [&+[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 15 2012
STATUS
approved