OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
MATHEMATICA
Table[Floor[n*Sqrt[2]] + Floor[n/Sqrt[2]], {n, 0, 100}] (* G. C. Greubel, Sep 27 2018 *)
PROG
(PARI) vector(100, n, n--; floor(n*sqrt(2)) + floor(n/sqrt(2))) \\ G. C. Greubel, Sep 27 2018
(Magma) [Floor(n*Sqrt(2)) + Floor(n/Sqrt(2)): n in [0..100]]; // G. C. Greubel, Sep 27 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 18 2003
STATUS
approved