OFFSET
1,2
COMMENTS
See A190329.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MAPLE
r:=1: s:=sqrt(2): t:=1/s: seq(n+floor(n*r/s)+floor(n*t/s), n=1..10^4); # Muniru A Asiru, Jan 31 2018
MATHEMATICA
r=1; s=2^(1/2); t=1/s;
a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
c[n_] := n + Floor[n*r/t] + Floor[n*s/t];
Table[a[n], {n, 1, 120}] (*A190329*)
Table[b[n], {n, 1, 120}] (*A190330*)
Table[c[n], {n, 1, 120}] (*A187338*)
Table[n + Floor[n/Sqrt[2]] + Floor[n/2], {n, 1, 50}] (* G. C. Greubel, Jan 30 2018 *)
PROG
(PARI) for(n=1, 50, print1(n + floor(n/sqrt(2)) + floor(n/2), ", ")) \\ G. C. Greubel, Jan 30 2018
(Magma) [n + Floor(n/Sqrt(2)) + Floor(n/2): n in [1..50]]; // G. C. Greubel, Jan 30 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 08 2011
STATUS
approved