OFFSET
0,2
COMMENTS
This is the Beatty sequence for the constant 2.19133771309089424431753254326...
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
MAPLE
A172278 := proc(n)
floor(n*(sqrt(13)-sqrt(2))) ;
end proc:
seq(A172278(n), n=0..30) ; # R. J. Mathar, Sep 04 2016
MATHEMATICA
With[{c = Sqrt[13] - Sqrt[2]}, Floor[c Range[0, 80]]] (* Vincenzo Librandi, Aug 02 2013 *)
PROG
(Magma) [Floor(n*(Sqrt(13)-Sqrt(2))): n in [0..80]]; // Vincenzo Librandi, Aug 02 2013
(PARI) for(n=0, 50, print1(floor(n*(sqrt(13)-sqrt(2))), ", ")) \\ G. C. Greubel, Jul 05 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 30 2010
STATUS
approved