OFFSET
1,1
COMMENTS
See A189457.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
r=2; s=2^(1/2); t=1+2^(1/2);
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}] (*A189457*)
Table[b[n], {n, 1, 120}] (*A189458*)
Table[c[n], {n, 1, 120}] (*A186222, conjectured*)
Table[n+Floor[(2n)/Sqrt[2]]+Floor[(n(1+Sqrt[2]))/Sqrt[2]], {n, 90}] (* Harvey P. Dale, Feb 04 2015 *)
PROG
(PARI) vector(120, n, n+floor((2*n)/sqrt(2))+floor((n*(1+sqrt(2)))/sqrt(2))) \\ G. C. Greubel, Aug 19 2018
(Magma) [n+Floor((2*n)/Sqrt(2))+Floor((n*(1+Sqrt(2)))/Sqrt(2)): n in [1..120]]; // G. C. Greubel, Aug 19 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Apr 22 2011
STATUS
approved