A022841 Beatty sequence for sqrt(7).
2, 5, 7, 10, 13, 15, 18, 21, 23, 26, 29, 31, 34, 37, 39, 42, 44, 47, 50, 52, 55, 58, 60, 63, 66, 68, 71, 74, 76, 79, 82, 84, 87, 89, 92, 95, 97, 100, 103, 105, 108, 111, 113, 116, 119, 121, 124, 126, 129, 132, 134, 137, 140, 142, 145, 148, 150, 153, 156
Offset: 1
Links
Programs
-
Magma
[Floor(n*Sqrt(7)): n in [1..60]]; // Vincenzo Librandi, Oct 24 2011
-
Maple
a:=n->floor(n*sqrt(7)): seq(a(n),n=1..70); # Muniru A Asiru, Sep 28 2018
-
Mathematica
Table[Floor[n*Sqrt[7]], {n,1,60}] (* G. C. Greubel, Sep 28 2018 *)
-
PARI
vector(60, n, floor(n*sqrt(7))) \\ G. C. Greubel, Sep 28 2018
Formula
a(n) = floor(n*sqrt(7)). - G. C. Greubel, Sep 28 2018
Extensions
Offset changed from 0 to 1 by Vincenzo Librandi, Oct 24 2011