OFFSET
1,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
FORMULA
Partial sums of A024539. - Sean A. Irvine, Jul 13 2019
MAPLE
ListTools:-PartialSums([seq(floor(1/frac(k*sqrt(2))), k=1..100)]); # Robert Israel, Jul 14 2019
MATHEMATICA
Table[Sum[Floor[1/FractionalPart[k*Sqrt[2]]], {k, 1, n}], {n, 1, 100}] (* Clark Kimberling, Aug 17 2012 *)
PROG
(Magma) a:=Sqrt(2); [&+[Floor(1/(k*a-Floor(k*a))):k in [1..n]]:n in [1..60]]; // Vincenzo Librandi, Jul 17 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved