OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
C. Kimberling, Problem 10520, Amer. Math. Mon. 103 (1996) p. 347.
MATHEMATICA
Table[Sum[Floor[n*Sqrt[2]^(3-k)], {k, 1, 1000}] -1, {n, 1, 50}] (* G. C. Greubel, May 31 2018 *)
PROG
(PARI) j=[]; for(n=1, 100, j=concat(j, suminf(k=1, floor(n*sqrt(2)^(3-k) )))); j
(Magma) [(&+[Floor(n*Sqrt(2)^(3-k)): k in [1..1000]]): n in [1..30]]; // G. C. Greubel, May 31 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Jason Earls, Jul 28 2001
STATUS
approved